Autor Tema: Validación De Acceso (Leído 1864 veces)

mi69 · « **en:** Miércoles 29 de Septiembre de 2004, 14:27 »

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

Shiquilla

El único error que veo es el del IF. Si no especificas más no se puede ayudar.

Código: Text

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

Saludos.

mi69

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

Shiquilla

Código: Text

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

Saludos.

mi69

Gracias Shiquilla!

By

SoloCodigo

Autor Tema: Validación De Acceso (Leído 1864 veces)

mi69

Validación De Acceso

Shiquilla

Re: Validación De Acceso

mi69

Re: Validación De Acceso

Shiquilla

Re: Validación De Acceso

mi69

Re: Validación De Acceso