Windows User Login Information

[MintChipMadness]

Hi Everyone,



I did a search and found a few websites with code to pull the windows user information. I listed the one below that looks like the easiest to use. Unfortunately, I don't know any VBA so if anyone can give me a little bit better walk through than the website does that would be very helpful. This seems to be the only code necessary for my database and, from what I understand, there isn't a way to do this without VBA. I am creating an event for a form that adds the user information to a table when a new record is inserted. I'll create a macro that sets the value of the field to the function.

My first question about the website instructions is how do I paste the code into a new module? If so which one. My create panel has module and class module. My second question is, how do I use the function? I tried to test it by creating a text field and making it equal to the function (=fOSUserName()) and it didn't work.

Thank you very much for your assistance


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

[pbaldy]

You'd want a standard module, not a class module. Also make sure you don't name the module the same as the function.

[June7]

This is what I use: VBA.Environ("UserName")

Yep, that's all of it, exactly as shown (actually, it will work without the VBA. qualifier).

Access will not recognize the Environ function so can't use in textbox ControlSource or in query or macros. Examples from my db:

Me.tbxUser = DLookup("UserInitials", "Users", "UserNetworkID='" & VBA.Environ("UserName") & "'")

and

Private Sub tbxUser_AfterUpdate()
If Me.tbxUser Like "[A-Z][A-Z][A-Z]" Or Me.tbxUser Like "[A-Z][A-Z]" Then
    CurrentDb.Execute "INSERT INTO Users(UserNetworkID, UserInitials) VALUES('" & VBA.Environ("UserName") & "', '" & UCase(Me.tbxUser) & "')"
    Call UserLogin
Else
    MsgBox "Not an appropriate entry.", vbApplicationModal, "EntryError"
End If
End Sub

[MintChipMadness]

You'd want a standard module, not a class module. Also make sure you don't name the module the same as the function.

Thank you for clearing that up. The website said to name it the same but I changed the name of the Module 'UserName'. I listed the code for the module below. If the module was created correctly, how do I use it? Do I create an event for a new record that says.

me.[Path to field to change] = fOSUserName()

?

Option Compare Database
Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
    
Function fOSUserName() As String
' Returns the network login name
Dim lngLen As Long, lngX As Long
Dim strUserName As String
    strUserName = String$(254, 0)
    lngLen = 255
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0) Then
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function

[MintChipMadness]

This is what I use: VBA.Environ("UserName")

Yep, that's all of it, exactly as shown (actually, it will work without the VBA. qualifier).

Access will not recognize the Environ function so can't use in textbox ControlSource or in query or macros. Examples from my db:

Me.tbxUser = DLookup("UserInitials", "Users", "UserNetworkID='" & VBA.Environ("UserName") & "'")

and

Private Sub tbxUser_AfterUpdate()
If Me.tbxUser Like "[A-Z][A-Z][A-Z]" Or Me.tbxUser Like "[A-Z][A-Z]" Then
    CurrentDb.Execute "INSERT INTO Users(UserNetworkID, UserInitials) VALUES('" & VBA.Environ("UserName") & "', '" & UCase(Me.tbxUser) & "')"
    Call UserLogin
Else
    MsgBox "Not an appropriate entry.", vbApplicationModal, "EntryError"
End If
End Sub

Thank you for your reply. So would I just say on the event something like me.[field] = VBA.Environ("UserName") ? This is the first time touching any of the coding stuff so I apologize if something is written incorrectly.

[June7]

Yes, that should work. So should the api function.

BTW, the article did not specify what to name the module, just to 'call' function. Can 'call' from a query or ControlSource or macro or another VBA procedure.

However, the Environ function can also be wrapped in a custom function and called the same way.

[MintChipMadness]

Yes, that should work. So should the api function.

BTW, the article did not specify what to name the module, just to 'call' function. Can 'call' from a query or ControlSource or macro or another VBA procedure.

However, the Environ function can also be wrapped in a custom function and called the same way.

Thank you! The Environ function worked perfectly.