How to reference current user? 1

[sqleptical]

I'm creating a form that users use to enter data into tables.

Each user has their name & initials associated with each respective license of MS Access 2000.

Is there a way to have the VBA code reference the user name when they hit the Submit button?

I'd like to use this to track who made each data entry without having the users select who they are from a combo box or have to type it into a text box.

Thanks!

 

[bubba100]

This grab the logon name of the person.

Dim GetUser As String
GetUser = Environ("UserName")

 

[EBGreen]

Only if your environment happens to set that particular environment variable.

[red]"... isn't sanity really just a one trick pony anyway?! I mean, all you get is one trick, rational thinking, but when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick[/red]

 

[fneily]

Environ variables can be changed. Thus the name variables. You may want to see:

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

 

[JerryKlmns]

sqleptical

If you have set user-level security, access built-in CurrentUser() function returns the user name used to log on

 

[jrbarnett]

fNeily - that code is fine, provided that the network is based around a Microsoft Active Directory domain.

If you are working in a Novell NDS/eDirectory environment, use

http://databaseadvisors.com/pipermail/accessd/2004-September/027558.html

Note that this code is known to work with the client up to 4.93 on Windows 2000 and Windows XP. I have not tested it with Windows Vista.

John

 

[fneily]

jrbarnett - Good point. Thanks.

 

[sqleptical]

Thank you all for your help!

CurrentUser() returned 'Admin'

Dim GetUser As String
GetUser = Environ("UserName")

...returned the UserName I was looking for.

 

[jrbarnett]

sqleptical - as well as fneily's comment about being able to change the contents of environment variables, they also are only populated on Windows NT family systems (NT, 2000, XP, Vista). The environment variables aren't set on Windows 9x systems (95, 98, Me) - although rare now in commercial systems, this is another consideration for using the API calls instead.

John