Hallo!
Ich habe jetzt mit Hilfe Eurer Tips versucht im QueryClose einer Datenbank ein Scirpt aufzubauen, mit dem eine private Ansicht gelöscht wird.
Irgendwas löscht dieser Code auch, aber es hat nicht den gewünschten Effekt.
Hier erst mal mein Code (R5):
Sub Queryclose(Source As Notesuidatabase, Continue As Variant)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set db = session.CurrentDatabase
Set view = db.GetView("eigeneAufgaben")
If view.isPrivate = True Then
'löschen
Delete view
End If
End Sub
Ich bin also in der Datebank, gehe dann raus und danach wieder rein, dann wir die private Ansicht nicht neu aufgebaut. Gehe ich in die Gestaltung, sehe ich, daß es eine private Ansicht gibt, die dort in der Vorschau auch meine Dokumente anzeigt. Aber in der Datenbank ist die Ansicht leer.
Was fehlt?
Danke für Hilfe,
Wiesel
