DB öffnen in QueryClose

[skywook]

Hallo,
bräuchte etwas Hilfe. In folgendem Script (steht im QueryClose einer Maske) bekomme ich immer die Fehlermeldung: Datenbank nicht gefunden. Der Pfad und der Server sind aber korrekt.

Ist nur ein Teilabschnitt vom Script:

Server = "YC18W01N/SRV1/DE"
Filename = "info\Tsicht.nsf"
meldung =  "Datenbank nicht gefunden!"
   
If (NewDocument) Then                    
Dim Datenbank1 As NotesDatabase
Dim DokBegleit1 As NotesDocument
Set Datenbank1 = New NotesDatabase(Server,Filename)
         
If Not Datenbank1.IsOpen Then
Messagebox meldung
Goto Ende
usw............

[Glombi]

Besser so:

Server = "YC18W01N/SRV1/DE"
Filename = "info\Tsicht.nsf"
meldung =  "Datenbank nicht gefunden!"
   
If (NewDocument) Then                    
Dim Datenbank1 As NotesDatabase
Dim DokBegleit1 As NotesDocument
Set Datenbank1 = New NotesDatabase("","")
call Datenbank1.Open(Server,Filename)
         
If Not Datenbank1.IsOpen Then
Messagebox meldung
Goto Ende
usw............

[Driri]

Das ist auch klar, denn die DB ist ja nicht geöffnet. Du hast sie zwar definiert, aber öffnen mußt Du sie schon noch.

If Not Datenbank1.IsOpen Then
   Call Datenbank1.Open
...

[skywook]

Danke!!

Als ich die Datenbanken auf einem lokalen Rechner (NotesClient ohne Serveranbindung) hatte, hat alles funktioniert. Dort hatte ich den Eintrag auch nicht definiert.