title image


Smiley Re: Windows-Anmeldenamen in Access nutzen
Hi,



nimm diese Funktion:



Function UserName() 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

UserName = Left$(strUserName, lngLen - 1)

Else

UserName = ""

End If



End Function



Gruß FlUiD
--------------- http://www.fluidsworld.de ---------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: