Hallo,
Ich stehe gerade irgendwie auf dem Schlauch! Ich versuche mich mit einem Initialize Script, das nach einer erfolgreichen Eingabe einer Passphrase die Datenbank verfügbar macht, das klappt aber ich kann die Datenbank nach 3 fach falscher Eingabe nicht schließen lassen hier das ganze Script vielleicht hat jemand eine Idee
Danke
Sub Initialize
Dim Continue As Variant
Dim pass As String
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Abfrage:
pass = Inputbox("Geben Sie die korrekte Zeile ein", , "Autorisierungsabfrage!")
If pass <> "Passphrase" Then
Continue = False
Msgbox "Versuchen Sie es nochmal" , , "Fehler"
Goto Abfrage1
End If
If pass = "Passphrase" Then
Continue = True
Goto ende
End If
Abfrage1:
pass = Inputbox("Geben Sie die korrekte Zeile ein", , "Autorisierungsabfrage!")
If pass <> "Passphrase" Then
Continue = False
Msgbox "Versuchen Sie es nochmal" , , "Fehler"
Goto Abfrage2
End If
If pass = "Passphrase" Then
Continue = True
Goto ende
End If
Abfrage2:
pass = Inputbox("Geben Sie die korrekte Zeile ein", , "Autorisierungsabfrage!")
If pass <> "Passphrase" Then
Continue = False
Msgbox "Versuchen Sie es nochmal" , , "Fehler"
Goto quit
End If
If pass = "Passphrase" Then
Continue = True
Goto ende
End If
quit:
Call db.close
ende:
End Sub
Stephan
