usuario y contraseña
Publicado por jordi (11 intervenciones) el 26/02/2006 20:07:47
Hola a todos.
¿como hago para crear un formulario que solicite usuario y contraseña y que funcione?, por favor ayudadme.
Lo he intentado con el codigo siguiente pero me da mensaje de error y/o "esta accion anula la anterior".
tabla = idusuarios, campos =nombre, contraseña
formulario= pas, textbox independiente usuario , textbox independiente contra, boton validar.
CODIGO:
Option Compare Database
Private intloginattempts As Integer
Private Sub Form_Open(Cancel As Integer)
Me.usuario.SetFocus
End Sub
Private Sub usuario_AfterUpdare()
Me.contra.SetFocus
End Sub
Private Sub validar_Click()
If IsNull(Me.usuario) Or Me.usuario="" Then
MsgBox "Por favor entre su nombre de usuario",VbOkOnly,"datos requeridos!"
Me.usuario.SetFocus
Exit Sub
End If
If IsNull(Me.contra) Or Me.contra="" Then
MsgBox "Introduzca su contraseña",VbOkOnly,"dato requerido!"
Me.contra.SetFocus
Exit Sub
End If
' (en la linea siguiente es donde access me genera el error)
If Me.contra.value=DLookup("contraseña","idusuarios=" & Me.usuario.value) Then
Me.usuario.value
DoCmd.Close acForm, "pas",acSaveNo
Else
MsgBox "contraseña incorrecta",VbOkOnly;"error!!"
intloginattempts=intloginattempts+1
If intloginattempts=3 Then
MsgBox "Ha introducido la contraseña erroneamente 3 veces. No Tiene acceso a la base de datos y se cerrara la aplicacion",VbCritical,"ACCESO DENEGADO!! "
Application Quit
End If
End Sub
Por favor, si alguien da con el error, que me lo diga porque yo ya no se que mas hacer.
Gracias.
¿como hago para crear un formulario que solicite usuario y contraseña y que funcione?, por favor ayudadme.
Lo he intentado con el codigo siguiente pero me da mensaje de error y/o "esta accion anula la anterior".
tabla = idusuarios, campos =nombre, contraseña
formulario= pas, textbox independiente usuario , textbox independiente contra, boton validar.
CODIGO:
Option Compare Database
Private intloginattempts As Integer
Private Sub Form_Open(Cancel As Integer)
Me.usuario.SetFocus
End Sub
Private Sub usuario_AfterUpdare()
Me.contra.SetFocus
End Sub
Private Sub validar_Click()
If IsNull(Me.usuario) Or Me.usuario="" Then
MsgBox "Por favor entre su nombre de usuario",VbOkOnly,"datos requeridos!"
Me.usuario.SetFocus
Exit Sub
End If
If IsNull(Me.contra) Or Me.contra="" Then
MsgBox "Introduzca su contraseña",VbOkOnly,"dato requerido!"
Me.contra.SetFocus
Exit Sub
End If
' (en la linea siguiente es donde access me genera el error)
If Me.contra.value=DLookup("contraseña","idusuarios=" & Me.usuario.value) Then
Me.usuario.value
DoCmd.Close acForm, "pas",acSaveNo
Else
MsgBox "contraseña incorrecta",VbOkOnly;"error!!"
intloginattempts=intloginattempts+1
If intloginattempts=3 Then
MsgBox "Ha introducido la contraseña erroneamente 3 veces. No Tiene acceso a la base de datos y se cerrara la aplicacion",VbCritical,"ACCESO DENEGADO!! "
Application Quit
End If
End Sub
Por favor, si alguien da con el error, que me lo diga porque yo ya no se que mas hacer.
Gracias.
Valora esta pregunta
0