Comprobación de administrador y usuario en access

Quisiera su ayuda por favor para el siguiente código, para que me puedan indicar dónde estoy cometiendo el error. Sucede que actualmente por ejemplo cuando quiero entrar como Administrador, a pesar de ingresar la información correcta me tira el mensaje de que no lo soy. Anterior a colocar la comprobación al entrar como administrador, me abría el formulario pero "maquillado" como si fuera usuario.

Private Sub CmdAceptarId_Click()
Dim Contrase As Variant
Dim vNombre As String
If Nz(Me.TxtContraseña, "") = "" Then
MsgBox "El campo de la contraseña está vacío", vbCritical, "INGRESE SU CONTRASEÑA"
Me.TxtContraseña.SetFocus
Else
If Nz(DLookup("Contraseña", "07PERSONAL USUARIOS", "Contraseña='" & Me.TxtContraseña & "'"), "") <> "" Then
Contrase = Nz(DLookup("Contraseña", "07PERSONAL USUARIOS", "Contraseña='" & Me.TxtContraseña & "'"), "")
End If
vNombre = Nz(DLookup("NombrePer", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")
If Contrase <> Me.TxtContraseña Then
MsgBox "Contraseña incorrecta", vbCritical, "A D V E R T E N C I A"
Else
If Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "") = "Administrador" Then
DoCmd.Close acForm, Me.Name
MsgBox "" & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
DoCmd.OpenForm "03PANEL DE CONTROL", acNormal
Else
Salida:
DoCmd.Close acForm, Me.Name
MsgBox "Usted no es Administrador", vbCritical, "ADVERTENCIA"
Exit Sub
If Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "") = "Usuario" Then
DoCmd.Close acForm, Me.Name
MsgBox "" & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
DoCmd.OpenForm "03PANEL DE CONTROL"
With Forms("03PANEL DE CONTROL")
.CmdUsuario.Enabled = False
.CmdPrivil.Enabled = False
.CmdUsuario.Visible = False
.EtqAdmon.Visible = False
.CmdPrivil.Visible = False
.CmdEgreso.Enabled = False
End With
Else
Resume Salida
End If
End If
End If
End If
End Sub

2 Respuestas

Respuesta
1

Amigo el código esta un poco desordenado y confuso por eso me tomé la molestia de ordenarlo, saludos

Private Sub CmdAceptarId_Click()
Dim Contrase As String, vNombre As String, privilegio As String

If Nz(Me.Me.TxtUsuario, "") = "" Then
MsgBox "El campo usuario está vacío", vbCritical, "INGRESE NOMBRE DE USUARIO"
Me.Me.TxtUsuario.SetFocus
Exit Sub
ElseIf Nz(Me.TxtContraseña, "") = "" Then
MsgBox "El campo de la contraseña está vacío", vbCritical, "INGRESE SU CONTRASEÑA"
Me.TxtContraseña.SetFocus
Exit Sub
End If
vNombre = Nz(DLookup("NombrePer", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")

If vNombre = "" Then MsgBox "usuario inexistente", vbCritical, "Vuelva a intentar ": Me.Me.TxtUsuario: Exit Sub
Contrase = Nz(DLookup("Contraseña", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")
privilegio = Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "") = "Administrador"
If Not Contrase = Me.TxtContraseña Then
MsgBox "Contraseña incorrecta", vbCritical, "A D V E R T E N C I A"
Me.TxtContraseña.SetFocus
Exit Sub
End If
' SI LLEGO ACA QUIERE DECIR QUE ENTRÓ PREGUNTO SOBRE PRIVILEGIOS
DoCmd.Close acForm, Me.name
DoCmd.OpenForm "03PANEL DE CONTROL", acNormal

If privilegio = "Administrador" Then
MsgBox "" & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
ElseIf privilegio = "Usuario" Then
MsgBox "Usted no es Administrador", vbCritical, "ADVERTENCIA"
MsgBox "" & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
With Forms("03PANEL DE CONTROL")
.CmdUsuario.Enabled = False
.CmdPrivil.Enabled = False
.CmdUsuario.Visible = False
.EtqAdmon.Visible = False
.CmdPrivil.Visible = False
.CmdEgreso.Enabled = False
End With
End If

End Sub

Me equivoque donde dice Me. Me. TxtUsuario tendría que decir Me. TxtUsuario. Setfocus . Cópialo y pégalo tiene que andar

¡Gracias!  Jajaja,, tienes razón el código está un poco desordenada, pero con las ayuda recibidas de ustedes lo he logrado. Saludos cordiales!!!

Contrase = Nz(DLookup("Contraseña", "07PERSONAL USUARIOS", "Contraseña='" & Me.TxtContraseña & "'"), "")
vNombre = Nz(DLookup("NombrePer", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")
vPrivilegio = Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")
If Nz(Me.TxtContraseña, "") = "" Then
MsgBox "El campo de la contraseña está vacío", vbCritical, "INGRESE SU CONTRASEÑA"
Me.TxtContraseña.SetFocus
Exit Sub
End If
If Contrase <> Me.TxtContraseña Then
MsgBox "Contraseña incorrecta", vbCritical, "A D V E R T E N C I A"
Me.TxtContraseña.SetFocus
Exit Sub
End If
' SI LLEGÓ ACA QUIERE DECIR QUE ENTRÓ, PREGUNTO SOBRE PRIVILEGIOS
If vPrivilegio = 1 Then
DoCmd.Close acForm, Me.Name
MsgBox "" & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
DoCmd.OpenForm "03PANEL DE CONTROL", acNormal
Exit Sub
ElseIf vPrivilegio = 2 Then
MsgBox "Usted es un usuario. " & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "03PANEL DE CONTROL"
With Forms("03PANEL DE CONTROL")
.CmdUsuario.Enabled = False
.CmdPrivil.Enabled = False
.CmdUsuario.Visible = False
.EtqAdmon.Visible = False
.CmdPrivil.Visible = False
.CmdEgreso.Enabled = False
End With
End If
End Sub
Respuesta
1

El error lo tienes en esta parte:

If Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "") = "Administrador" ThenDoCmd.Close acForm, Me.Name

porque en tu tabla "07 PERSONAL USUARIOS", el campo Privilegio es numérico y no de texto, por eso nunca se te cumple la condición (si no has cambiado el diseño de las tablas desde entonces).

Para que te funcione, tendrás que usar esto:

If Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "") = 1 Then
DoCmd. Close acForm, Me. Name

Y lo mismo tendrás que hacer con Usuario.

¡Gracias! Bueno no quería funcionar porque me abría el panel como administrador aun cuando ingresara como usuario; ordené un poquito y me parece que lo que fallaba era que faltaba una salida Exit Sub al comprobar el primer privilegio, el código funcionando quedó así 

Contrase = Nz(DLookup("Contraseña", "07PERSONAL USUARIOS", "Contraseña='" & Me.TxtContraseña & "'"), "")
vNombre = Nz(DLookup("NombrePer", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")
vPrivilegio = Nz(DLookup("Privilegio", "07PERSONAL USUARIOS", "CodPer='" & Me.TxtUsuario & "'"), "")
If Nz(Me.TxtContraseña, "") = "" Then
MsgBox "El campo de la contraseña está vacío", vbCritical, "INGRESE SU CONTRASEÑA"
Me.TxtContraseña.SetFocus
Exit Sub
End If
If Contrase <> Me.TxtContraseña Then
MsgBox "Contraseña incorrecta", vbCritical, "A D V E R T E N C I A"
Me.TxtContraseña.SetFocus
Exit Sub
End If
' SI LLEGÓ ACA QUIERE DECIR QUE ENTRÓ, PREGUNTO SOBRE PRIVILEGIOS
If vPrivilegio = 1 Then
DoCmd.Close acForm, Me.Name
MsgBox "" & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
DoCmd.OpenForm "03PANEL DE CONTROL", acNormal
Exit Sub
ElseIf vPrivilegio = 2 Then
MsgBox "Usted es un usuario. " & vbCrLf & "'" & vNombre & "'", vbExclamation, "¡BIENVENIDO AL SISTEMA BIBCUNIZAB!"
DoCmd.Close acForm, Me.Name
DoCmd.OpenForm "03PANEL DE CONTROL"
With Forms("03PANEL DE CONTROL")
.CmdUsuario.Enabled = False
.CmdPrivil.Enabled = False
.CmdUsuario.Visible = False
.EtqAdmon.Visible = False
.CmdPrivil.Visible = False
.CmdEgreso.Enabled = False
End With
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Accesos usuarios

Tengo una rutina de accesos de usuarios, pero se concetarla con el formulario del menu de inicio. De envío la rutina completa. Option Compare Database Option Explicit Dim NumIntentos As Integer Private Sub CmdAcceder_Click() Dim auxContraseña As...
2 respuestas

Hola nuevamente, ojalá me puedas ayudar con un error en un código VB en access

El problema es que no me respetando el total de intentos al ingresar una contraseña errónea, automáticamente me saca a la primera, cuando lo debería hacer al tercer intento, aquí va el código y gracias: Option Compare Database Option Explicit Dim...
2 respuestas

Como entrar a siguiente formulario filtrando

Después de entrar el usuario y pass, que puedo hacer para que cuando le pique a botón de entrar coja el nombre de usuario "TxtUsuario" y filtre de la tabla "base datos" y el resultado del filtrado me lo presente el el siguiente formulario "base...
1 respuesta

Solución Cuentas de Usuario Access?

Soy nuevo aquí en el sitio y espero que alguien me pueda ayudar! Tengo la Siguiente linea que me funciona de maravilla para la administración de cuentas de usuario (Usuario y Administrador)... Pero deseo agregar un tercer sujeto (Usuario...
2 respuestas

Access 2007 trabajar con un usuario a la vez

Mi nombre es Luis, soy novato en access 2007, he visto varias preguntas que me han ayudado mucho en esta web. Espero me puedan ayudar con el problema que tengo: estoy generando una aplicación que lleve registro de presupuestos y ordenes de trabajo,...
2 respuestas

Acceder a access con usuarios definidos a un formulario especifico según su grupo.

Bueno hace unos meses estoy desarrollando una aplicación en Access 2007 muy buena que me facilita cada vez mas mi trabajo, ya estoy en la etapa final y como cierre quiero parametrizar el acceso de los usuarios según sus funciones al sistema, con...
1 respuesta

Cifrar la password **** :)

He visto alguna respuesta tuya y he visto que dominas y que además contestas de manera muy clara, de experta a experto (aunque io en otras materias) a ver si me puedes ayudar: He puesto una contraseña a un botón que abre un formulario con código muy...
1 respuesta

Formulario de Acceso USUARIO, CONTRASEÑA y traer 2 campos de la tabla

Espero me puedas ayudar te comento que estoy haciendo un formulario de acceso por medio de usuario y contraseña y ya me esta jalando pero solo me esta trayendo un campo a los demás formularios que es el compo nombre y quisiera me traiga también el...
1 respuesta

Cerrar ventana de formulario

Tengo un código de logueo en un botón que se ejecuta al hacer click, funciona!, pero no logro que se cierre el formulario de logueo cuando ejecuta el if ya sea como administrador o usuario, el mismo se me queda por sobre el formulario que llame... Te...
1 respuesta

Error: Registro NO existe, Desea corregir. VBA access

Por un momento creí que ya había solucionado por mi cuenta esta situación. Haber me explico en consultas anteriores me ayudaron con el tratamiento de un error de libro prestado, que por cierto quedó excelente. Bien luego quise, que si el usuario...
1 respuesta