Domino 9 und frühere Versionen > Entwicklung

DB öffnen in QueryClose

(1/1)

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.

Navigation

[0] Themen-Index