Hallo Forum,
habe folgendes Problem beim löschen. Habe in einer Kalenderansicht verschiedene Dokumente und will sie mit der "Entf" - Taste löschen. Die Dokumente verschwinden dann zwar aus der Ansicht doch wenn ich F9 drücke oder die Datenbank schließe fragt Notes mich, ob ich die Dokumente auch wirklich löschen möchte. Nach dem drücken der "Entf" - Taste steht auch unten in der StatusBar "1 Dokument(e) zur Löschung markiert. Drücken Sie F9, zum die Ansicht zu aktualisieren."
Kann mir da jemand weiterhelfen? Anbei mein Code
Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
%REM
Diese Funktion ist für den Löschvorgang mit der "Entf" - Taste verantwortlich.
veränderte globale Variablen:
keine
Historie:
Datum: Name: Bemerkung:
10.11.2008 Name erstellt
19.11.2008 Name Abfrage ob doc geöffnet
%END REM
Dim uiws As New NotesUIWorkspace
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim docIndex As Integer
Set dc=source.Documents
Set doc=dc.GetFirstDocument
docindex = 1
If dc.Count > 0 Then
If Not doc.IsUIDocOpen Then
If (Messagebox("Möchten Sie diese(n) Termin(e) entfernen?", 36, "Bestätigung") = 6) Then
While Not doc Is Nothing
'Call doc.Remove(True) -- Habe beide Versionen hier probiert. Führen beide nicht zum gewünschten Ergebnis
Call doc.RemovePermanently(True)
docindex = docindex+1
Set doc = dc.GetNthDocument(docIndex)
Wend
Else
continue = False
Call uiws.CurrentView.DeselectAll
End If
'Call uiws.CurrentView.View.Refresh -- Habe beide Versionen hier probiert. Führen beide nicht zum gewünschten Ergebnis
Call uiws.ViewRefresh()
Else
continue = False
Msgbox "Sie können Termine nur in der Kalenderansicht löschen!",48,"Nur in Kaldenderansicht löschen!"
End If
End If
End Sub
Vielen Dank schonmal im Vorraus!
