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.
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.