Doc.copytoDatabase(XX) geht nicht

[Milamber]

Hallo zusammen, ich bin gerade am verzweifeln.

Mein code lief bis gestern. Heute habe ich etwas geändert und jetz läuft es nicht mehr.

Nun habe ich den Code auf ein minimum reduziert um den Fehler zu finden.
Das ganze wird aus dem web aufgerufen, über den event: WebQuerySave. Es wird ein Agent aufgerunfen der das offnen Dokument in eine andere DB kopieren soll.


   Dim s As New NotesSession
   Dim DBTarget As notesdatabase
   Dim DocCurrent As NotesDocument
   Dim DocNew As Notesdocument
   
   Set DBTarget = s.GetDatabase("XXX"  ,  "YYY" )
      '          If   DBTarget.IsOpen Then Print "error" ERGENINS: Print kommt. also db wird geöffnet.
   Set DocCurrent = s.DocumentContext
   'If  Not DocCurrent Is Nothing Then Print "error" ERGEBNIS: Print kommt, also wird doc gefunden
   
   Set DocNew = DocCurrent.CopyToDatabase(DBTarget)
   Print "error"  'ERGEBNIS: Kein print, kein Fehler, kein copiertes Document


Nachtrag:
Call DocCurrent.CopyToDatabase(DBTarget)   
erschafft auch kein neues Dok in der DBTarget.

Jetzt erstmal WE. wünsch euch allen ein schönes

Grüße
Hristos

[koehlerbv]

Bau Dir doch einen ErrorHandler ein - das sollte das erste sein, was in einer Routine an Code entsteht. Dieser wird dann vermutlich auf ein ungültiges oder nicht vorhandenes Dokument verweisen - da Dein Frontend-Dokument noch gar nicht gespeichert ist.

Bernhard

[Milamber]

Dieser wird dann vermutlich auf ein ungültiges oder nicht vorhandenes Dokument verweisen
Bernhard

Danke für den Hinweis, 2 Zeilen angepasst und nun flutscht es :-)
Hristos