Hallo Notes-Gemeinde,
ich habe wiedereinmal ein spezielles Problem:
In meiner Datenbank habe ich das Default-Löschen von Dokumenten etwas abgeändert, und mir einen "eigenen" Papierkorb gebastelt (ähnlich dem Windows-Prinzip, also mit Wiederherstellung)
Und zwar haben alle Dokumente ein Feld "Deleted".
Diese Feld ist
* Deleted = 0, wenn das Dokument nicht gelöscht bzw.
* Deleted = 1, wenn das Dokument als gelöscht markiert ist.
Beim Wiederherstellen eines Dokumentes aus dem Papierkorb gibt's eine Funktion, die für die selektierten Dokumente das Feld Deleted = 0 setzt.
Mein "Papierkorb" beinhaltet alle Dokumente mit "Deleted=1", alle anderen Ansichten gehen auf "Deleted=0" los.
Mein Problem:
Wenn ich in einer Ansicht "Dokumente" (wo Deleted = 0) eines/mehrere Dokumente markiere und lösche funktioniert meine Routine.
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim uiws As New NotesUIWorkspace
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim uiview As NotesUIView
Dim viewname As String
Dim Usereingabe As Integer
Dim Formularname As Variant
Dim Zähler As Long
Dim DeletedWert As Notesitem
Dim del As Variant
Continue = False 'verhindert, dass das Dokument "zum Löschen" (Papierkorbsymbol) markiert wird
Set dc = Source.Documents 'aktuell markierte Dokumente
Set doc = dc.GetFirstDocument 'gehe zum ersten Dokument
Set uiview = uiws.CurrentView
viewname = uiview.ViewName
u.s.w.
Probleme gibt's, wenn ich ein Dokument zum Lesen offen habe, da gibt's einen Fehler bei der
Set uiview = uiws.CurrentView
viewname = uiview.ViewName
Zuweisung - klar, ist ja auch das Dokument zum Lesen aktiv.
Wie kann ich jetzt zw. Ansicht bzw. Dokument zum Lesen geöffnet unterscheiden bzw. den obigen Fehler abfangen?
Danke für Eure Hilfe
Thema: Unterscheidung zw. Ansicht und Dokument-Vorschau (Gelesen 1265 mal)