HELPPPP

  • Thread starter Thread starter mat
  • Start date Start date
M

mat

HI People, I have a question, it may be easy, i use the
below bit of code

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

To obtain peoples user names however i can't seem to get
it to track into tblsales.userid - could anybody send me
the code to get it to track this? i already have it
tracking other details - that are all user input - please
help
 
Hi Mat

What you have posted is not a "bit of code", but an external function
declaration. By itself it does nothing and is useless. You need to write
your own function (say, WindowsUsername) which calls this function and
returns the result. Then you can, for example, set the DefaultValue of a
textbox bound to tblsales.userid to:
=WindowsUserName()

Oh OK... this is what your function needs to look like :-)

Public Function WindowsUsername() As String
Dim sBuffer As String, lSize As Long
lSize = 256
sBuffer = Space$(lSize)
If GetUserName(sBuffer, lSize) Then
WindowsUsername = Left$(sBuffer, lSize - 1)
End If
End Function

Put it in the same module as your Private Declare line.
 
Back
Top