Delete record on bound form via Button click

[orange]

I have a bound form and want to create an audit log. I have some audit code,but am having an issue (or a senior moment).


If I select a record and use the DELETE KEY on the keyboard, I get a message box asking for confirmation of the delete; when I click Yes, the record is deleted, the log is updated appropriately.
However, I have a button on the form (Delete This Record) and when clicked it will update the log and delete the record--BUT-- it does not give the option to confirm or cancel the delete operation?

??How to get code behind the button to ask for the confirmation?
?? Can you provide a sample vba?

Any suggestions welcome.
Thanks in advance.

[ranman256]

if msgbox("Delete record?",vbQuestion+vbYesNo+vbDefaultButton2 ,"Confirm") =vbyes then
   docmd.setwarnings false
   docmd.openquery "qaAddLogQry
   docmd.setwarnings true
   docmd.openquery "qdDeleteRec"
end if

[orange]

Thanks ranman.
I did resolve my issue with this 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.