Access - Saber quien digitó un registro

Buenas tardes

En una base de datos, requiero saber quien digitó un registro.

Se que hay varios ejemplos en la red, pero no logro encontrar uno que se pueda adaptar, agradezco su colaboración.

Tengo un ejemplo de que me causa muchas interrupciones y me funciona por ratos.

Gracias por la colaboración.

Si se requiere puedo adjuntar el archivo, pero la verdad me gustaría un ejemplo nuevo, este me ha causado muchos líos

Si has verificado varios y no son adecuados a tus intereses, si el que utilizas no es de tu agrado ... ¿no seria ético que indicaras cuales son para descartarlos? ...
Si tu tiempo es valioso el de los demás será igual de valioso o incluso de un valor superior ¿Por qué se ha de desperdiciar?

Hola, buen día.

Gracias, por la observación, en realidad la culpa es toda mía ya que en medio de mi angustia no medí el alcance de mis palabras.

En verdad ofrezco disculpas.

La cuestión es que uso un código que puede estar mal diseñado a continuación lo coloco y explico como y donde lo uso.



Lo uso de la siguiente manera:


La variable global "Numero_user", la coloco en un formulario con el campo donde voy a almacenar el usuario y en el evento al perder el enfoque de un acampo obligario " Me.Usuarioactivo = Numero_user "


Agradezco toda ayuda posible para mejorar este proceso que la verdad me tiene desesperada y mi nivel no alcanza para la corrección de este código.


Gracias a todos

No es como lo yo lo gestionaría ....

Se supone que se desea 'conservar' el referente al operario que introdujo/manipulo el registro, lo optimo seria que se guardase como 'un dato mas' del propio registro y dado que es el registro activo y los cambios se han de guardar (si no se manipula no hay nada que guardar) lo mas sencillo es en el evento de guardado poner o modificar ese dato con el correspondiente al usuario activo (se supone que ese dato se conoce, pues 'todo el conjunto' implica SEGURIDAD y la seguridad exige conocer al usuario para gestionar sus permisos).

Si lo que se desea es una tabla histórica de movimientos/manipulaciones (se la suele conocer como 'bitácora') una SQL de inserción que añadiese un nuevo registro (con datos tales como: Fecha/hora, usuario, tabla, variaciones ....) seria el medio ideal, se puede automatizar (para un uso genérico) creando una subfuncion o función a la que se la llamaría (desde cualquier lugar) y a la que se le adjuntarían los datos reales.

Ese código contiene parte curiosas, por ejemplo:

Se utiliza un bucle para recorrer todos sus registros (un simple DO ... LOOP hace lo mismo y necesita menos recursos) y asigna (o eso parece) el mismo dato a todos ellos .... (a continuación lo indicado)

For I = 1 To Rst.RecordCount
Rst.Edit
Nombreusuario(Rst.Fields(0)) = Rst.Fields(1)
Rst.MoveNext
Next I

Visto 'desde afuera' parece carente de sentido.

Comentas que se utilizan un par de variables, pero no se reflejan en el código expuesto ..... (que tampoco tengo claro que es lo que se pretende hacer con el)

Por cierto, las variables que se declaran en un formulario solo 'existen' cuando el formulario esta abierto (definir una variable como publica solo afecta al ámbito, no a su 'vida útil')

Bien, ahora tengo esto como variable global he investigado un poco el asunto, he cambiado algunas cosas, pero aún no funciona, por favor una manito, tengo lo siguiente:

Public Function Numero_user() As String
Dim Usuario_Logeado As String

Usuario_Logeado = DBSeleccionarUsuario.Column(0)

Numero_user = Usuario_Logeado

End Function

Tabla "T_USUARIOS", campos Id, autonumérico, Usuario, nombre del usuario que se logea, "Password", contraseña que lo habilita para acceder a la BD


DBSeleccionarUsuario, es el nombre del combo donde selecciono el usuario que va a ingresar a la BD "REDSERFARMA"

La sintaxis del combo "DBSeleccionarUsuario" es: SELECT T_USUARIOS.Usuario, T_USUARIOS.[Id] FROM T_USUARIOS ORDER BY T_USUARIOS.Usuario;


Coloco esto Al Perder el Foco en un control, para que me muestre en el campo el valor del Usuario Activo Logeado

Private Sub Id_Tabla_LostFocus()
Me.UsuarioLog.Value = Numero_user
End Sub


Me genera un error 424, se requiere un objeto

Gracias

No lo entiendo ....

Si El usuario (digamos que PEPE con el ID 7777) se logueó para entrar en la aplicación ¿porqué no se guardo en alguna parte ese ID?

Seria tan sencillo como:
Me.Numero_user = (ese dato guardado antes, si: al inicio, cuando se le permitió entrar)