@Axel: Schön dass Du das auch so siehst. ;)
Nein, der Fehler tritt auch nicht bei allen Dokumenten auf. In der Datenbank sind knapp 2000 Dokumente und nur ~400 sind betroffen.
Ja, eine Vorgabeansicht ist definiert.
Gut also der Code ist eigentlich denkbar unspektakulär, aber ich stell ihn mal gerade rein.
Function UpdateAll() As Boolean
On Error Goto ErrorHandler
Dim i As Long
Dim doc As NotesDocument
Dim acol As NotesDocumentCollection
Set acol = cdb.AllDocuments
If acol.Count = 0 Then Exit Function
For i = 1 To acol.Count
Set doc = acol.GetNthDocument( i )
Call doc.ComputeWithForm( True, True )
Call doc.Save( True, False, True )
Next
UpdateAll = True
Exit Function
ErrorHandler:
doc.updateprob = Cstr( Err ) + " " + Error( Err )
Resume Next
End Function
@Bernhard: Was heißt das ist eher ein Backend-Instrument? Ich suche doch genau ein solches... ich habe den Verdacht, als hätten wir uns misverstanden. ;)
Gruß Dirk