Detect windows username in a form

[rayted]

Hi guys,



I have a form I am using and a 'Field' which reads 'Requested by'. In this box, I want whoever to be logged into and using this form to have their name populated by their default windows login name. How can I make this happen? Do I need a Macro?

Thank you!

[isladogs]

To get the windows login name use

Me.RequestedBy=Environ("UserName")

where RequestedBy is the name of the form control

Add this line to your Form_Load event code

[rayted]

Hi ridders52,

Thanks for that. Where do I input the code? on the embedded macro in get focus or somewhere else?

Thank you

[isladogs]

As previously stated:

Add this line to your Form_Load event code

i.e. use a VBA event procedure

Private Sub Form_Load()

     Me.RequestedBy=Environ("UserName")

     'Then any other existing form load code goes here ....
End Sub

I never use embedded macros so can't advise on their use

[Gicu]

Hi there,

I would put Colin's code in the OnCurrent Event of the form rather than OnLoad or even better add the following code to a standard module and then use the Default Value of the RequestedBy text box to call the custom function

Public Function getWinUser() As String    getWinUser = Environ("UserName") End Function

See the following thread for more info:https://access-programmers.co.uk/for...d.php?t=221559

Cheers,
Vlad

[Gicu]

There seems to be a problem with the code tags, you need to function on separate lines like this

Public Function getWinUser() As String
getWinUser = Environ("UserName")
End Function

Cheers,
Vlad

[isladogs]

Hi there,

I would put Colin's code in the OnCurrent Event of the form rather than OnLoad ..

I haven't checked the link but would you like to explain why?
Form current will run each time the record is changed but for this purpose you don't need it to be repeatedly updated.

However, I agree that using a function is obviously a good idea if the code will be used elsewhere

[Gicu]

Hi Colin,

In the original post the OP mentions a "field" so I am assuming that it is a table field to which they want to assign a "default" value of Environ("UserName"). So I took it not as a simple "visual" unbound text box to show on the form who is the current Windows user, but more of a data question being related to a specific record. But again I am only speculating, maybe rayted can clear this for us.

Cheers,
Vlad

[June7]

Do you want to save the Windows username or another value? I have a Users table with a unique record for each user. Each record has user name, user ID, and their Windows login username. I use Environ("USERNAME") to do a lookup on the table to retrieve UserID and save UserID to record.

[rayted]

Hi Colin,

In the original post the OP mentions a "field" so I am assuming that it is a table field to which they want to assign a "default" value of Environ("UserName"). So I took it not as a simple "visual" unbound text box to show on the form who is the current Windows user, but more of a data question being related to a specific record. But again I am only speculating, maybe rayted can clear this for us.

Cheers,
Vlad

See image - the requested by field - I want this to be populated by using my windows logon name so I don't have to select someone else's name

[June7]

Do you want to allow user to edit the Requestor?

Access objects do not recognize the Environ() function, only in VBA. So would have to create VBA code to pull the USERNAME. This code could be a custom function in a general code module that can be called from anywhere, perhaps even from textbox or combobox DefaultValue property.

If that statement makes no sense to you, I suggest you spend a solid week studying how to program in Access. Do you have ANY programming knowledge?

[isladogs]

@rayted
So you now have plenty of advice on how to do this - in each case using Environ("UserName")

Method 1 - Form_Load event - see my post 4

Method 2 - create a function as suggested by Gicu then use that either in the Form_Load event or the control's default value - see post 6

Method 3 - as post 6 plus a lookup table as suggested by June7 - see post 9

There are other more complicated methods - nothing else is as simple as these

[Gicu]

Hi Colin,

What would happen in the method 1 scenario (unig the OnLoad event) if he decides to add two records. The second one will not get the right value. Also, would you run the risk to overwrite somebody else's records if the db is used in a multiuser environment?

I believe the options will be to create a custom function and attach that to the default value property of the control or to add code to the OnCurrent event like this:

If Me.NewRecord then Me.ReguestedBy =Environ("UserName") 'where RequestedBy is the name of the combo box

Cheers,
Vlad

[isladogs]

Looking at the screenshot, there is a form & subform with the user name textbox in the main form
So whilst your point is valid, I don't think its necessarily relevant in this case

however, the OP knows what his database contains and can choose whichever he thinks is best .....