Guten Morgen zusammen,
kann mir jemand sagen, wie ich abfangen kann, dass eine Fehlermeldung aufpoppt und mein Script abbricht, wenn sich eine DB nicht öffnen lässt?
Set directory = New NotesDBDirectory(dbservers)
Set userdb = directory.GetFirstDatabase(DATABASE)
While Not (userdb Is Nothing)
dbopen = userdb.Open("", "")
If userdb.Open("", "") = True Then
....
End if
Wend
On Error Resume Next
Set directory = New NotesDBDirectory(dbservers)
Set userdb = directory.GetFirstDatabase(DATABASE)
While Not (userdb Is Nothing)
dbopen = userdb.Open("", "")
If userdb.Open("", "") = True Then
....
End if
Wend
.. und schau mal in der Hilfe nach, das gibt es auch die Möglichkeit spezifische Ausgaben bei Auftreten eines Fehlers zu generieren.
Hi,
versuch's doch mal so:
...
Set dbParam = New NotesDatabase("Servername", "Datenbankname")
If Not dbParam.IsOpen Then
Messagebox "Die Paramter-Datenbank kann nicht geöffnet werden", 16, "Projekte - Fehler"
Exit Sub
End If 'If Not dbParam.IsOpen Then
...
Axel
db.Filepath steht erst nach dem öffnen zur Verfügung.
Hi, das kann ich so aber nicht nachvollziehen.
Dim dbdir As New NotesDbDirectory("DEmaGKWLN003")
Dim db As NotesDatabase
Set db = dbdir.GetFirstDatabase(DATABASE)
Msgbox db.Server, , "Server"
Msgbox db.FilePath, , "Datenbank"
Set db = New NotesDatabase(db.Server, db.FilePath)
If Not db.IsOpen Then
Messagebox "Die Datenbank kann nicht geöffnet werden", 16, "Fehler"
Else
Messagebox "Die Datenbank wurde erfolgreich geöffnet.", 64, "Erfolg"
End If 'If Not dbParam.IsOpen Then
Hab's soeben mal damit probiert und es funktioniert. Oder hab ich da was übersehen?
Axel