While not doc is nothing

[Hedwig14]

Hallo ! Wie kann ich mir in diesem Fall helfen ?

Ich habe eine Ansicht mit allen Dokumenten im Status "10".
Mit einer "While not doc is nothing-Schleife"durchlaufe ich alle Dokumente und müßte auch das Feld Status teilweise anpassen. Dann stimmt aber der Index nicht mehr ! Was kann man in diesem Fall tun ?

[koehlerbv]

NotesView.AutoUpdate = False. Und am Ende des Codes und im ErrorHandling AutoUpdate wieder auf True setzen.

[Hedwig14]

wie geil ! Das kannte ich noch gar nicht ! Danke !

[RunRevilo]

Hallo,
du könntest dir auch mit einem temporären Hilfsdokument behelfen, damit bleibt der Index erhalten.

Dim doc As NotesDocument
Dim tempdoc As notesdocument

Do Until doc Is Nothing
      Set tempdoc=doc    
      doc.Status(0)= .    ' Anpassung des Feldes Status
      Set doc = view.GetNextDocument(tempdoc)
Loop