Supportnet / Forum / Datenbanken

Hallo, ich habe eine Frage. In meiner Access DB (2002) habe ich in einem Formular ein Textfeld erstellt und bei Standardwert =Umgebung("Username") eingegeben. Damit wird mir der aktuelle Windows USer angezeigt, so soll es auch sein. Nur möchte ich den User auch noch in meiner tabelle hinter jeden neuen datensatz anhängen. Nur habe ich kein Plan wie ich das machen soll. Vermutlich mit VB, nur habe ich null Plan davon. Wenn mir jemand helfen kann wäre es super. Danke und Grüße Bastian

http://www.mvps.org/access/api/api0008.htm

Bei Dev Asish findest Du eine kleine API, die brauchst Du nur in Deinen Code zu kopieren, fOSUserName ist dann der Username.



Gruß Marie

******************** Code Start **************************
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function fOSUserName() As String
' Returns the network login name
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
        fOSUserName = Left$(strUserName, lngLen - 1)
    Else
        fOSUserName = vbNullString
    End If
End Function
'******************** Code End **************************

Sorry, den Code schreibst Du in ein Modul und dann schreibst Du folgende Ereignisprozedur in Dein Formular

Private Sub Form_AfterInsert()
   Me.mein_user = fOSUserName
End Sub

hallo bastian,

leg in deiner tabelle ein feld mit user an und in deinem formular im feld user schreibst du als standardwert: =umgebung("username")

somit wird beim anlegen eines neuen datensatzes automatisch im feld user der "standartwert" mit eingefügt.

gruß
rolandaa

• Access: Datum und User-Name automatisch
• Inhalt Kombi-Feld in andere Tabelle schreiben
• Access-Tabelle: Wie füge ich Felder an eine aus Excel übernommene Tabelle an?
• Wie kann man mittels VBA Termine in Outlook schreiben
• Access 2007 2 Tabellen vergleichen, Inhalt Tabelle 2 in Tabelle 1 schreiben