Application.Username and environ("Username")

[pedie]

How can i get Application.Username and not environ("Username") in access databse vba code?

Thanks!

 

[dk]

Hi

Whereabouts do you set the user name through the Access interface? Access is different to Excel in that you don't really save Access files but only the objects within so I don't if the username would be useful. I had a quick look through Options in Access 2003 and could not see a "Username" field anywhere.

DK

 

[pedie]

Hi

Whereabouts do you set the user name through the Access interface? Access is different to Excel in that you don't really save Access files but only the objects within so I don't if the username would be useful. I had a quick look through Options in Access 2003 and could not see a "Username" field anywhere.

DK

Thanks for replying...
When i go to access tools >> Popular >> username = Pedie Nz
I want to get that.

Thanks again.

 

[boblarson]

If you are using Access User Level Security then you can use

CurrentUser()

to return the logged in user.

 

[pedie]

Hi Bob, it returned admin...whereas i want the actual name that appears in the popular tab >> user name field in access tools

Thanks again for helping..

 

[james_lankford]

this assumes the user has excel installed
it also assumes that the name the user entered as the "licensed user" for excel is the same as the one in access

I'm sure the code has problems (aside from the ones made by the assumptions)
I never was very good with createobject vs getobject and all the error handling that goes with them

but this works (on my computer anyway)

Sub xxx()

    Dim xl As Object
On Error Resume Next
    Set xl = CreateObject("excel.application")
    MsgBox xl.UserName
    Err.Clear
On Error GoTo 0
    Set xl = Nothing

End Sub

 

[pedie]

Thanks James....since there is way without connecting to Excel... this is perfect...Appriciate your help...

Have a great weekend guys!!! Thanks all...
Thanks Bob

 

[wigi]

Without the unnecessary variable xl:

Sub xxx()
    On Error Resume Next
    MsgBox CreateObject("excel.application").UserName
    On Error GoTo 0
End Sub

 

[pedie]

Wigi,thanks again...

Without the unnecessary variable xl:

Sub xxx()

    On Error Resume Next
    MsgBox CreateObject("excel.application").UserName
    On Error GoTo 0
End Sub