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
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
oder per Api in einem Modul
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