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
Hallo,
ohne die Datensatzherkunft des Kombis zu kennen, vermutlich:
Zitat.....", "AutorID =" & Me!cboAutor ), ....
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
Hallo,
lies nochmal meinen Post. Dort habe ich das anders beschrieben.
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
Hallo,
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:
Select AutorID, Autor from tblAutor order by Autor
Spaltenanzahl: 2
Gebundene Spalte: 1
Spaltenbreiten: 0cm;5cm
Hallo Franz,
vielen Dank für Deine Mühe. Jetzt funktionierts. ;D ;D ;D
LG Hans
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
Das Problem hat sich nach Neustart von Access von selbst gelöst.
Vielen, vielen Dank für Deine Geduld
LG Hans