PONERLE LOGIN PAR USUARIOS

4 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 7 meses 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3262
PONERLE LOGIN PAR USUARIOS

BUEN DIA A TODOS

 

COMO PUDO PONERLE A MI FORMULARIO DE  ACCESS  PONERLE UN LOGIN PARA USUARIOS

 

SALUDOS

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 11 horas 35 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: PONERLE LOGIN PAR USUARIOS

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.

tetorin
Imagen de tetorin
Offline
última acción: Hace 7 meses 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3262
Re: PONERLE LOGIN PAR USUARIOS

lo que pasa esque quisiera saver quien ah entrado a mi fomulario y saver quien ha echo cambios por medio de un login

 

Saludos

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 11 horas 35 mins
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
Re: PONERLE LOGIN PAR USUARIOS

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.