Index kann nicht auf dem Server erstellt werden

[Jérôme]

Hallihallo!

Im Queryclose meiner Datenbank habe ich den folgenden Agenten platziert, der alle geänderten privaten Ansichten löschen soll, damit diese beim nächsten Aufruf der Datenbank neu aufgebaut werden. (Den Code habe ich aus den LDD).

Code

   Dim count, tot As Double
   Dim privateviewtext As String
   Dim masterview As NotesView
   
   
   count=0
   privateviewtext=""
   tot = Ubound(dbCurrent.views) + 1
   Forall v In dbCurrent.views
      count=count+1
      Print "Checking for outdated personal views " & count & " out of " & tot & "..."
      If (v.IsPrivate) Then
         Set masterView = getMasterView(v)
         If Not(masterView Is Nothing) Then
            If v.Created < masterView.LastModified Then 
               privateviewtext=privateviewtext & Chr(10) & v.name
               v.remove
            End If
         End If
      End If
   End Forall
   
   Print ""

Mein Problem ist nun, dass bei mindestens einer (weiter kam ich ja noch nicht) Ansicht der Fehler auftritt, den ich im Titel und im Screenshot dokumentiert habe:

Notes Error: Index kann nicht auf dem Server erstellt werden (Name der Ansicht)

Im Debugger habe ich gesehen, dass die Ansicht ganz viele Eigenschaften nicht hat, unter anderem auch die "IsPrivate"-Eigenschaft. Da steht weder FALSE noch TRUE drin. Die Ausführung bricht an der Stelle

Code

      If (v.IsPrivate) Then

ab.

Weiß vielleicht jemand Rat?

[Semeaphoros]

Such mal hier im Forum, wir haben das schon mehr als einmal gehabt. Ist ein Fehler im Notes, es gibt aber einen Workaround, der in der Knowledge-Base gefunden werden kann.

[Jérôme]

Boah, ich bin ja auch ein Depp!

Also, erst einmal, hier geht es zum betreffenden Thread:
http://www.atnotes.de/index.php?board=7;action=display;threadid=7248


Und dann: Ich hatte diese Methode schon gefunden, und den Hinweis beachtet, dass man unter R5 auch die Funktion "IsPrivateView" durch "v.IsPrivate" ersetzen könne. Und prompt habe ich das auch getan.

Vielen Dank!