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::.
Hallo,
Schreib in den Steuerelementinhalt des Textfeldes den Aufruf der Dlookup()-Domänenfunktion:
=Dlookup("Username";"tblUser";"Userid= " & GetUID() )
und in einem Standardmodul:
Public Function GetUID() as Long
GetUID=p_UserloginID
End Function
oder:
=GetUserName()
mit dieser Funktion:
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:
Sub Form_Load()
Me!txtUser=Dlookup("Username","tblUser","Userid= " & p_UserloginID)
End Sub
Danke lieber Franz.. Funktioniert *P*E*R*F*E*K*T* :)