Seguridad en bd

Hola,
tengo un problema. He creado una interfaz de usuario en photoshop, lo he insertado en un formulario de access. A dicho formulario le he agregado dos controles:un cuadro de texto y un botón.
La idea es que el formulario sea de inicio para que me controle el acceso de los usuarios. La base de datos tiene varias áreas:compras, análisis financiero, salud mental y desarrollo social. Los que sean usuarios autorizados del área de compras, por medio de un password digitado en el cuadro de texto, tengan acceso total al área de compras y acceso de solo lectura a las otras áreas y así sucesivamente.
Y el botón es para el usuario general, al hacer clic en el accede en modo de solo lectura a toda la bd.
Como haría para hacer esto, tengo entendido que por medio de tablas, pero no se como
Gracias

1 Respuesta

Respuesta
1
Te he preparado un BD de ejemplo utilizando códi vb
Tengo un formulario de inicio donde pide un usuario y una contraseña, con un botón (Comando4) que evalúa si los datos que has introducido son correctos
Este es el código:
Option Compare Database
Private Sub Comando4_Click()
Dim CONTRASEÑA As String
Dim MENSAJE As String
MENSAJE = "Bienvenido " & TXTUSUARIO
MENSAJE = MENSAJE & " su permiso es " & Forms![FRMPASS]![TXTPERMISO]
CONTRASEÑA = DLookup("[PASS]", "TGES", "[USER]=[TXTUSUARIO]")
If IsNull(TXTCONTRASEÑA) Or IsNull(TXTUSUARIO) Then
MsgBox "Debe rellenar el usuario y la contraseña", vbCritical
DoCmd.GoToControl "TXTUSUARIO"
ElseIf Me.TXTCONTRASEÑA = CONTRASEÑA And Me.TXTPERMISO.Value = "Total" Then
MsgBox MENSAJE, vbInformation
DoCmd.OpenForm "FRMDIAGNOSTICOPACIENTE"
DoCmd.Close acForm, "FRMPASS"
ElseIf Me.TXTCONTRASEÑA = CONTRASEÑA And Me.TXTPERMISO.Value = "Consultas" Then
MsgBox MENSAJE, vbInformation
DoCmd.OpenForm "T1"
DoCmd.Close acForm, "FRMPASS"
ElseIf Me.TXTCONTRASEÑA = CONTRASEÑA And Me.TXTPERMISO.Value = "Gestión" Then
MsgBox MENSAJE, vbInformation
DoCmd.OpenForm "T2"
DoCmd.Close acForm, "FRMPASS"
Else
MsgBox "El usuario y/o contraseña no son validos", vbCritical
End If
End Sub
Private Sub TXTUSUARIO_AfterUpdate()
Me.TXTPERMISO.Requery
End Sub
La idea es que donde hagas formularios para cada tipo de acceso y según el perfil accedas a ellos.
Si me dejas un e-mail te mando la BD de ejemplo.
mi correo es [email protected]
Gracias
Ya te he enviado el correo
Confírmame que lo has recibido y si esto te sirve.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
2 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
1 respuesta

Outlook ya no envía mis correos desde Access, no reconoce la contraseña

Desde access envío un correo electrónico al cliente con el PDF de una factura a través de outlook, pero recientemente con la seguridad actual (oAuth) ya no me deja, utilizo outlook 2016 ¿Alguien sabe como resolverlo?
1 respuesta

En una tabla hacer una Suma acumulada

Tengo una tabla con 5 columnas id, código, fecha, cantidad, cantidadacumulada, donde la cantidad acumulada es el resultado de sumar acumulado todos los códigos iguales dado por los números de la casilla cantidad, el tema que en visual basic lo logro...
3 respuestas

Usuarios múltiples para un crm

Necesito q al CRM q he creado puedan acceder al mismo tiempo dos o más usuarios para registrar info, de ser posible la base de datos deberia estar guardada en Dropbox.
5 respuestas