Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Kennwortabfrage einfügen???





Frage

Hallo, ich habe ein Formular gebastelt und einen Button hinzugefügt, der ein weiteres Formular öffnen soll. Ich möchte aber, bevor er das Formular öffnet eine Kennwortabfrage einfügen. Ist das möglich und wenn ja wie geht das am einfachsten? Vielen Dank Jones

Antwort 1 von struppi

Hallo
Der Button führt ja im Moment eine sub beim klicken aus. Die kannst du dir anschauen.
Hier das Beispiel für Formular schließen:
Private Sub Befehl70_Click()
On Error GoTo Err_Befehl70_Click


>>>>> DoCmd.Close<<<<<<


Exit_Befehl70_Click:
Exit Sub

Err_Befehl70_Click:
MsgBox Err.Description
Resume Exit_Befehl70_Click

End Sub

Den Bereich der mit Pfeil makiert is nimmst du raus und schreibst dafür:

dim passwort as string
passwort = ""
passwort = inputbox("Bitte Passwort eingeben")
if passwort = "ADMIN" then
DoCmd.Close
elseif passwort <> "ADMIN" And passwort <> "" then
Msgbox "Passwort ist Falsch"
end if
Mann kann das natürlich viel besser machen aber für den Anfang gehts.