access form

[shrive22]

does anyone know if theres a way to capture the username of the person logged in to windows from an access form???

thanks for the help

 

[LTunnicliffe]

I got this from xl-logic.com but it should work for Access.

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

Private Declare Function GetComputerName Lib "kernel32" _
        Alias "GetComputerNameA" ( _
        ByVal lpBuffer As String, _
        ByRef nSize As Long) As Long

Public Property Get ComputerName() As String

  Dim stBuff As String * 255, lAPIResult As Long
  Dim lBuffLen As Long
  
  lBuffLen = 255
  
  lAPIResult = GetComputerName(stBuff, lBuffLen)
  
  If lBuffLen > 0 Then ComputerName = Left(stBuff, lBuffLen)

End Property
Public Property Get UserName() As String

  Dim stBuff As String * 255, lAPIResult As Long
  Dim lBuffLen As Long
  
  lBuffLen = 255
  
  lAPIResult = GetUserName(stBuff, lBuffLen)
  
  
  If lBuffLen > 0 Then UserName = Left(stBuff, lBuffLen - 1)
  

End Property

Then you can use UserName (and computer name, if you want it) as a variable in your initialization code.

Hope this helps!