logged register user who made change

[ratercero]

Hello, I have a login form that displays different menus depending on the user. I’m saving as a variable the user name and intend to use it on all the forms to register the user that changed fields.

it does not seem to work on the other forms, here is the code on the login:

Private Sub BTINGRESAR_Click()


'select the navigation pange
Call DoCmd.NavigateTo("acNavigationCategoryObjectType")
'hide the selected object
Call DoCmd.RunCommand(acCmdWindowHide)




If IsNull(Me.TXTUSUARIO) Then
MsgBox "Ingrese Nombre de Usuario", vbInformation, "Usuario requerido"
Me.TXTUSUARIO.SetFocus


ElseIf IsNull(Me.TXTCONTRASENA) Then
MsgBox "Ingrese Contraseña", vbInformation, "Contraseña requerida"
Me.TXTCONTRASENA.SetFocus
Else




Dim CURRENTUSER As String


CURRENTUSER = TXTUSUARIO.Value




Dim rs As Recordset


Set rs = CurrentDb.OpenRecordset("Accesos", dbOpenSnapshot, dbReadOnly)


rs.FindFirst "Usuario='" & Me.TXTUSUARIO & "'"


If rs.NoMatch = True Then
Me.LBL_INCORRECTO.Visible = True
Me.TXTUSUARIO.SetFocus






Exit Sub
 
 End If
 
If rs!Contrasena <> Me.TXTCONTRASENA Then
Me.LBL_INCORRECTO.Visible = True
Me.TXTCONTRASENA.SetFocus




Exit Sub
 
 End If
 
 If rs!Nivel = "Total" Then
  
DoCmd.OpenForm "MENU"
DoCmd.Close acForm, Me.Name
 Else
DoCmd.OpenForm "MENU_2"
DoCmd.Close acForm, Me.Name
 


End If
End If




End Sub

and this is the code to call the CURRENTUSER variable on the other forms:

Private Sub CMB_CLIENTE_AfterUpdate()

Fecha_de_Modificacion = Now


Actualizado_por = CURRENTUSER


End Sub

I apreciate any advice.

thanks!

[pbaldy]

The variable is declared within a sub, thus only available within that sub. Declare it as public in a standard module, or use a TempVar, or put it in a hidden form control on a form that stays open.

[ratercero]

Thank you pbaldy,

Considering this is a front end wich one is better for me? if 3 users are logged in it should record the name of each on the changes they make.

I your can provide the know how it would be great.

RT

[pbaldy]

All should work, so whichever you're most comfortable with.