Automatic Username On Data Entry

[netchie]

Hi,



Ok, so what I am aiming for is to automatically pop-up the username of the person who is adding data into the database. I created a table "tblCurrentlyLoggedIn" and Field Name is "empCurrentlyLoggedIn". For my Data Entry button, I put this:

Private Sub Form_Close()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM tblCurrentlyLoggedIn WHERE empCurrentlyLoggedIn = fOSUserName()"
DoCmd.SetWarnings True
'Application.CompactRepair Application.CurrentDb.Name, Application.CurrentDb.Name
End Sub


Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tblCurrentlyLoggedIn ( empCurrentlyLoggedIn ) " & _
"SELECT fOSUserName() AS Users;"
DoCmd.SetWarnings True
End Sub

When I tested it and clicked the Data Entry button, I got an error message "Run time error '3085': Undefined function 'fOSUserName' in expression. What did I miss?

[pbaldy]

Did you add the function to a standard module?

http://access.mvps.org/access/api/api0008.htm

[netchie]

Sorry pbaldy... access dummy here lol. What do you mean by standard module?

Ok, I deleted the program that I posted before and copied the program you gave me and paste it to Event Procedure of my Data Entry button. I tried it and I got an error message saying "The expression On Click you entered as the event property setting produced the . error: Only comments may appear after End Sub, End Dunction, or End Property. The expression may not result in the name of macro, the name of a user-defined function, or [Event Procedure]. There may have been an error evaluating the function, event, or macro.

[pbaldy]

A standard module is not behind a form or report. Insert/Module in the VBA window. Make sure not to name it the same as the function.

As to your error, it sounds like you got something outside the bounds of Begin Sub and End Sub. Hard to say exactly without seeing it.

[netchie]

I put back the old program that I had before and found a way to create a module and pasted the one that you gave me. I tested it, I clicked the data entry button and yes there is no error message anymore BUT how come the username field is still blank?

[pbaldy]

Can you post the db here?

[pbaldy]

It worked fine for me. If I open the applicable form, my name is added to the table. When I close it, it's deleted from the table.

[netchie]

Not for me; I clicked the main menu for new entry, clicked New button and entered data. After I saved it, I went to the its table and everything I entered were saved including DateOccurred except username. Please see atached.

[pbaldy]

That must be some other process. The one on this thread populates a single field called empCurrentlyLoggedIn. That is the only field in that table.

[netchie]

Ok, thanks for your help

Have a great day.

[pbaldy]

No problem. I'll keep an eye out for your other threads on the topics in your email.