返答文書のある文書の削除を禁止する

返答文書のある文書の削除を禁止するには、DatabaseScriptのQuerydocumentdeleteイベントメソッドへ処理を記述します。


※DatabaseScriptのQuerydocumentdeleteイベントメソッドとは、データベースで文書を削除しようとした時（Deleteキーを押した時）に呼び出されるメソッドです。

■記述例

   Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
   ' 削除対象の文書の内、返答文書が付いている文書がある場合、
   ' 削除を禁止する
        Dim NUIDb      As NotesUIDatabase
        Dim NDCol      As NotesDocumentCollection
        Dim NDoc       As NotesDocument
        Dim NDColRes   As NotesDocumentCollection
         '---削除対象の文書を取得
        Set NUIDb = Source
        Set NDCol = NUIDb.Documents
        Set NDoc  = NDCol.Getfirstdocument
        Do         '---返答文書が付いている場合削除を禁止
            Set NDColRes = NDoc.responses
            If NDColRes.count > 0 Then
                 Messagebox "この文書は返答文書があるため削除を禁止しています。_
                & Chr$(13) & "先に返答文書を削除して下さい", 16, "エラー"
               Continue = False
               Exit Do
           End If
           Set NDoc = NDCol.GetNextdocument(NDoc)
       Loop Until NDoc Is Nothing
   End Sub
 

■確認済み環境
・NotesR5(R5.0.11)
・Notes6.5(R6.5.4)