Öffnen Formular mit Kennwortabfrage

[lukyluke68]

Hallo,

gibt es die Möglichkeit einer vorherigen Kennwortabfrage zum öffnen eines Formulares?

Wenn ich den Button betätige zum öffnen des Formulares, sollte vorher eine Kennwortabfrage msgbox kommen. Erst mit der Eingabe des richtigen Kennwortes (zBsp. qaywsx) sollte sich das Formular öffnen.

mfg
Ludwig

[MzKlMu]

Hallo,
im einfachsten Fall so:

Code [Auswählen] Erweitern

Private Sub btnFormOpen_Click()
On Error GoTo Err_btnFormOpen_Click

    If InputBox("Kennwort ?") = "qaywsx" Then
        DoCmd.OpenForm "Formular150"
    Else
        MsgBox "Kennwort falsch"
    End If

Exit_btnFormOpen_Click:
    Exit Sub

Err_btnFormOpen_Click:
    MsgBox Err.Description
    Resume Exit_btnFormOpen_Click
   
End Sub

Um die bei kennwortabfragen übliche Unterscheidung zwischen Groß und Kleinbuchstaben zu haben, ist im Modulkopf noch das  Stringverleichsverfahren auf Binary einzustellen.

Code [Auswählen] Erweitern

Option Compare Binary

Besonders sicher ist das aber nicht. Wenn Du allerdings eine MDE (ACCDE) daraus machst, wird das ziemlich sicher.
Kennwortänderungen werden dann aber auch ziemlich aufwendig.

[lukyluke68]

Hallo,

wo muss ich den Code nun einfügen?

Private Sub ersatzliste_open_Click()
On Error GoTo Err_ersatzliste_open_Click()

    If InputBox("Kennwort ?") = "qaywsx" Then
        DoCmd.OpenForm "Ersatzliste_Zangen_form"
    Else
        MsgBox "Kennwort falsch"
    End If

Exit_ersatzliste_open_Click:
    Exit Sub

Err_btnFormOpen_Click:
    MsgBox Err.Description
    Resume Exit_ersatzliste_open_Click()
   
End Sub

[MzKlMu]

Hallo,

wo muss ich den Code nun einfügen?

sorry, aber die Frage ist mir ein Rätsel.
Du hast ihn doch schon eingefügt, nämlich im Ereignis "Beim Klicken" des Buttons.
Auch an Binary denken.

[lukyluke68]

Hallo,

Leider funktioniert der Code nicht.

[lukyluke68]

Hallo,

jetzt funktioniert es einwandfrei.


Option Compare Binary

Private Sub Ersatzliste_open_Click()
On Error GoTo Err_Ersatzliste_open_Click

    If InputBox("Kennwort ?") = "qaywsx" Then
        DoCmd.OpenForm "Ersatzliste_Zangen_form"
    Else
        MsgBox "Kennwort falsch"
    End If

Exit_Ersatzliste_open_Click:
    Exit Sub

Err_Ersatzliste_open_Click:
    MsgBox Err.Description
    Resume Exit_Ersatzliste_open_Click
   
End Sub


Vielen Dank für die rasche Hilfe!

mfg.
Ludwig