Custom BeforeDelConfirm Message Question/Problem

[ItsATJ]

I have created a custom BeforeDelConfirm dialog box using the following code:

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
    ' Supress Default Delete Confirmation dialog box.
    Response = acDataErrContinue

    ' Display custom dialog box.
    If MsgBox("Are you sure you want to delete this MEF?", vbYesNo) = vbNo Then
        No = True
    End If
End Sub

And a custom AfterDelConfirm dialog box using the following code:

Private Sub Form_AfterDelConfirm(Status As Integer)
    Select Case Status
    Case acDeleteYes
        MsgBox "The MEF has been deleted."
    Case acDeleteNo
        MsgBox "The MEF has not been deleted"
    Case acDeleteUserNo
        MsgBox "The MEF has not been deleted."
    End Select
End Sub

I have a "Delete This MEF?" button that I created with the button wizard.

The problem is, if I want to delete record 1, I click on the delete button, Access advances to record 2 and asks "Are you sure you want to delete this MEF?". If I say "Yes", Access will delete record 1 and continue to show record 2. Is this behavior normal? I would like it to stay on record 1 when it asks it's confirmation message, then advance to record 2 after the delete.

If possible, I would like Access to insert the MEF number to be deleted into the question - "Are you sure you want to delete MEF 1?"

Any help will be highly appreciated.

[Bob Fitz]

I have a "Delete This MEF?" button that I created with the button wizard.

Why not put a msgbox in the OnClick event of this button that requests confirmation of the wish to delete the current record. Only allow the lines of code that do the deleting to run if it was confirmed by the msgbox.

[ItsATJ]

Thanks for the quick reply.

The macro associated with the OnClick for the "Delete This MEF?" button has 7 action items:

Condition - Action - Arguments
 - OnError - Next,
 - GoToControl - =[Screen].[PreviousControl].[Name] 
 - ClearMacroError -
Not [Form].[NewRecord] - RunCommand - DeleteRecord
[Form].[NewRecord] And Not [Form].[Dirty] - Beep - 
[Form].[NewRecord] And [Form].[Dirty] -RunCommand - Undo
[MacroError]<>0 - MsgBox - =[MacroError].[Description], Yes, None

How should I modify the macro to get what I need?

[Bob Fitz]

I'm afraid I don't do macros, but the code below should work for you if you put it in the buttons OnClick event. Be sure to include the error handling code.

On Error GoTo ErrorHandler
  
  If MsgBox("Are you sure you want to delete this MEF?", vbYesNo, "Confirmation Required") = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdDeleteRecord
  End If
  
Exit_ErrorHandler:
  DoCmd.SetWarnings True
  Exit Sub
ErrorHandler:
    MsgBox Err.Description
    Resume Exit_ErrorHandler

[ItsATJ]

I have deleted my two form codes, removed the macro attached to the button and copied your code into the button's OnClick event code.

Works perfectly.

Thanks for all your help.