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 Facturación), cabe destacar que cada uno tiene privilegios especiales (Osea formularios completamente distintos entre si) y bueno surge la necesidad de un tercero...
Aquí les va la linea que hasta el momento me funciona muy bien con Usuario y Administrador ...
Esta es la linea:
Option Compare Database
Option Explicit
Dim NumIntentos As Integer
Private Sub CmdEntrar_Click()
Dim auxContraseña As String
'Comprobamos que hay datos en las cajas de texto
If Nz(Me.TxtLogin.Value, "") = "" Then
MsgBox "Seleccione un nombre de usuario de la lista para acceder", vbInformation, "ATENCIÓN"
Me.TxtLogin.SetFocus
ElseIf Nz(Me.TxtPassword.Value, "") = "" Then
MsgBox "Introduzca la contraseña del usuario seleccionado", vbInformation, "ATENCIÓN"
Me.TxtPassword.SetFocus
Else
If Nz(DLookup("Password", "Usuarios", "Id_usuario=" & Me![TxtLogin]), "") <> "" Then
auxContraseña = DLookup("Password", "Usuarios", "Id_usuario=" & Me![TxtLogin])
End If
If auxContraseña <> Me.TxtPassword.Value Then
If NumIntentos > 1 Then
NumIntentos = NumIntentos - 1
MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _
"Le quedan " & NumIntentos & " intentos" & vbCrLf & vbCrLf & _
"Por favor, introduzca otra", vbExclamation, "INTRODUCCIÓN INCORRECTA"
Me.TxtPassword.Value = ""
Me.TxtPassword.SetFocus
Else
MsgBox "Ha superado el numero de intentos", vbCritical, "ADIÓS..."
DoCmd.RunCommand acCmdCloseDatabase 'y cerramos el de acceso
End If
Else
If DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me![TxtLogin]) = 1 Then
MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINISTRADOR"
Call Admin
Else
MsgBox "Ha entrado un usuario, ocultamos todas las tablas", vbInformation, "BIENVENIDO USUARIO"
Call Usar
End If
'DoCmd.OpenForm stDocName, , , stLinkCriteria 'Abrimos el formulario correspondiente
DoCmd.Close acForm, Me.Name 'y cerramos el de acceso
End If
End If
End Sub
Function Admin() On Error GoTo Admin_Err DoCmd.OpenForm "Entorno de Administrador", acNormal, "", "", , acNormal Admin_Exit:
Exit Function Admin_Err:
MsgBox Error$
Resume Admin_Exit
End Function
Function Usar() On Error GoTo Usar_Err DoCmd.OpenForm "Entorno de Usuario", acNormal, "", "", , acNormal Usar_Exit:
Exit Function Usar_Err:
MsgBox Error$
Resume Usuar_Exit End Function
Bueno para quienes deseen utilizar estas lienas les serán de mucha utilidad ya que funcionan perfectamente... Pero deseo que alguien me pueda Agregar un tercer Usuario (Usuar2)

2 Respuestas

Respuesta
1

Para empezar, borra esta lines y las siguientes hasta el final:

If DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me![TxtLogin]) = 1 Then

luego escribe esto:

Dim Acceso as integer

Acceso=Select case DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me![TxtLogin])

Select Case Acceso

Case 1 'Es el id_acceso del Administrador

MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINISTRADOR"

DoCmd.OpenForm "Entorno de Administrador", acNormal, "", "", , acNormal

Case 2 'Es el id_acceso del Usuario

MsgBox "Ha entrado un usuario, ocultamos todas las tablas", vbInformation, "BIENVENIDO USUARIO"

DoCmd.OpenForm "Entorno de Usuario", acNormal, "", "", , acNormal

Case 3 'Es el id_acceso del Usuario Facturacion

MsgBox "Pon aquí el mensaje que quieras", vbInformation, "BIENVENIDO USUARIO FACTURACION"
DoCmd. OpenForm "Aqui el nombre del formulario que corresponda", acNormal, "", "",, acNormal

End Select

'DoCmd.OpenForm stDocName, , , stLinkCriteria 'Abrimos el formulario correspondiente
DoCmd.Close acForm, Me.Name 'y cerramos el de acceso
End If
End If
End Sub

En la tabla Usuarios, 1 será el Administrador, 2 el Usuario que ya tienes y 3 el nuevo Usuario Facturación.

Con este sistema puedes añadir todos los usuarios necesarios, sólo tienes que ir añadiendo dentro del bloque select case, tantos case como necesites.

Las funciones Admin y Usar las puedes borrar, pues ya no se usan.

Hola amigo bueno primero que nada no esperaba un respuesta tan rápida y te lo agradezco mucho, pero me arroja un error en la sintaxis...Quizás yo cometí un error ( lo mas lógico)

Mira según tu respuesta me queda así la linea:

Option Compare Database Option Explicit Dim NumIntentos As Integer
Private Sub CmdEntrar_Click() Dim auxContraseña As String 'Comprobamos que hay datos en las cajas de texto If Nz(Me.TxtLogin.Value, "") = "" Then MsgBox "Seleccione un nombre de usuario de la lista para acceder", vbInformation, "ATENCIÓN" Me.TxtLogin.SetFocus ElseIf Nz(Me.TxtPassword.Value, "") = "" Then MsgBox "Introduzca la contraseña del usuario seleccionado", vbInformation, "ATENCIÓN" Me.TxtPassword.SetFocus Else If Nz(DLookup("Password", "Usuarios", "Id_usuario=" & Me![TxtLogin]), "") <> "" Then auxContraseña = DLookup("Password", "Usuarios", "Id_usuario=" & Me![TxtLogin]) End If If auxContraseña <> Me.TxtPassword.Value Then If NumIntentos > 1 Then NumIntentos = NumIntentos - 1 MsgBox "La contraseña introducida es incorrecta" & vbCrLf & _ "Le quedan " & NumIntentos & " intentos" & vbCrLf & vbCrLf & _ "Por favor, introduzca otra", vbExclamation, "INTRODUCCIÓN INCORRECTA" Me.TxtPassword.Value = "" Me.TxtPassword.SetFocus Else MsgBox "Ha superado el numero de intentos", vbCritical, "ADIÓS..." DoCmd.RunCommand acCmdCloseDatabase 'y cerramos el de acceso End If Else Dim Acceso As Integer Acceso=Select case DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me![TxtLogin])
Select Case Acceso
Case 1 'Es el id_acceso del Administrador
MsgBox "Ha entrado el administrador, mostramos todas las tablas", vbInformation, "BIENVENIDO ADMINISTRADOR"
DoCmd.OpenForm "Entorno de Administrador", acNormal, "", "", , acNormal
Case 2 'Es el id_acceso del Usuario
MsgBox "Ha entrado un usuario, ocultamos todas las tablas", vbInformation, "BIENVENIDO USUARIO"
DoCmd.OpenForm "Entorno de Usuario", acNormal, "", "", , acNormal
Case 3 'Es el id_acceso del Usuario Facturación
MsgBox "Ha entrado el Usuario Facturación, mostramos todas las tablas", vbInformation, "BIENVENIDO USUARIO FACTURACIÓN" DoCmd.OpenForm "Entorno de Facturación", acNormal, "", "", , acNormal
End Select
'DoCmd.OpenForm stDocName, , , stLinkCriteria 'Abrimos el formulario correspondiente DoCmd.Close acForm, Me.Name 'y cerramos el de acceso End If End If End Sub

Pero me arroja error de sintaxis justo en la linea:

Acceso=Select case DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me![TxtLogin])

podrías explicarme mas detalladamente POR FAVOR...GRACIAS!

El error fue mio, el codigo correcto devesa linea es:
Acceso=DLookup("Id_acceso", "Usuarios", "Id_usuario=" & Me![TxtLogin])
Respuesta
1

Me podrían ayudar con un código para cancelar

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Creación de usuarios y contraseñas en access

Necesito ayuda para creación de un código para el acceso de diferentes usuarios con contraseñas a diferentes formularios ya pre diseñados, con ayuda de diferentes paginas y tutoriales cree un código, que me genera dos errores, cuando ingreso como...
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

¿Cómo creo un login en access?

Tengo el siguiente código necesito que al ingresar la contraseña incorrecta vaya restando el numero de intentos que en este caso serian 3 por favor necesito repuesta a mi solicitud de Ante mano Gracias Private Sub CmdEntrar_Click() Dim auxContraseña...
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

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

Login y password en access

Tengo una base de datos en la que tengo las tablas... Personal : nombre, apellidos, dni, login y password, etc... Acceso: con el tipo de acceso de los usuario(administrador y usuario) Un formulario donde hago el ingreso llamado: Ingreso Y otro...
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

¿Código en access para acceder a un determinado formulario según el tipo de usuario?

Favor nuevamente su ayuda: Tengo un sistema creado en access, el mismo me permite validar SU ACCESO entre el nombre_usuario y su clave_usuario de la tabla USUARIOS una vez ingresado; lo que requiero es un código que me permita según sea el tipo de...
1 respuesta

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...
2 respuestas