Funktion aufrufen beim Formular öffnen

[pjo12345]

Hallo,

ich wieder mal 

Ich möchte beim Öffnen eines Formulars eine Funktion aufrufen (Windows Benutzername ermitteln) und den Wert in meine Tabelle schreiben.
Das ist eigentlich schon alles.

Danke....

Grüße

[oma]

Hallo,

das kommt darauf an, wie das gemeint ist.

Wenn Du den Benutzernamen fortlaufend bei jedem Start wie z.B eines Eröffnungsformulars in eine Tabelle (und das soll nicht die Tabelle des Formulars sein) kanns du beim Öffnen des Formulars schreiben:

Code [Auswählen] Erweitern

Private Sub Form_Open(Cancel As Integer)
CurrentDb.Execute "INSERT INTO tblBenutzer ( Benutzer ) VALUES (Environ('UserName'))"
End Sub

Gruß Oma

[Rychy]

...okay und wie waere der Code, wenn ich den Usernamen in die aktuelle Tabelle des Formulars eintragen möchte.

2. Wie würde der Code heissen, wenn ich den Usernamen nur ermitteln möchte wenn der dem Formular zu Grunde liegende Datensatz geaendert wird.

Hilfe waere schoen.

Viele grüsse von Rychy

[bahasu]

Hi,

im Anhang ein Beispiel.
Das Formular nutzt das Ereignis "Vor Änderung":

Private Sub Form_BeforeUpdate(Cancel As Integer)
   Me.BenutzerName = Environ("UserName")
End Sub


Harald

[Anhang gelöscht durch Administrator]