Da la impresión de que lo que quieres hacer es controlar el tiempo que está el usuario en cada registro. Si es así, lo que puedes hacer es controlar el tiempo desde que entra al registro hasta que se actualiza la información en la base de datos.
En este caso lo que puedes hacer es mantener una variable global que mantenga la hora de cuando entra (AlActivarRegistro) y, a la hora de actualizar el registro, que la almacene (BeforeUpdate).
Vendría a ser algo así como :
Private hora As Date
Private Sub Form_Current()
hora = Time()
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Tiempo = hora - Time()
End Sub
