| Usuario |
Validación de acceso |
Mi69
10 Mensaje(s) |
| Enviado - 29/9/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
|
| |
|
The Emulator
23 Mensaje(s)
|
| Enviado - 29/9/2004 |
| |
Hola
Se te olvido que error es el que te esta saliendo!!!!!!
Por lo que vi del codigo el problema que tendrias es que en las condiciones
If txtUserName = "Admin" Then
If txtPassword = "Password" Then
Sino escribes los valores tal cual como lo estas comparando nunca te servira, Me explico
Si escribes admin no es lo mismo que Admin por la a mayuscula y lo mismo en la contraseña
Para arreglar esto puedes usar
If Ucase(txtUserName) = "ADMIN" Then
If Ucase(txtPassword) = "PASSWORD" Then\
Aqui lo que el usuario escriba lo convertira en mayusculas y lo compara con el dato en mayusculas si el usuario escribe admin con el ucase sera ADMIN
Espero sea esto
Saludos
www.theemulator.tk
|
| |
|
Mi69
10 Mensaje(s) |
| Enviado - 30/9/2004 |
| |
Hola y gracias por responder.
Nos vemos |
| |
|
|
|
