kleine Benutzerverwaltung mit Berechtigungen

[pjo12345]

Und wieder eine Frage....


Das Thema Benutzerverwaltung wurde hier ja schon öfters behandelt aber ich habe leider keine Lösung für mich gefunden.

Ich habe eine kleine Benutzerverwaltung. In einer Tabelle stehen die Userdaten (Name, Passwort, Berechtigung). In einem Formular gibt der Anwender seinen Namen und Passwort ein. Beides wird miteinander verglichen und es geht weiter oder nicht. Zusätzlich möchte ich aber für diesen Benutzer (Name) die Spalte Berechtigung (boolean) abfragen und bei wahr eine Variable setzen. Leider stehe ich hier mit meinen Anfängerkenntnissen auf dem Schlauch. Wie frage ich jetzt die Spalte Berechtigung zu dem entsprechenden Namen ab?

Danke schon mal....
mfg pjo12345

[DF6GL]

Hallo,


benutz die Domänenfunktion Dlookup ...   (siehe auch in der VBA-Hilfe)



Dim strVar as String
If nz(Dlookup("Berechtigung","tblUser","[Name]='" & me![Name] & "'"),false) Then
strVar ="Berechtigung gewährt"
else
strVar ="keine Berechtigung"
End If



(btw:  Verzichte DRINGEND auf reservierte Wörter als Name für eigenerstellte Objekte)

[pjo12345]

Danke hat alles funktioniert.

mfg Pjo12345