Necesito saber que tengo mal en el codigo, ya que cuando meto mal la password no me deja volver a intentarlo, lo he puesto para que tenga 3 intentos, a ver si alguien me puede ayuda.
Private Sub Command1_Click()
Dim cont As Integer
cont = 0
Do While cont < 3
If user.Text = "user" And pass.Text = "prueba" Then
Unload Me
Form2.Show
Else
cont = cont + 1
MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
user.Text = ""
pass.Text = ""
End If
Loop
MsgBox "Adios...", vbInformation
Unload Me
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
HOLA!!!
Es un problema de logica lo tuyo, como haces el dowhile loop analiza 3 veces lo mismo y se cierra.
Asi te va a funcionar.
Dim cont As Integer
Private Sub Command1_Click()
IF CONT = 3 THEN MsgBox "Adios...", vbInformation : END
If user.Text = "user" And pass.Text = "prueba" Then
Unload Me
Form2.Show
Else
cont = cont + 1
MsgBox "Contraseña inválida No " & CStr(cont), vbCritical
user.Text = ""
pass.Text = ""
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
GRACIAS POR LEER!!!
gracias maquina ; )
es que aun soy muy noob en esto xD
HOLA!!!
No hay problema estamoss para eso ;)
GRACIAS POR LEER!!!