Problema con dlookup ayuda

Cerrado
d_luu
Message postés
1
Date d'inscription
martes, 14 de octubre de 2014
Estatus
Miembro
Última intervención
martes, 14 de octubre de 2014
- 14 oct 2014 a las 20:09
bien, no soy muy habil trabajando con vb, no es mi fuerte pero bueno aca estoy tratando de resolver esto, el dlookup lo tengo aplicado en un inicio de sesion, puedo loguearme al colocar en usaurio: 1 y pass: 123, pero al querer cambiar el user a: admin con el mismo pass me da error, ya cambie las tablas, las relaciones pero aun asi no puedo hacerlo funcionar, les dejo el codigo por si alguien puede echarme una mano con esto


Dim contra As String


If Nz(Me.Usuario, "") = "" Then
MsgBox "Usuario vacio", vdInformation, "Vacio"
Me.Usuario.SetFocus
ElseIf Nz(Me.Contraseña, "") = "" Then
MsgBox "Contraseña vacia", vbExclamation, "Vacio"
Me.Contraseña.SetFocus

Else
If Nz(DLookup("contraseña", "usuario", "idusuarios=" & Me![Usuario]), "") <> "" Then
contra = DLookup("contraseña", "usuario", "idusuarios=" & Me![Usuario])
End If

If contra <> Me.Contraseña Then
MsgBox "Contraseña Incorrecta", vbCritical, "Ok"
Else
If Nz(DLookup("privilegio", "usuario", "idusuarios=" & Me![Usuario]), "") = 1 Then
DoCmd.OpenForm "administrador"
DoCmd.Close acForm, "iniciar Sesion"
ElseIf Nz(DLookup("privilegio", "usuario", "idusuarios=" & Me![Usuario]), "") = 2 Then
DoCmd.OpenForm "admisiones"
DoCmd.Close acForm, "iniciar Sesion"
ElseIf Nz(DLookup("privilegio", "usuario", "idusuarios=" & Me![Usuario]), "") = 3 Then
DoCmd.OpenForm "coordinacion"
DoCmd.Close acForm, "iniciar Sesion"
ElseIf Nz(DLookup("privilegio", "usuario", "idusuarios=" & Me![Usuario]), "") = 4 Then
DoCmd.OpenForm "direccion"
DoCmd.Close acForm, "iniciar Sesion"
ElseIf Nz(DLookup("privilegio", "usuario", "idusuarios=" & Me![Usuario]), "") = 5 Then
DoCmd.OpenForm "transportes"

DoCmd.Close acForm, "iniciar Sesion"
End If