how to code an error msg " are you sure you want to delete?" 1

[lr999]

How to code 'delete scipt' button with a custom confirmation
'Are you sure you want to delete?

 

[kermit01de]

Private Sub DeleteButton_Click()

    If MsgBox("Do you really want to delete?", vbOKCancel, "DELETE?" = vbCancel Then Exit Sub

...
Your DELETE Procedure ...
...
End Sub

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<

 

[Andrzejek]

I would do it this way:

Private Sub cmdDelete_Click()

If MsgBox("Are you sure you want to delete?", _
    vbYesNo Or vbQuestion Or vbDefaultButton2, _
    "Delete this?") = vbYes Then
[green]
    'Your Delete logic here
[/green]
End If

End Sub

This way you get the message box with Yes / No buttons, with 'No' as default, so if user just hits Enter, the 'No' will be chosen and the delete will not happen. Just for safety

Have fun.

---- Andy

 

[kermit01de]

@Andy

Yes, you are absolutely right, mine was quick and dirty ;-)

Kind regards
Mirko
--------------------------------------
>>>>>> ... I am sure, some supportissues are a matter of PEBKAC ... <<<<<