Código para guardar Usuario y Fecha.
Publicado por Fabio Esteban (11 intervenciones) el 04/02/2017 00:54:51
Buenas tardes, tengo una pequeña Base de Datos, la estoy utilizando para un proyecto de mi trabajo.
Tengo un formulario login, una tabla con el Nombre de Usuarios, con varios campos, entre ellos el de opción.
Con eso doy permiso para entrar a ciertos formularios o denegar el acceso a este.
Me he creado una tabla que llamo "bitácora" con los campos, ID, Usuario y Fecha
He encontrado este código del usuario 2pl y he tratado de adaptarlo a mi bd.
Sin embargo me da error de compilación
No sé encontró el método o el dato miembro.
Me podrían ayudar por favor.
Saludos y de antemano gracias.
Tengo un formulario login, una tabla con el Nombre de Usuarios, con varios campos, entre ellos el de opción.
Con eso doy permiso para entrar a ciertos formularios o denegar el acceso a este.
Me he creado una tabla que llamo "bitácora" con los campos, ID, Usuario y Fecha
He encontrado este código del usuario 2pl y he tratado de adaptarlo a mi bd.
1
2
3
4
5
6
7
8
9
10
Dim MI_BD As Database
Dim MI_RS As Recordset
Set MI_BD = DBEngine.Workspaces(0).Databases(0)
Set MI_RS = MI_BD.OpenRecordset("Bitacora")
MI_RS.MoveLastMI_RS.AddNewMI_RS.Usuario=Me.lbl_UsuarioActivo.Caption
MI_RS.Fecha= Date()
MI_RS.UpdateMI_RS.CloseSin embargo me da error de compilación
No sé encontró el método o el dato miembro.
Me podrían ayudar por favor.
Saludos y de antemano gracias.
Valora esta pregunta
0