Application.UserName Equivalent in MS Access

[azizrasul]

Does anyone have VBA code that I can use in MS Access that provides the same data as Application.UserName as used in MS Excel?

 

[Legacy 456155]

environ("username") should work.

Dim UserName As String
UserName = environ("username")

 

[azizrasul]

This only gives first name while the Excel equivalent gives the first and last name.

 

[welshgasman]

I think you will need to roll your own.?
Google throws up lots of options, but I could not find one returning what you are asking?

Have you thought about accessessing AD?

 

[azizrasul]

I don't know how to access AD, hence the thread.

 

[Legacy 456155]

There are API functions and also WMI. A quick search should get you what you need.

 

[welshgasman]

I don't know how to access AD, hence the thread.

Well, I always start with a Google.?
Just create a function that calls Excel then.? However while that will show my name on my personal computer, if I was in a works setting I would expect it not to show who I am? as I would be using a company ID like 317859456.

When I created a DB for a bank I worked for, I just had a table with the userid as above and the users name, level etc. If they were not in the table, they could not use the DB. It did not mater which computer was used.?

 

[azizrasul]

I found the following code:-

Public Function GetUserADFullName() As String
'https://thedbguy.blogspot.com/2020/07/get-users-full-name.html

    Dim objADInfo As Object
    Dim objADUser As Object
    
    On Error GoTo ErrorHandler
    
    Set objADInfo = CreateObject("ADSystemInfo")
    Set objADUser = GetObject("LDAP://" & objADInfo.UserName) 'ERROR HERE
    
    GetUserADFullName = objADUser.FullName
    
    Set objADUser = Nothing
    Set objADInfo = Nothing
    
ErrorHandler:
    If Err.Number <> 0 Then
        MsgBox "Error " & Err.Number & ": " & Err.Description, vbInformation, "basUtilities - GetUserADFullName"
    End If

End Function

However I get an error as indicated above.

-2147023564: Automation error
No mapping between account names and security IDs was done.

 

[Kyle123]

Do you use active directory are your users logged onto the domain? That won't work if you don't - your comment about the Envrion("username") only returning the first name indicates that you may not.

Application.Username only returns the name that was typed in when office was installed - it could be anything

 

[azizrasul]

OK I see what you mean. I wonder how Excel is able to do this?