Prüfung auf "Dokument verwaist" und dessen Umwandlung in Hauptdokument

[dnotes]

Mein Debugger sagt das ;-)

[Stefanie]

Hallo zusammen,

ich habe nun
a) das ganze mal Agent gebastelt
b) eine Collection gebildet
c) ein Error - Handling eingefügt

Aber es funktioniert leider nicht.
zu c) Der Debugger bleibt beim Error-Handling stehen.
Muss der error noch irgendwo dimensioniert werden o. ä.?
Hier konnte ich leider keine näheren Infos in der Hilfe finden.
Ich habe es orientiert an der Hilfe gebaut.
Die Ansicht in der ich es teste zeigt auch alle Dokumente an.
Hier der Code im Ausschnitt:

Dim Collection As NotesDocumentCollection
...
Sub Initialize
   On Error lsERR_NOTES_BAD_UNID GoTo ProcessError
...
getNextDocument:
      Set doc = Collection.GetNextDocument(doc)
   Wend
   Exit Sub
ProcessError:
   Call doc.RemoveItem( "$Ref" )
   Call doc.Save( True, True )
   Resume GetNextDocument

Die If-Schleife habe ich so belassen, lediglich mit Or gekürzt.
Aber es funktioniert wie gesagt nicht.
Ich starte wie gesagt den Agenten zuerst manuell über die Aktionen, aber beim Error-Handler bleibt der Debugger stehen, ohne Hinweise.

Wo steckt hier der Fehler?

Nochmals vielen DANK für all eure Hilfe, gerade so als Neuling ist man sehr darauf angewiesen!!!

[dnotes]

Auch wenn nur in Teilen zu erkennen:
Bei ProcessError: - gibt es dort ein Object Doc??

[Stefanie]

Hallo,

ich habe doc dimensioniert und über set gesetzt.
Wie gesagt wird meine Abfrage nicht ausgeführt bzw. das Item $Ref im Dokument nicht geleert, wenn das zugehörige Parent-Objekt nicht in der Kollektion enthalten ist.
somit wird also kein Hauptdokument daraus gebildet.
Und das löschen soll er ja machen, wenn der Fehler / error-Handler auftritt.
Warum bleibt also der Debugger immer bei On error schon stehen.
Zeigt keinen Fehler an und auch nach Fortführen / Schritt ausführen kein Fehler.


Please Help...
Thx

[dnotes]

Ehrlich gesagt hatte ich ja gedacht den Code nicht posten zu müssen...sei´s drum

Ansicht "Antworten" enthält die folgende Selektionsformel - damit nicht auch noch dort etwas schief geht:

     SELECT Form = "Antwort" & @IsResponseDoc

Dann der eigentliche Code für´s Umwandeln:

Code

	Dim s As New NotesSession
	Dim db As NotesDatabase
	Set db = s.CurrentDatabase
	Dim v As NotesView
	Set v = db.GetView("Antworten")
	Dim it As notesitem
	Dim work_doc As notesdocument
	Dim resp_doc As NotesDocument
	Dim par_doc As NotesDocument
	Set resp_doc = v.GetFirstDocument
	While Not(resp_doc Is Nothing)
		Set work_doc = resp_doc
		Set resp_doc = v.GetnextDocument(resp_doc)
		Set par_doc = db.GetDocumentByUNID(work_doc.ParentDocumentUNID)
		If par_doc.Authors(0) = "" Then
			Set it = work_doc.GetFirstItem("$Ref")
			Call it.Remove
			work_doc.Save True, False
		End If
	Wend