Programación General > Visual Basic 6.0 e inferiores

 Validación De Acceso

(1/1)

mi69:
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

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


--- Código: Text ---Contador = 0Private 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 IfEnd 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 = 0Private 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 IfEnd Sub 
Saludos.

mi69:
Gracias Shiquilla!

By :hola:

Navegación

[0] Índice de Mensajes