Forbyde sletning dokument hvis der er svardokumenter - SoftDelete

Det er jo noget rod når brugere sletter et dokument hvortil der er svardokument. Så forsvinder de fra oversigten og dukker kun op ved søgninger og den slags.

Så jeg forsøger mig med en "Det må du ikke løsning".

Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
    Dim docsDelete As NotesDocumentCollection
    Dim docsChildren As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim i%
    Set docsDelete = Source.Documents  ' Selected documents
  ' Check selected documents for children
    For i = 1 To docsDelete.Count
        Set doc = docsDelete.GetNthDocument( i )
        Set docsChildren = doc.Responses
    ' If children then cannot continue
        If docsChildren.Count > 0 Then
            Msgbox "Der er svar til dokumentet. Dokumentet kan ikke slettes.",0,"Brugerfejl"
            Continue = False
            Exit Sub
        End If
    Next
  ' No children found - OK to delete
    Continue = True
End Sub


Det virker på sin vis glimrende, med undtagelse af én ting.

Softdeletion er slået til i databasen, og så er dokumenter åbenbart ikke helt slettede.

Så når svar - dokumentet slettes og man ønsker at slette hoveddokumentet siger den stadig at der er svardokumenter.

Hvordan pokker klarer jeg lige den ?