Benutzer - Passwort Abfrage im Formular

[koch]

Hallo Zusammen,
ich habe eine Anmeldung erstellt, in der sich der Benutzer anmelden soll.
Dazu habe ich die „tblAutor“ erstellt mit: „ AutorID“; Autowert, „Autor“; Kurzer Text, Indiziert Ja ohne Duplikat,
„Passwort“; kurzer Text, Eingabeformat Kennwort
Dann „frmAnmeldung“ erstellt mit: Kombifeld ungebunden „cboAutor“ mit allen Felder der „tblAutor“ wobei ich die Spalten AutorID und Passwort über Spaltenbreite 0cm ausgeblendet habe.
Sowie ein ungebundenes Textfeld „txtPasswort“ diesem Gefüge habe ich nun folgenden Code zugewiesen:

Bei DonKarl abgekupfert:

Private Sub txtPasswort_AfterUpdate()
If StrComp(Nz(Me!txtPasswort, "U n  G ü  L T i  G "), Nz(DLookup("Passwort", "tblAutor", "Autor = '" & Nz(Me!cboAutor, "NoUser") & "'"), "NoPW"), 0) = 0 Then
    DoCmd.OpenForm "frmgericht"
  Else
    DoCmd.OpenForm "frmHauptmenu"  'oder andere Reaktion, z. B. Aufforderung zur neuen PW-Eingabe
End If
End Sub

Nach der Eingabe lande ich immer in frmHauptmenu und nicht wie gewollt in frmgericht.
Was ist da falsch?
Vielen Dank schon mal
LG Hans

[DF6GL]

Hallo,

ohne die Datensatzherkunft des Kombis zu kennen, vermutlich:

.....", "AutorID =" & Me!cboAutor ), ....

[koch]

Hallo Franz,
vielen Dank für die prompte Antwort. Leider funktioniert es immer noch nicht. Ich habe die die Datensatzherkunft AutorID eingefügt
If StrComp(Nz(Me!txtPasswort, "U n  G ü  L T i  G "), Nz(DLookup("Passwort", "tblAutor", "Autor = '" & Nz("AutorID" = Me!cboAutor, "NoUser") & "'"), "NoPW"), 0) = 0 Then
aber er springt immer noch in das Hauptmenu.
Sorry, steh grad fürchterlich auf dem Schlauch.
LG Hans

[DF6GL]

Hallo,

lies nochmal meinen Post.  Dort habe ich das anders beschrieben.

[koch]

Hallo Franz,
vielen Dank für Deinen Hinweis, aber ich kapiers einfach nicht. Habe Dein Post nochmal angeschaut und folgendes eingefügt:
If StrComp(Nz(Me!txtPasswort, "U n  G ü  L T i  G "), Nz(DLookup("Passwort", "tblAutor", "AutorID =" & Me!cboAutor), &(Nz(Me!cboAutor, "NoUser") & "'"), "NoPW"), 0) = 0 Then
Sorry.
Vielen Dank für Deine Geduld.
LG Hans

[DF6GL]

Hallo,

Code [Auswählen] Erweitern

If StrComp(Nz(Me!txtPasswort, "U n  G ü  L T i  G "), Nz(DLookup("Passwort", "tblAutor", "AutorID =" & Me!cboAutor), "NoPW"), 0) = 0 Then


mit den Eigenschaften  des Kombis:

Datensatzherkunft:

Code [Auswählen] Erweitern

Select AutorID, Autor from tblAutor order by Autor

Spaltenanzahl:  2
Gebundene Spalte: 1
Spaltenbreiten:  0cm;5cm

[koch]

Hallo Franz,
vielen Dank für Deine Mühe. Jetzt funktionierts.
LG Hans

[koch]

Hallo Franz,
gleich das nächste Problem. Ich möchte anschließend das frmGericht öffnen aber exclusiv nur für den Autor der das Passwort eingeben hat. Dachte das geht easy mit folgendem Code:
DoCmd.OpenForm "frmgericht", , , "AutorID=" & Me.cboAutor.Value
aber Pustekuchen. Im frmGericht ist das Feld Autor und AutorID aus der tblAutor.
Vielen Dank
LG Hans

[koch]

Das Problem hat sich nach Neustart von Access von selbst gelöst.
Vielen, vielen Dank für Deine Geduld
LG Hans