Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: skywook am 26.04.04 - 11:26:58

Titel: DB öffnen in QueryClose
Beitrag von: skywook am 26.04.04 - 11:26:58

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

Titel: Re:DB öffnen in QueryClose
Beitrag von: Glombi am 26.04.04 - 11:47:28

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

Titel: Re:DB öffnen in QueryClose
Beitrag von: Driri am 26.04.04 - 11:49:03

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

Titel: Re:DB öffnen in QueryClose
Beitrag von: skywook am 26.04.04 - 11:58:23

Danke!!

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