Tengo un digitador el cual si recibe una cifra determinada muestra un formulario diferente, de lo contrario lanza un mensaje de error y permanece igual, no cambia de formulario.
El problema viene a la hora de poner el código:
Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub
Private Sub Command4_Click()
Text1.Text = Text1.Text + "2"
End Sub
....
Private Sub Command2_Click()
If Text1.Text = "1111" Then
Form2.Show
Else: MsgBox "error de clave"
End If
If Text1.Text = "3312" Then
Form3.Show
Else: MsgBox "error de clave"
End If
End Sub
(http://img163.imageshack.us/img163/3331/digs.jpg)
Cada que escribo "3312" me manda sin problema al formulario, mismo caso con "1111" pero el msgbox me saldrá forzosamente ya que a pesar de ser la cifra correcta no coincidé una con la otra.
Cuál sería el método para que el msgbox aparezca cuando no digite las cifras predeterminadas?
"3312" - muestra formulario 3
"1111" - muesrta formulario 2
"otro" - mensaje de error
Private Sub Command2_click()
If text1.text="1111" then
form2.show
elseif text1.text="3312" then
form3.show
else
msgbox "Error de clave"
end if
End sub
¡Saludos!
Muchas gracias, amigo.
por si usas más números o formularios:
usas select case
case text
case "1111"
form2.show
case "3312"
form3.show
case "5555" ' por ejemplo
form?.show ' el form q quieras
case else
msgbox "Error de Clave"
end select