Domino 9 und frühere Versionen > ND6: Entwicklung

Löschen von Dokumenten ohne aktualisieren

<< < (2/2)

Axel:
Eine mögliche Lösung wäre folgendes.

Füge eine Aktion in deine Ansicht ein, die dir die Dokumente aus der DB löscht.
Du kannst das auch als gemeinsame Aktion machen, wenn du die Aktion in mehreren Ansichten brauchst.
 
Der Code könnte ganz grob so aussehen:

Dim ws As New notesuiworkspace
Dim doccoll As notesdocumentcollection
Dim db As notesdatabase
   
Set db = source.Database
Set doccoll = dbUnprocessedDocuments

If MessageBox("Wollen Sie wirklich löschen", 36, "Löschen") = 6 Then
    Call doccoll.RemoveAll(True)
End If


Im QueryDocumentDelete zeigst du dem User einen Hinweis an, das er bitteschön über die Aktion löschen soll.

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)

  Messagebox "Zum Löschen von Dokumenten benutzen Sie bitte die Aktion 'Löschen'" _
      & Chr$(10) & "aus der Symbolleiste oder unter dem Menü Aktionen." , 64, "Löschen"         
  Continue = False
   
End Sub


Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete