Passworteingabe in Feld

[Carl]

Hallo,

mal ne Frage. Ich habe einen Button mit diesem Code Passwortgeschütz. Er funktioniert.

Code [Auswählen] Erweitern


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

[silentwolf]

Hallo,

Code [Auswählen] Erweitern

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