Thanks ranman.
I did resolve my issue with this code
Code:
Private Sub btnDEL_Click()
10 If ShowDebug Then Debug.Print "btnDEL_Click()"
20 If Not Application.GetOption("Confirm Record Changes") Then
30 Application.SetOption ("Confirm Record Changes"), True
40 End If
50 If MsgBox("Do you want to delete this record?", vbOKCancel, "Delete Button") <> vbOK Then
60 Exit Sub
70 Else
80 DoCmd.RunCommand acCmdDeleteRecord ' Delete the record
90 End If
End Sub
I was trying to use Form events eg Form.Delete, .BeforeDelConfirm, AfterDelConfirm but was not getting a message from Access.
Adding my own message, and the DoCmd resolves it.