Herramientas de base de datos>herramientas de base de datos>cifrar con contraseña
esto hace que se solicite una contraseña para poder abrirla.
las versiones anteriores de access tenían un sistema de permisos y usuarios, pero todo eso ahora lo han pasado a Sharepoint, para que los permisos se controlen de manera unificada desde la plataforma sharepoint de gestión documental, así que si quieres algo independiente, tendrías que programarlo, por ejemplo con una tabla de usuarios y contraseñas, y comprobar los datos mediante VBA
pero ten en cuenta que siempre será posible entrar a la base de datos sin ejecutar ningún código VBA y así poder ver los datos y los formularios, simplemente pulsando la tecla Mays (shift) mientras abres el archivo.
puedes crear un formulario donde pidas usuario y contraseña, luego compruebas en la tabla donde guardes las parejas de usuarios y contraseñas si hay un dato que coincide con los valores introducidos, y en caso correcto que continúe la aplicación.
algo como esto:
(el botón se llama cmd_login, y la tabla con los datos de usuarios se llama tabla_usuarios, con un campo usr y un campo pwd para usuario y password respectivamente)
Private Sub cmd_login_Click()
' comprobamos usuario
Dim Base As Database
Dim RS As Recordset
Dim Consulta As String
Consulta = "select * from tabla_usuarios where usr = '" & Me.usuario.Value & "' and pwd = '" & Me.pwd.Value & "'"
' buscamos usuario activo con ese usuario y contraseña
Set Base = CurrentDb
Set RS = Base.OpenRecordset(Consulta)
If RS.RecordCount = 0 Then
' datos incorrectos, no hay un usuario con estos datos
MsgBox "datos de acceso incorrectos", vbOKOnly + vbCritical
Me.usuario.SetFocus
Exit Sub
Else
' datos correctos, hay (al menos) un usuario con estos datos (sólo habrá uno porque la tabla impide duplicar nombre)
' aquí haz lo que tengas que hacer, por ejemplo cerrar este formulario
DoCmd.Close acForm, Me.Name
' y puedes abrir otro formulario pasándole como argumento el Identificador del usuario
Herramientas de base de datos>herramientas de base de datos>cifrar con contraseña
esto hace que se solicite una contraseña para poder abrirla.
las versiones anteriores de access tenían un sistema de permisos y usuarios, pero todo eso ahora lo han pasado a Sharepoint, para que los permisos se controlen de manera unificada desde la plataforma sharepoint de gestión documental, así que si quieres algo independiente, tendrías que programarlo, por ejemplo con una tabla de usuarios y contraseñas, y comprobar los datos mediante VBA
pero ten en cuenta que siempre será posible entrar a la base de datos sin ejecutar ningún código VBA y así poder ver los datos y los formularios, simplemente pulsando la tecla Mays (shift) mientras abres el archivo.
------
Ya sé Excel, pero necesito más.
lo que pasa esque quisiera saver quien ah entrado a mi fomulario y saver quien ha echo cambios por medio de un login
Saludos
puedes crear un formulario donde pidas usuario y contraseña, luego compruebas en la tabla donde guardes las parejas de usuarios y contraseñas si hay un dato que coincide con los valores introducidos, y en caso correcto que continúe la aplicación.
algo como esto:
(el botón se llama cmd_login, y la tabla con los datos de usuarios se llama tabla_usuarios, con un campo usr y un campo pwd para usuario y password respectivamente)
Private Sub cmd_login_Click()
' comprobamos usuario
Dim Base As Database
Dim RS As Recordset
Dim Consulta As String
Consulta = "select * from tabla_usuarios where usr = '" & Me.usuario.Value & "' and pwd = '" & Me.pwd.Value & "'"
' buscamos usuario activo con ese usuario y contraseña
Set Base = CurrentDb
Set RS = Base.OpenRecordset(Consulta)
If RS.RecordCount = 0 Then
' datos incorrectos, no hay un usuario con estos datos
MsgBox "datos de acceso incorrectos", vbOKOnly + vbCritical
Me.usuario.SetFocus
Exit Sub
Else
' datos correctos, hay (al menos) un usuario con estos datos (sólo habrá uno porque la tabla impide duplicar nombre)
' aquí haz lo que tengas que hacer, por ejemplo cerrar este formulario
DoCmd.Close acForm, Me.Name
' y puedes abrir otro formulario pasándole como argumento el Identificador del usuario
DoCmd.OpenForm "formulario_principal", acNormal, , , , , RS!Id
End If
RS.Close
Set Base = Nothing
Set RS = Nothing
End Sub
------
Ya sé Excel, pero necesito más.