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"
