Registro de ingreso usuario por bitácora en access
En mi proyecto me piden que debo realizar una bitácora de los usuarios que ingresan
userlevel = DLookup("Admin", "usuarios", "usuario = '" & Me.txtusuario.Value & "'")
If userlevel = -1 Then
LogedUser = NameUno
DoCmd. Close acForm, "Logeo"
DoCmd. OpenForm "MenuAdmini"
SQLdato = "INSERT INTO bitacora [(nombreUsuario)] Values (NameUno)"
Mi idea es que cuando el código valida el usuario que esta ingresando me gustaría guardar
El nombre del usuario que esta ingresando y yo pensé en generar un insert into pero no guarda cual sera el problema que no me guarda.
2 Respuestas
Teniendo en cuenta lo anterior encontré el procedimiento adecuado para que cuando
el usuario ingrese la tabla de bitácora almacene los datos la corrección es la siguiente:
If userlevel = -1 Then
LogedUser = NameUno
DoCmd.Close acForm, "Logeo"
DoCmd.OpenForm "MenuAdmini"
StrSQL = "INSERT INTO bitacora (nombreUsuario) VALUES ('" & NameUno & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL StrSQL
DoCmd.SetWarnings True
Esa era la solución