Error 2471 =(
Publicado por Efrain (1 intervención) el 07/10/2015 21:50:11
Estoy tratando de abrir un formulario a partir de un usuario y contraseña que ingreso en mi formulario, donde tomo mi campo de usuario se llama user, y donde tomo mi contraseña se llama contrasena, la realidad es que no entiendo por que me manda ese error, ojala me pudieran ayudar, gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub entrar_Click()
Dim contra As String
If Nz(Me.user, "") = "" Then
MsgBox "El campo Usuario esta vacio", vbInformation, "vacio"
Me.user.SetFocus
ElseIf Nz(Me.contrasena, "") = "" Then
MsgBox "El campo Contraseña esta vacio", vbInformation, "vacio"
Me.contrasena.SetFocus
Else
If Nz(DLookup("[contrasena]", "[Empleados]", "idempleado=" & [user]), "") <> "" Then
contra = DLookup("[contrasena]", "[Empleados]", "idempleado=" & [user])
End If
If contra <> Me.contrasena Then
MsgBox "Contraseña incorrecta", vbCritical, "Ok"
Else
If Nz(DLookup("[privilegio]", "[empleados]", "idempleado=" & Me![user]), "") = 1 Then
DoCmd.OpenForm "Invitado"
ElseIf Nz(DLookup("[privilegio]", "[empleados]", "Idempleado=" & Me![user]), "") = 2 Then
DoCmd.OpenForm "Montes"
ElseIf Nz(DLookup("[privilegio]", "[empleados]", "Idempleado=" & Me![user]), "") = 3 Then
DoCmd.OpenForm "Michelle"
Else
DoCmd.OpenForm "Baeza"
End If
End If
End If
End Sub
- Control.rar(103,8 KB)
Valora esta pregunta
0