Brent, you have my Security Seminar. All of that is covered in there. Username/password logon. Setting permissions. Logging activity. You could easily log when the Main Menu shuts down. But, if you want to just get the Username setting on that computer, you could read the Windows environment variable. I covered this in Access Developer 31.

I seen the post topic and thought I was gonna get to come in here and praise how the Security Seminar is your best seminar in my opinion but you beat me to it :P.

Yeah that's one of my favorites.

Yes I would love to do a full blown user login but everyone has already complained about that so I just wanted to log in the background when user log on and of so I can see who is logged in at any given time and you used the database the most. but if the user has to do anything extra there will be complaints. I dont have D31 yet guess I will have to get that one next.

Brent Check out the Get Username WScript in the code vault.  That might be enough based on what you indicated.

I will look into that and I just bought D31 to I should be able to come up with something thanks Scott

I was looking into the GetNetwork User Name Function in the code Vault and I got an error while running. I would assume the code is using something having to do with 32-bit since I am running 64-bit on my machine.

You should just be able to PtrSafe it 64-Bit Access

If you have D31, the ENVIRONment variable works just the same, if not better.

Good Evening Richard I thought I got the user logon tracking working it seems to work then I distributed to my team and it seems every time they open the database it seems that it is logging their login and log off but with my username. I am using a tempvar to pass the username to a global function, maybe somehow the tempvars variable is holding my name? I have never used tempvars this is the first so I dont really understand them. I am posting what I have created if you can point me in the right direction why it would capture all the log ins and log offs but dont the other users names that would be great.

Global Module called ModUser
Public Sub Logging(Activity As String)

    CurrentDb.Execute "INSERT INTO ActivityLogT (LoggedUser, Activity) Values('" & TempVars("LoggedUser").Value & "', '" & Activity & "')"
    
End Sub

Public Function GetUserName() As String

    GetUserName = Environ("Username")

End Function
_________________________________________________________

Main Menu Form that stays Open

Private Sub Form_Load()
  DoCmd.ShowToolbar "ribbon", acToolbarNo
    TempVars("LoggedUser").Value = Me.LoggedUserTxt.Value
  
   ModUser.Logging "LogOn"

End Sub

Private Sub Form_Unload(Cancel As Integer)

    ModUser.Logging "LogOff"
  
End Sub

If anyone could point me in the right direction I would appreciate I have tried everything I know and still nothing seems to work.

OK I'm going to ask a dumb question.  Are you actually using a different account to test with? Or are you just going to different machines and logging in as you?

If it is the latter the user would always be you.

I send the front end file out to my colleges to see if it picks up their username which is is not doing, there is about 10 people that use the database and none of their names get picked up.

OK try this in your load event on the Main Menu.  Note you really don't need " .value "

     TempVars("LoggedUser") = GetUserName

Then when you need to use the value in the Logged User:

    Dim LU as string  'LoggedUser

    LU = TempVars![LoggedUser]

Use the LU in place of the & TempVars("LoggedUser").Value & in your SQL string

I tried this in the Blank Template and the Status box but didn't create a Activity Log.  I think this will work though.

Thank You for the help I will try that and distribute to my college tomorrow see if I can get it to work, really appreciate the help.

Good Morning I wanted to report after trying what Scott recommended worked, it seems everything is working like it should thanks again Scott.

WooHoo!!  

One problem down...  Now on to the next one.
I appreciate you letting me (us) know.  Some times people fix things and you never hear.

Sorry I didn't see this sooner. Took a few days off last week. Thanks, Scott, for picking up my slack! :)