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).
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
ab.
Weiß vielleicht jemand Rat?