Ayuda password
Publicado por Daniel (10 intervenciones) el 30/06/2008 16:45:44
Buenas,
El siguiente código me da error, dice que el nombre del formulario está mal escrito o hace referencia a un formulario que no existe: Form_PanelControl. Sin embargo si existe. Tampoco tengo la certeza que la comparación Usuario, de la tabla Passwd, con usuario del formulario Acceso se ejecute de forma correcta.La finalidad es que dado un usuario y password concretos los busque en la tabla y si son correctos abran el formulario PanelControl y si no lo son que al 3 intento cierre la aplicación.
Private Sub Aceptar_Click()
Dim n As Integer
Dim intentos As Integer
On Error GoTo TratoError
If IsNull(Form_Acceso.Usuario) Or Form_Acceso.Usuario = "" Then Form_Acceso.Usuario.SetFocus: Exit Sub
If IsNull(Form_Acceso.Password) Or Form_Acceso.Password = "" Then Form_Acceso.Password.SetFocus: Exit Sub
intentos = 0
If (Usuario = Form_Acceso.Usuario) And (Password = Form_Acceso.Password) Then
DoCmd.OpenForm "Form_PanelControl", acNormal, , , acFormReadOnly, acWindowNormal
Else
MsgBox "Usuario o contraseña incorrectos.", vbInformation, " Error"
intentos = intentos + 1
If intentos = 3 Then
DoCmd.Close acForm, "Acceso"
MsgBox "No está autorizado a utilizar esta aplicación.", vbCritical, " Tres intentos fallidos"
Application.Quit
Else
Form_Acceso.Password = ""
Form_Acceso.Password.SetFocus: Exit Sub
End If
End If
TratoError:
MsgBox "Error: " & Err.Description
End Sub
El siguiente código me da error, dice que el nombre del formulario está mal escrito o hace referencia a un formulario que no existe: Form_PanelControl. Sin embargo si existe. Tampoco tengo la certeza que la comparación Usuario, de la tabla Passwd, con usuario del formulario Acceso se ejecute de forma correcta.La finalidad es que dado un usuario y password concretos los busque en la tabla y si son correctos abran el formulario PanelControl y si no lo son que al 3 intento cierre la aplicación.
Private Sub Aceptar_Click()
Dim n As Integer
Dim intentos As Integer
On Error GoTo TratoError
If IsNull(Form_Acceso.Usuario) Or Form_Acceso.Usuario = "" Then Form_Acceso.Usuario.SetFocus: Exit Sub
If IsNull(Form_Acceso.Password) Or Form_Acceso.Password = "" Then Form_Acceso.Password.SetFocus: Exit Sub
intentos = 0
If (Usuario = Form_Acceso.Usuario) And (Password = Form_Acceso.Password) Then
DoCmd.OpenForm "Form_PanelControl", acNormal, , , acFormReadOnly, acWindowNormal
Else
MsgBox "Usuario o contraseña incorrectos.", vbInformation, " Error"
intentos = intentos + 1
If intentos = 3 Then
DoCmd.Close acForm, "Acceso"
MsgBox "No está autorizado a utilizar esta aplicación.", vbCritical, " Tres intentos fallidos"
Application.Quit
Else
Form_Acceso.Password = ""
Form_Acceso.Password.SetFocus: Exit Sub
End If
End If
TratoError:
MsgBox "Error: " & Err.Description
End Sub
Valora esta pregunta
0