Validación de acceso

miguel
30 de Septiembre del 2004
hola.

alguilen podría decirme que está mal en este código??

gracias!


Private Sub cmdOK_Click()
If Contador <= 1 Then
If txtUserName = "Admin" Then
If txtPassword = "Password" Then
LoginSucceeded = True
Timer1.Enabled = False
frm2.Show
Unload Me
Else
MsgBox "Clave de acceso o Usuario incorrecto", vbCritical, "Login"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
Contador = Contador + 1
End If
End If
Else
Mensaje = MsgBox("Acceso denegado", vbCritical, "Login")
End
End If
End Sub

Anitasweis
30 de Septiembre del 2004
Q error te sale? donde?

miguel
30 de Septiembre del 2004
Ana.

Se supone que al hacer clic en el cmdOK, este debería validar los datos
ingresados y permitir hasta dos intentos fallidos y al tercero denegar el
acceso, pero no lo hace si los campos están en blanco...

Gracias