SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: mi69 en Miércoles 29 de Septiembre de 2004, 14:27

Título: Validación De Acceso
Publicado por: mi69 en Miércoles 29 de Septiembre de 2004, 14:27
hola.

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

gracias! :hola:


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
Título: Re: Validación De Acceso
Publicado por: Shiquilla en Miércoles 29 de Septiembre de 2004, 14:40
El único error que veo es el del IF. Si no especificas más no se puede ayudar.

Código: Text
  1. Contador = 0
  2. Private Sub cmdOK_Click()
  3.     If Contador &#60;= 1 Then
  4.         If txtUserName = &#34;Admin&#34; And txtPassword = &#34;Password&#34; Then
  5.             LoginSucceeded = True
  6.             Timer1.Enabled = False
  7.             Contador = 0
  8.             frm2.Show
  9.             Unload Me
  10.         Else
  11.             MsgBox &#34;Clave de acceso o Usuario incorrecto&#34;, vbCritical, &#34;Login&#34;
  12.             txtUserName.SetFocus
  13.             SendKeys &#34;{Home}+{End}&#34;
  14.             Contador = Contador + 1
  15.         End If
  16.     Else
  17.         Mensaje = MsgBox(&#34;Acceso denegado&#34;, vbCritical, &#34;Login&#34;)
  18.         End
  19.     End If
  20. End Sub
  21.  

Saludos.
Título: Re: Validación De Acceso
Publicado por: mi69 en Miércoles 29 de Septiembre de 2004, 14:55
Hola.

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
Título: Re: Validación De Acceso
Publicado por: Shiquilla en Miércoles 29 de Septiembre de 2004, 20:48
Código: Text
  1. Contador = 0
  2. Private Sub cmdOK_Click()
  3.    If txtUserName &#60;&#62; &#34;&#34; And txtPassword &#60;&#62; &#34;&#34; Then
  4.         If Contador &#60;= 1 Then
  5.             If txtUserName = &#34;Admin&#34; And txtPassword = &#34;Password&#34; Then
  6.                 LoginSucceeded = True
  7.                 Timer1.Enabled = False
  8.                 Contador = 0
  9.                 frm2.Show
  10.                 Unload Me
  11.             Else
  12.                 MsgBox &#34;Clave de acceso o Usuario incorrecto&#34;, vbCritical, &#34;Login&#34;
  13.                 txtUserName.SetFocus
  14.                 SendKeys &#34;{Home}+{End}&#34;
  15.                 Contador = Contador + 1
  16.             End If
  17.         Else
  18.             Mensaje = MsgBox(&#34;Acceso denegado&#34;, vbCritical, &#34;Login&#34;)
  19.             End
  20.         End If
  21.     End If
  22. End Sub
  23.  

Saludos.
Título: Re: Validación De Acceso
Publicado por: mi69 en Miércoles 29 de Septiembre de 2004, 22:34
Gracias Shiquilla!

By :hola: