hi zusammen,
folgende aktion ändert ein oder mehrere docs, die damit aus der ansicht verschwinden (sollten). frage: warum bewirkt der view.refresh nix ? nach F9 ist aber alles ok ?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim collection As NotesDocumentCollection
Dim dateTime As New NotesDateTime( "" )
Dim view As NotesView
Set db = session.currentDatabase
Set collection = db.UnprocessedDocuments
Set doc = collection.GetFirstDocument()
Set view = db.getView("jgh")
Call dateTime.SetNow
While Not(doc Is Nothing)
If Trim(doc.datum_archivierung(0)) = "" Then
doc.datum_archivierung = dateTime.dateOnly
Call doc.save(True, False)
End If
Set doc = collection.GetNextDocument(doc)
Wend
Call view.refresh
End Sub