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
Hallo,
im einfachsten Fall so:
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.
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.
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
Hallo,
Zitatwo 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.
Hallo,
Leider funktioniert der Code nicht.
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