Username auslesen und eintragen

[Bollerkohl]

Hi zusammen,

ich möchte in einer Tabelle in dem Feld Username, wenn Eintrag gemacht wurde, dass der Windows User dort eingetragen wird.

Kann mir bitte jemand sagen, wie ich dies machen kann und was ich beachten muss?

Access 2010 nutze ich.

Danke LG

[DF6GL]

Hallo,

in einer Tabelle geht das gar nicht..

In einem auf dieser Tabelle basierenden Formular schreib in die Eigenschaft "Standardwert" des gebundenen Textfeldes "Username":

=fktGetUsername()

und erzeuge in einem Standard-Modul folgende Funktion:

Public Function fktGetUsername() as String
fktGetUsername= Environ("Username")
End Sub

[daolix]

oder per Api in einem Modul

Code [Auswählen] Erweitern

Declare Function GetUserName Lib "ADVAPI32.DLL" Alias "GetUserNameW" _
   ( _
       ByVal lpBuffer As Long, _
       ByRef pcbBuffer As Long _
   ) As Long

Public Function fktGetUsername() As String
   Dim s As String
   Dim l As Long
   l = 260
   s = String$(l, 0)
   If GetUserName(StrPtr(s), l) <> 0 Then fktGetUsername = Left$(s, l - 1)
End Function