User-Login in Formular anzeigen

[datekk]

Hi,

bei meiner Datenbank soll sich der Benutzer vorher anmelden. Es erscheint ein Login Formular. Dieses ist Ungebunden. Aus einem Kombinationsfeld wählt der User seinen Namen und klickt dann den Login Button. Mit Klick auf diesen Button wird die im Kombinationsfeld aus der TblUser abgerufene UserID an die öffentliche Variable p_UserloginID übergeben. Dann wird ein ungebundenes Start-Fenster geöffnet.
In diesem StartFenster möchte ich oben stehen haben: "angemeldet als...." und dann der Name des Users, der sich angemeldet hat.

Hier brauche ich Hilfe bei der Realisierung. Die UserID ist in der Variablen p_UserloginID gespeichert. Wie kann ich nun per VBA den Namen anhand der UserID ermitteln und in ein Textfeld ausgeben? Es muss eine Art sein wie: Suche in der tblUser nach der ID wie p_UserloginID und gib aus dieser Zeile den Usernamen an das Textfeld txt100 aus....

Danke schonmal für Eure Hilfe.

.::datekk::.

[DF6GL]

Hallo,

Schreib in den Steuerelementinhalt des Textfeldes den Aufruf der Dlookup()-Domänenfunktion:

Code [Auswählen] Erweitern

=Dlookup("Username";"tblUser";"Userid= " & GetUID() )


und in einem Standardmodul:

Code [Auswählen] Erweitern

Public Function GetUID() as Long
GetUID=p_UserloginID
End Function



oder:

Code [Auswählen] Erweitern

=GetUserName()


mit dieser Funktion:

Code [Auswählen] Erweitern

Public Function GetUserName() as String
GetUserName=Dlookup("Username","tblUser","Userid= " & p_UserloginID)
End Function





Alternativ kann gleich im "Beim Laden"-Ereignis des Forms  dieses stehen:

Code [Auswählen] Erweitern

Sub Form_Load()
Me!txtUser=Dlookup("Username","tblUser","Userid= " & p_UserloginID)
End Sub

[datekk]

Danke lieber Franz.. Funktioniert *P*E*R*F*E*K*T*