Cant get username

[Lee_S]

Hi, am trying to fill a text box with the current windows username in Access 2000, but im having trouble.

So far im using this..

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Function CurrentUser() As String
    Dim strBuff As String * 255
    Dim x As Long
    CurrentUser = ""
    x = GetUserName(strBuff, Len(strBuff) - 1)
    If x > 0 Then
        x = InStr(strBuff, vbNullChar)
        If x > 0 Then
            CurrentUser = UCase(Left$(strBuff, x - 1))
        End If
    End If
End Function

And on my form, I have a text box with 'control source' set to =CurrentUser.

Problem is this returns 'Admin', which I assume is what im logged into the DB as. But i want the windows username, not this.

Anyone help please?

lee

[dglienna]

Call the function with a msgbox. I just did and got the windows user name.

[sciguyryan]

Problem is this returns 'Admin', which I assume is what im logged into the DB as. But i want the windows username, not this.

Anyone help please?

lee

That does return the Current Windows Username. For me it Returns Ryan Jones as that is my Windows Loggin name and, my Office Name if RJones so it does work.

Cheers,

RyanJ

[RobDog888]

I wrote that code and it does return the current logged user username . The problem is that the
function call is conflicting with the Access Property "CurrentUser" which returns the Access logged
in user - "Admin" usually.

Change the function call to something other then CurrentUser.