user logged

jonyBravo · May 23rd, 2006, 05:05 PM

Hy there!
Could someone help me here please.
Is there any code to use in Access 2003 where I can get the username of the user Logged?
I've got one for Access 97 but now my boss is instaling Access 2003 and after tested it wasnt work. Can someone help me Please. Thanks

Jony Bravo

mmcdonal · May 24th, 2006, 07:50 AM

What code do you have for 97?

mmcdonal

jonyBravo · May 24th, 2006, 03:59 PM

I've got the following code:

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
    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

Thanks to help me

echovue · May 24th, 2006, 04:06 PM

Here is the code that I use in 2003. I probably couldn't explain how it works, but it does :-)

Code:

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


Public Function localUserName() As String
Dim m_myBuf As String * 25
Dim m_Val As Long, UserName As String

m_Val = GetUserName(m_myBuf, 25)
localUserName = Left(m_myBuf, InStr(m_myBuf, Chr(0)) - 1)
End Function

HTH

Mike

Mike
EchoVue.com

jonyBravo · May 24th, 2006, 04:29 PM

Thanks echovue

This work perfect.

:)

anukagni · November 27th, 2006, 07:22 AM

Hi i had taken the theard by searching i want to get the user logged details, i think this is the way to do in DB is any one explain me clearly about this from the base...

Learn as you can..
------------------------
pap...

mmcdonal · November 27th, 2006, 09:14 AM

sU = (Environ$("Username"))

mmcdonal