Access - Usar contraseñas

 
Vista:

Usar contraseñas

Publicado por Ray (4 intervenciones) el 17/11/2001 20:38:12
hola Amigos
como se hace para hacer que la base de datos tenga su propio validador de usuarios sin necesidad de usar las herramientas de Establecer Contraseña para Base de Datos
ya que los usuariostiene los mismo privilegios por usar una misma clave.
y la otra herramienta de seguridad que es cuenta de usaurios y grupos
depende de access y algun astuto trae el archivos que maneja estos acceso viola todo la seguridad.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Usar contraseñas

Publicado por leo (272 intervenciones) el 18/11/2001 15:22:28
hace un formulario que se inicio al abrir el programa y ahi se ingresa Nombre y contraseña, de ese modo te queda grabado quien uso el programa
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Usar contraseñas

Publicado por sol (97 intervenciones) el 20/11/2001 23:27:01
si quieres uno, mandame lo que necesitas y te lo hago...

sol
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Usar contraseñas

Publicado por Walter Rueda (9 intervenciones) el 28/05/2007 19:35:00
Este codigo lo vas a colocar en el boton de aceptar de tu formulario

Private Sub CmdAceptar_Click()


Dim dbs As Database, rst As Recordset
Dim RegDbs As Database, RegRst As Recordset
Dim strCriteria As String
Dim strCriteria1 As String

Set dbs = CurrentDb


strCriteria = Me.TxtUsuario
strCriteria1 = Me.TxtClave

Set rst = dbs.OpenRecordset("Empleados", dbOpenDynaset)

rst.FindFirst "User_Name=" & "'" & strCriteria & "'"
If rst.NoMatch Then
DoCmd.RunMacro "Invalid_username", 1
Clear_Username
Else
rst.FindFirst "Password_Usuario=" & "'" & strCriteria1 & "'"
If rst.NoMatch Then
DoCmd.RunMacro "Invalid_username", 1
Clear_Username
Else

Me.TxtNombre.Visible = True
Me.TxtUsername.Visible = True
Me.TxtNivelSeguridad.Visible = True

Me.TxtNombre = rst!NomApellidos_Empleados
Me.TxtUsername = rst!User_Name
Me.TxtNivelSeguridad = rst!Nivel_Seguridad

Me.TxtNombre.Visible = False
Me.TxtUsername.Visible = False
Me.TxtNivelSeguridad.Visible = False

DoCmd.OpenForm "Inicio"
Me.Form.Visible = False
End If
End If
rst.Close
Set dbs = Nothing

Set RegDbs = CurrentDb
Set RegRst = RegDbs.OpenRecordset("Registro_Usuarios", dbOpenDynaset)

RegRst.AddNew

RegRst!Nombre_Usuario = Me.TxtUsername
RegRst!fecha_trans = Date
RegRst!Hora_trans = Time

RegRst.Update

Set RegDbs = Nothing

End Sub

Espero te sirva si no enviame un mail salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar