Hallo,
mal ne Frage. Ich habe einen Button mit diesem Code Passwortgeschütz. Er funktioniert.
Dim Passwort As String
Passwort = InputBox("Passwort?")
If Passwort = "123" Then DoCmd.OpenForm "frmEinstellungen" Else MsgBox ("Falsches Passwd.")
Jetzt möchte ich aber, dass das Passwd nicht mit einer Input-Box abgefragt wird, sondern in einem permanent sichtbaren ungebundenen "Textfeld1" im Formular. Wenn dort das richtige Passwort rein geschrieben und der Button gedrückt wird, soll die Aktion ausgelöst werden. Wenn nicht das richtige passwd in dem Textfeld steht, soll beim klicken nichts passieren.
Wie müsste der code dann lauten?
Carl
Hallo,
Private Sub btnOK_Click()
Dim strPW As String
strPW = "123"
If Me.txtPW = strPW Then
DoCmd.OpenForm "Dein Formular"
Else
MsgBox "Falsches Passwort!"
Me.txtPW.SetFocus
End If
End Sub
Obwohl das PW hier im code na ja da gibt es sicher bessere Lösungen aber das musst Du dann selbst noch entscheiden wo Du dieses am besten hinterlegst.
HTH
mfg