Retrieve Windows Username and then lookup value

[iDeals]

Okay so I have a field that displays the active windows user, for example: seans

we use first name last initial for windows login. However I want to display full name formatted properly. (i.e.) Sean Schaeffer

I assume a table with full names is needed and then a query but for the life of me I cant figure out how to tie it all together.

ideas?

[pbaldy]

You can use DLookup() or open a recordset to get the full name from your table of full names, using the Windows user as the criteria.

DLookup Usage Samples

[ItsMe]

If you are using Active Directory you can get info from it. When a User is created in AD, there is an option for entering the user's full name. This example demonstrates how to get info from AD for the current user.

https://www.accessforums.net/program...tml#post281033



.

[iDeals]

Do you put DLookup in VBA or just in Control Source?

[pbaldy]

Do you put DLookup in VBA or just in Control Source?

Either, depending on your needs.

[iDeals]

okay, here are my results.

when my form loads I use the following to populate a textbox:

Private Sub Form_Load()
Me.Text35 = Environ("UserName")
End Sub

which gives me the active windows user.

I have tried to following to get the proper name to no avail:

Private Sub Form_Load()
Me.Text35 = Environ("UserName")
Me.Text49 = DLookUp([DisplayName],[tblActiveUser],[Criteria]=[Me].[Text35].[Value])
End Sub

It didn't like that so I tried the following in the control source:

=DLookUp([DisplayName],[tblActiveUser],[Criteria]=[Me].[Text35].[Value])
and
=DLookUp([DisplayName],[tblActiveUser],[Criteria]=Environ("UserName"))

to which I get a #Name? error

[pbaldy]

See if this helps:

DLookup Usage Samples

[June7]

Access doesn't recognize Environ() - only in VBA.

Following Paul's excellent examples - static parameters for the arguments go within quote marks and filter argument text parameters require apostrophe delimiters.

=DLookUp("[DisplayName]", "[tblActiveUser]", "[Criteria]='" & [Text35] & "'")

[pbaldy]

I'll get out of the way.

[iDeals]

that's what I referenced initially for the Dlookup structure. Played around a bit more but no dice.

[iDeals]

Access doesn't recognize Environ() - only in VBA.

Following Paul's excellent examples - static parameters for the arguments go within quote marks and filter argument text parameters require apostrophe delimiters.

=DLookUp("[DisplayName]", "[tblActiveUser]", "[Criteria]='" & [Text35] & "'")

Perfection! Thank you June & Paul!