Título: [Ayuda] Función IF Publicado por: Servia en 15 Diciembre 2007, 12:25 pm Hola, estoy intentando hacer que si en un archivo pone x y un usuario escribe x se abrá un form y que de lo contrario salga una pantallita diciendo error.
Código: Private Sub Command1_Click() Que hago mal? Título: Re: [Ayuda] Función IF Publicado por: Lambda en 15 Diciembre 2007, 14:20 pm Hola, estoy intentando hacer que si en un archivo pone x y un usuario escribe x se abrá un form y que de lo contrario salga una pantallita diciendo error. Código: Private Sub Command1_Click() Que hago mal? Código
prueba asi ;D :xD Título: Re: [Ayuda] Función IF Publicado por: Spider-Net en 15 Diciembre 2007, 14:26 pm Me equivoqué, porque vi que cierras el programa dentro de ese if.. pero bueno como te he puesto funciona xD Yo haría algo así: Código
Metes un TextBox y ya está, funciona perfectamente ;D Saludos. Título: Re: [Ayuda] Función IF Publicado por: Servia en 15 Diciembre 2007, 15:06 pm Pero me explicas el código que si no no aprendo nada ?
Aparte me sigue dando error :S Al escribir en el textbox y presionar el botón sale el mensaje de error y puedo ver como se le añaden + carácteres a lo escrito [ÿþgg] :S Aunque si quito el + temp , porque no se de que sirve , me funciona pero entonces veo lo de If Pass = "x" Then , de que me sirve abrir el archivo si aquí pongo eso? :S aquí no tendría que poner la url del archivo y que lo lea? Private Sub Command1_Click() Dim Pass As String Dim Temp As String nFic = FreeFile Open "C:\a.txt" For Input As nFic Do Until EOF(nFic) Input #nFic, Temp Text1.Text = Text1.Text + Temp Pass = Text1.Text Loop Close nFic If Pass = "x" Then Form2.Show Else MsgBox "Error, vuelva a intentarlo", vbCritical End End If End Sub Título: Re: [Ayuda] Función IF Publicado por: Spider-Net en 15 Diciembre 2007, 17:16 pm Buenas amigo, pues mira principalmente decirte que el código de Lambda es más simple y también funciona, pero de todas formas yo te explico si quieres el que yo puse:
Código
Espero que más o menos lo entiendas, y si me equivoqué en cualquier cosa espero que alguien me corrija. Y de todas formas como ya te dije el código de Lambda es más simple y funciona perfectamente aunque este también funciona sólo que es más largo, bueno espero que te sea de ayuda al menos y aprendas algo nuevo ;) Saludos. Título: Re: [Ayuda] Función IF Publicado por: Servia en 15 Diciembre 2007, 18:03 pm El de lambda no funciona porque tmb lo probe yo antes, si fuencionase no habría psoteado pidiendo ayuda.
Pero y si el texto que quiero que mire si concide [en este caso x] se encuentra en otro fichero? Título: Re: [Ayuda] Función IF Publicado por: Spider-Net en 15 Diciembre 2007, 18:22 pm Pues puedes cambiar la ruta, mira:
Código
Y ya está, así de simple. |