Private Sub Form_AfterDelConfirm(Status As Integer)

  Select Case Status
    Case acDeleteOK
      MsgBox "正常に削除されました！"
    Case acDeleteCancel
      MsgBox "コードによってキャンセルされました！"
    Case acDeleteUserCancel
      MsgBox "ユーザーによってキャンセルされました！"
  End Select

End Sub