Graduado
Publicado por Enrique (1 intervención) el 01/06/2010 14:04:12
If Me.txtclave.Value = DLookup("clave", "login", "[reg]=" & Me.cbmusuario.Value) Then
reg = Me.cbmusuario.Value
DoCmd.Close acForm, "frmUsuarios", acSaveNo
Else
MsgBox "Clave erronea intentelo de nuevo.", vbCritical, "Aviso!"
Me.txtclave.SetFocus
End If
En el codigo anterior cuando lo ejecuto me aparece
Se ha producido un error '2001' en tiempo de ejecución:
cancelo al operación anterior
Algüien pe puede ayudar
Gracias
reg = Me.cbmusuario.Value
DoCmd.Close acForm, "frmUsuarios", acSaveNo
Else
MsgBox "Clave erronea intentelo de nuevo.", vbCritical, "Aviso!"
Me.txtclave.SetFocus
End If
En el codigo anterior cuando lo ejecuto me aparece
Se ha producido un error '2001' en tiempo de ejecución:
cancelo al operación anterior
Algüien pe puede ayudar
Gracias
Valora esta pregunta
0