"Database Ordner\DBname has not been opened yet"

[Bellerophon]

*greetz*@ ALL

Habe hier wieder ein kleines Problem:

Wenn ich mit einem Agent ein Dokument aus einer Archivdatenbank in die "Aktive" DB zurückschieben möchte kommt folgende Fehlermeldung:

"Database Ordner\DBname has not been opened yet"

Der Agent sieht wie folgt aus:

Sub Initialize
   
    'Declare variables
   Dim Session As New NotesSession
   Dim DB_Current As NotesDatabase
   Dim Doc_Archiv As NotesDocument
   Dim Doc_Temp As NotesDocument
   Dim Doc_InSolver As NotesDocument
   Dim View As NotesView  
   Dim Collection As NotesDocumentCollection
   Dim DB_Berater As New NotesDatabase( "", "Ordner\DBname.nsf" )
   
   Set DB_Current = Session.CurrentDatabase
   Set Collection = DB_Current.UnProcessedDocuments
   Set Doc_Archiv = Collection.GetFirstDocument
   
   Do Until Doc_Archiv Is Nothing
      Doc_Archiv.Dat_Bera_erfasstAm = Today()
      Call Doc_Archiv.save(True,False)
      Call  Doc_Archiv.CopyToDatabase(DB_Berater)
     
      'Delete document  from the current database
      Set Doc_Temp = Doc_Archiv
      Set Doc_Archiv = Collection.GetNextDocument(Doc_Archiv)    
      Call Doc_Temp.Remove(True)
   Loop
End Sub

Kennt einer dieses Problem? In der Suche habe ich dazu nichts gefunden...........thanx!

[ghost]

Hallo,

füge doch mal die Zeile:

If not(DB_Berater.IsOpen) then call DB_Berater.Open("", "")

ein.

Viele Grüße
ghost

[Bellerophon]

Hi!

Danke für die schnelle Antwort!
Habe ich ausprobiert, aber es funzt net! ;-(
Immer noch die gleiche Meldung!

[holo]

liegt es evtl am "\" in ( "", "Ordner\DBname.nsf" )? Versuch mal einen "/".
Ich hatte das gleiche Problem auch mal, allerdings lag es bei mir daran, dass ich einen zusätzlichen "/" vor dem ersten Ordner des DB-Pfades stehen hatte, also an Deinem Beispiel erklärt: ( "", "/Ordner/DBname.nsf" ) hat nicht funktioniert, nur ( "", "Ordner/DBname.nsf" ).

[ghost]

Stimmen den Pfad und Dateiname? Liegt die Datenbank wirklich lokal? Offensichtlich wird sie nicht gefunden.

Viele Grüße
ghost

[Bellerophon]

Danke für die Antworten!

Habe es mit / und mit \ probiert---funzt net! ;-(
Der Dateiname und der Pfad stimmen Überein, auch in dem Agenten!
Beide Datenbanken liegen Lokal im Data-Verzeichnis!

Bleibe dran und mache:

Try and Error! ;-)

Melde mich dann..........

Für weitere Vorschläge / Hinweise wäre ich dankbar!