Domino 9 und frühere Versionen > ND6: Entwicklung

Bestimmte Dokumente per Agent löschen

<< < (5/6) > >>

Driri:
Genau das. Doc wurde zwei Zeilen vorher gelöscht, weil es in der Collection enthalten ist.

Glombi:
Müsste es nicht statt
Set Col = View.GetAllDocumentsByKey(strUnique)
wie folgt heissen:

Set Col = ViewE.GetAllDocumentsByKey(strUnique)


Die Dokumente sollen doch in der DB VEntwuerfe gelöscht werden, oder?

Andreas

Wiesel:
Ok, soweit klappt es endlich, Dok wird gelöscht und Merkmal wird gesetzt. Danke hierfür!

Jetzt bekomme ich nur eine Fehlermeldung, wenn quasi meine Ansicht zu Ende ist.

Dann kommt:
Eintrag im Index nicht gefunden


Hier nochmal mein aktueller Script:

                Dim VEntwuerfe As NotesDatabase
   Dim DocE As NotesDocument
   Dim ViewE As NotesView
   Set VEntwuerfe = S.GetDatabase(strEntwurfDB,strEntwurfPfad)
   Set ViewE = VEntwuerfe.GetView("(LoeschungEntwuerfeE)")
   
   Set View = DB.GetView("(LoeschungEntwuerfe)")
   Set Doc= View.GetFirstDocument
   
   While Not (doc Is Nothing)
      strUnique = Doc.Unique(0)
      
      Set Col = ViewE.GetAllDocumentsByKey(strUnique)
      
      If Not Col Is Nothing Then
         If Col.Count <> 0 Then
            Call Col.RemoveAll(True)
            Call Doc.ReplaceItemValue("txtAktion","gelöscht")
            Call Doc.Save(True, True)
         End If
         
      End If
      Set Doc= View.GetNextDocument(Doc)
   Wend
   Call view.Refresh


Und nach dem letzten Dokument steigt Notes in der Zeile
Set Doc= View.GetNextDocument(Doc)
aus.

????

Axel:
Kann es sein, dass die Dokumente, wenn du txtAktion setzt, aus der Ansicht rausfliegen?


Axel

Wiesel:
Ja, tun sie.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete