Domino 9 und frühere Versionen > ND6: Entwicklung
Bestimmte Dokumente per Agent löschen
Wiesel:
Hab das also nochmal angepasst:
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 = View.GetAllDocumentsByKey(strUnique)
If Not Col Is Nothing Then
If Col.Count <> 0 Then
Call Col.RemoveAll(True)
End If
Call Doc.ReplaceItemValue("txtAktion","gelöscht")
Call Doc.Save(True, True)
Call view.Refresh
End If
Set Doc= View.GetFirstDocument
Wend
Ich bekomme immer noch die Fehlermeldung
Object variable not set
in der Zeile
Call Doc.ReplaceItemValue("txtAktion","gelöscht")
Und das Merkmal wird zwar gesetzt, aber das Dok in der EntwurfsDB wird nie gelöscht.
Axel:
Wird die Collection entsprechend gefüllt? Prüf das Ganze mal mit dem Debugger. Dann wirst du relativ schnell sehen wo's klemmt.
Axel
DAU-in:
Set Col = View.GetAllDocumentsByKey(strUnique)
kein Wunder.
Du wirbelst doch nur in DB A herum, das beeindruckt die Dokumente in DB B wenig. ;D
Wenn du die Dokumente in DB B löschen willst, ist es hilfreich, wenn du deine Collection, die du löscht, auch in der richtigen DB erstellst.
Oder in welcher DB soll gelöscht werden? Vielleicht verstehe ich auch deinen Code nicht.
Wiesel:
Klar, da hast Du recht. Leuchtet mir ein. Hab ich total übersehen....
Aber was ist mit dem Object variable not set?
DAU-in:
Ist das Doc denn noch da, oder sammelst du das in deiner Col und löscht es weg?
Ich hab keine Ahnung, ob du mit
Set Doc= View.GetFirstDocument
While Not (doc Is Nothing)
strUnique = Doc.Unique(0)
Set Col = View.GetAllDocumentsByKey(strUnique)
nicht deine Col mit deinem doc befüllst?
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln