Importing NT username into a table

[bignate]

Hi,



I have made a form and information that is entered into the form is then put into a table. I now want the nt username of the person that is logged in to the computer to appear in the table when information they have entered into the form has been submitted.

I have searched for code that does this but I think I have been implementing it slightly wrong.For example there was API code that one website said I should use but an error came up every time I tried to open the form

If you need any additional info such as any VBA code I am currently using then please ask.

Thank You

[Subwind]

Option Compare Database
Option Explicit

Declare PtrSafe Function apiGetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal buffer As String, BufferSize As Long) As Long
Declare PtrSafe Function apiGetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal buffer As String, BufferSize As Long) As Long

Function GetUserName() As String
    'Wrapper for GetUserName API call.
    '
    'Procedure Syntax
        'Dim strUserName As String
        'strUserName = GetUserName
    'Procedure Syntax
    '
    Dim strName As String
    Dim lngSize As Long
    Dim lngRetVal As Long
    strName = Space(15)
    lngSize = 15
    lngRetVal = apiGetUserName(strName, lngSize)
    GetUserName = Left$(strName, lngSize - 1)
End Function

Function GetComputerName() As String
    'Wrapper for GetComputerName API call.
    '
    'Procedure Syntax
        'Dim strComputerrName As String
        'strComputerName = GetComputerName
    'Procedure Syntax
    '
    Dim strName As String
    Dim lngSize As Long
    strName = Space(16)
    lngSize = 16
    If apiGetComputerName(strName, lngSize) Then
        GetComputerName = Left$(strName, lngSize)
    Else
        GetComputerName = vbNullString
    End If
End Function

[Subwind]

The above code works for me. In the field, =GetUserName() or =GetComputerName()

~Matt

[bignate]

Hi,

Thanks for the quick reply. I made a new module and entered all of the code you gave me. I then put =GetUserName() into the default value for the 'Username' field in my table. However it says there is a syntax error and the lines

Declare PtrSafe Function apiGetUserName Lib "advapi32" Alias "GetUserNameA" (ByVal buffer As String, BufferSize As Long) As Long
Declare PtrSafe Function apiGetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal buffer As String, BufferSize As Long) As Long

are in red so there is some problem with it.

By the way is the function for getting the computer name necessary for me even though I only want the username?

Thanks again

[Subwind]

Try this article, explains it better.

http://www.databasedev.co.uk/network_user.html

[bignate]

Thanks that works. What you told me to do in the first place was actually correct its just that you didn't say to put =GetUserName() into the default value field of the text box on the form . I also added to your rep for helping me solve my problem as well.

Thanks,
Nathan

[amrut]

Your problem has been already solved. Just try Environ("UserName") and Environ("ComputerName") functions in immediate window.