On Delete Event Not Working

[pdowg881]

I have a simple message box code in the On Delete property of my form. It will not trigger when deleting a record from the subform. What should I check that could be causing this.

Private Sub Form_Delete(Cancel As Integer)
Cancel = True
MsgBox "This record can't be deleted."
End Sub



Thanks.

Edit: Confirm Record changes in Access options is checked. I also cannot make the event (or Before/After Delete) fire using the macro builder. They work properly outside of a sub form.

[June7]

I use the BeforeDelConfirm event to capture delete action.

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
'suppress default Delete Confirm dialog box.
Response = acDataErrContinue
'cancel the automatic delete operation
Cancel = True
MsgBox "This record can't be deleted."
End Sub

[John_G]

I have a simple message box code in the On Delete property of my form. It will not trigger when deleting a record from the subform

Where is the On Delete code - in the main form or the subform? The main form will not detect deletions in the subform.