** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Usuario Activo
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoUsuario Activo

 Responder Responder
Autor
Mensaje
conedgar2006 Ver desplegable
Asiduo
Asiduo


Unido: 18/Octubre/2010
Localización: Paraguay
Estado: Sin conexión
Puntos: 204
Enlace directo a este mensaje Tema: Usuario Activo
    Enviado: 06/Marzo/2016 a las 20:28
buen dia amigos... utilizo un ejemplo del buho para poder acceder mi base de datos un formulario donde se ingresa en usuario y conntraseña .. tengo 3 usuarios y necesito saber que usuario ingreso a la aplicacion, por ejmplo en el formulario de vetas vizualizar el usuario . dejo el codigo

Private Sub cmdLogin_Click()

'Check to see if data is entered into the UserName combo box

    If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
            MsgBox "Debes ingrear el Usuario.", vbOKOnly, "Dato Requerido"
            Me.cboEmployee.SetFocus
        Exit Sub
    End If

'Check to see if data is entered into the password box

    If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
            MsgBox "Debes ingresar la Clave", vbOKOnly, "Dato Requerido"
            Me.txtPassword.SetFocus
        Exit Sub
    End If

'Check value of password in tblEmployees to see if this matches value chosen in combo box

    If Me.txtPassword.value = DLookup("CLAVE", "USER", "[ID]=" & Me.cboEmployee.value) Then

        Id = Me.cboEmployee.value
        USUARIO = Me.txtPassword

'Close logon form and open splash screen
        
        DoCmd.Close acForm, "LOGON", acSaveNo
        DoCmd.OpenForm "AYUDA"

        Else
        MsgBox "Contraseña Incorrecta. Intente de Nuevo", vbOKOnly, "INVALIDO!"
        Me.txtPassword.SetFocus
    End If
    
'If User Enters incorrect password 3 times database will shutdown
    
    intLogonAttempts = intLogonAttempts + 1
    If intLogonAttempts > 2 Then
        MsgBox "No has tenido suceso.  Por favor contactar con el Adminstrador. conedgar2006@hotmail.com ", vbCritical, "Acceso Restringido!"
        Application.Quit
    End If
    
End Sub

la tabla donde tengo mis usuarios  es USER que cuenta con los campo ID, CALVE, NOMBRE


cde - paraguay
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5833
Enlace directo a este mensaje Enviado: 06/Marzo/2016 a las 21:31
Hola!

En la página del Maestro Taribo hay un ejemplo que te pueda servir (Trata de saber que usuario había modificado un registro), solo adaptándolo a tus necesidades. EjemploControlModificaciones
Un Saludo.
Arriba
conedgar2006 Ver desplegable
Asiduo
Asiduo


Unido: 18/Octubre/2010
Localización: Paraguay
Estado: Sin conexión
Puntos: 204
Enlace directo a este mensaje Enviado: 06/Marzo/2016 a las 21:45
gracias lo decargue ... el ejemplo vizualiza el usuario de windows.. lo que quiero ver es que usuario inicio la aplicacion de acces.. tengo el usuario jefe, cajero, visitante.
cada uno con sus claves .. 
que mediante un formulario ingresa la contraseña si es correcta abre la aplicacion. ese usuario queria poder captar y utilizar ese dato para poder filtrar en algunos informes.
cde - paraguay
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5833
Enlace directo a este mensaje Enviado: 06/Marzo/2016 a las 22:03
Hola amigo!!

No descarto que haya ejemplos a medida, pero te lo dije en el mensaje anterior que tendrías que adaptarlo a tus necesidades. además si mirases un poco mas te habrías dado cuenta que la segunda opción te exige introducir el nombre en un InpuBox.
Un Saludo.
Arriba
conedgar2006 Ver desplegable
Asiduo
Asiduo


Unido: 18/Octubre/2010
Localización: Paraguay
Estado: Sin conexión
Puntos: 204
Enlace directo a este mensaje Enviado: 06/Marzo/2016 a las 22:23
muchas gracias de nuevo.. lo e intentado por ese metodo pero utilizando el inputBox puedo ingresar el mombre incorrecto o mal escrito pero seguire tratando de buscar una salida.. estoy tratando de guardar en un campo de mi tabla el usuario que ingreso al sistema.
cde - paraguay
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5833
Enlace directo a este mensaje Enviado: 06/Marzo/2016 a las 23:48
Hola!

Qué ejemplo es el del maestro Búho para echarle un vistazo. según el código el control "cboEmployee" que debe ser un cuadro combinado, ¿solo tiene datos numéricos? si tiene varias columnas simplemente creas un campo en tu tabla que capte el nombre del empleado y otro campo para ingresar la fecha y la hora de loguearse.
Un Saludo.
Arriba
conedgar2006 Ver desplegable
Asiduo
Asiduo


Unido: 18/Octubre/2010
Localización: Paraguay
Estado: Sin conexión
Puntos: 204
Enlace directo a este mensaje Enviado: 07/Marzo/2016 a las 01:12
el link del ejemplo de buho
http://www.mvp-access.es/buho/ficheros/EjemploFormPassword.zip

una camino que encontre fue crear una tabla tblUsuarioActivo que cuenta con el campo IdUsuario para guardar en el el usuario activo mediante el codigo


Dim sSQL As String
' Creamos una sentencia SQL que es una consulta de
' actualización de la tabla
  
sSQL = "UPDATE tblUsuarioActivo SET " _
 "tblUsuarioActivo.IdUsuario = '" & Me.txtIdUsuario & "'"
  

  
DoCmd.SetWarnings False
DoCmd.RunSQL sSQL

DoCmd.SetWarnings True

utilizo la version 2003 y en el texto en rojo tengo un error de sintaxis
cde - paraguay
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5833
Enlace directo a este mensaje Enviado: 07/Marzo/2016 a las 01:54
Hola!

Creo que debería ser una consulta de anexar datos con Insert Into:

Te he creado una tabla con campo usuario y otro entrada con valor prederminado Ahora() para que inserte la fecha y la hora de loguearse.

aquí te dejo la base corregida:

https://onedrive.live.com/?id=70302728F05A12E3%211505&cid=70302728F05A12E3
Un Saludo.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5833
Enlace directo a este mensaje Enviado: 07/Marzo/2016 a las 02:08
Hola!

Si quieres actualizar, el código sería:

sqlInsertar = "UPDATE tbla_control Set [usuario] = '" & Me.cboEmployee.Column(1) & "'"
DoCmd.RunSQL sqlInsertar
Un Saludo.
Arriba
conedgar2006 Ver desplegable
Asiduo
Asiduo


Unido: 18/Octubre/2010
Localización: Paraguay
Estado: Sin conexión
Puntos: 204
Enlace directo a este mensaje Enviado: 07/Marzo/2016 a las 02:57
quedo perfecto con tu codigo, muchas gracias 

sqlInsertar = "UPDATE tbla_control Set [usuario] = '" & Me.cboEmployee.Column(1) & "'"
DoCmd.RunSQL sqlInsertar

se puede cerrar el hilo. gracias por la colaboracion
cde - paraguay
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable