Delete Current Record (2000)

Topic

New Reply

I’m playing around with Access VBA which I find a little esoteric at the moment. I have placed a command button on a form without using the wizard and I wish it’s click event to delete the current record.
I have the following line of code in the on click event:

RunCommand acCmdDeleteRecord

On clicking the button, it begins the delete process and asks me if I wish to proceed. When clicking the “No” option, an error message appears saying that the RunCommand action has been canceled and I can choose to debug or end.

What do I need ti include to prevent this from happening?

TIA

Reply | Quote

Replies

Hi Rob,

If you want to suppress the error that occurs if the deletion is canceled, you must create an error handler:

Private Sub cmdSomething_Click()
On Error GoTo ErrHandler

RunCommand acCmdDeleteRecord
Exit Sub

ErrHandler:
If Err = 2501 Then
‘ Action canceled – do nothing
Else
‘ Other error – report to user
MsgBox Err.Description, vbExclamation
End If
End Sub

Reply | Quote

Hi Hans

The impenetrable black cloud has now been replaced by a dense fog.

Reply | Quote