Archivierung nach Zuständen

[batto68]

Hallo,

ich habe folgende Frage:

gibt es eine Möglichkeit eine Archivierung durchzuführen, die nicht nach Tagen archiviert, sondern nach bestimmten Zuständen? Ich habe da nämlich eine Projektdatenbank erstellt und möchte nicht nach einer bestimmten Zeit archivieren, sondern Projekte sollen archiviert werden, die den Zustand "abgeschlossen" haben.

Ich hoffe ich habe mich deutlich genug ausgedrückt und

sage schon mal vielen Dank im Voraus.

[klaussal]

... ich glaube, da musst du selber hand anlegen  

[ata]

... das einfachste wird sein, daß du dir einen Agenten schreibst, der diesen Zustand auswertet, und die gefunden Dokumente dann in deine Archiv-Datenbank verschiebt...

ata

[ata]

... ich habe dir Code dazu...

Dim session As New NotesSession
        Dim db As NotesDatabase
        Dim arcdb As New NotesDatabase("" , "Archiv.nsf")
        Dim dc As NotesDocumentCollection
        Dim doc As NotesDocument
        Dim wert As Variant
 
        Set db = session.CurrentDatabase
        Set dc = db.AllDocuments
        Set doc = dc.GetFirstDocument
        While Not doc Is Nothing
            wert = doc.GetItemValue("Status")
            If wert(0) = "Abgeschlossen" Then
                Call doc.CopyToDatabase(arcdb)                
            End If
            Set doc = dc.GetNextDocument( doc )
        Wend
' # Sollten die Dokumente gelöscht werden, dann noch
        Call dc.RemoveAll

ata