How to handle error messages?

[yes sir]

I have the following code (below) that I use to allow the user to select a particular value to determine which records to delete. However, I was wondering if there was a way to avoid having the Microsoft Access auto-generated messages pop up.

For this particular case, after the user selects the value and hits the command button, then a msg box comes up verifying if the user wants to delete the records with selected value. Clicking 'Yes' will then generate the Access message that asks the user again if they want to delete the records and that these actions can not be undone. Clicking Yes here will delete the records.



However, clicking 'No' or x'ing off this Access generated message will then cause a Run-time error 2501. I want to handle this error if it all possible.

Private Sub CmdRemove_Click()
    Dim strQuery As String
    
    DoCmd.Beep
    If vbYes = MsgBox("Are you sure you want to delete? Clicking 'Yes' will completely remove all prospects with the selected Class from the database", vbYesNo + vbQuestion, "Delete prospects?") Then
    strQuery = "DELETE * FROM [Prospects] " & "WHERE Prospects.Class = '" & Forms("Classpopup").cmbRemove & "';"
    DoCmd.RunSQL strQuery
    End If
    
End Sub

[pbaldy]

So you want the warning messages? Sounds like you want to trap for the error:

http://www.baldyweb.com/ErrorTrap.htm

[yes sir]

So you want the warning messages? Sounds like you want to trap for the error:

http://www.baldyweb.com/ErrorTrap.htm

Yes. Thank you kind sir.

[pbaldy]

Happy to help.