Making my own warning message

[miss_sunshine]

When deleting a record, Access displays its own warning message. I would like to use my own message for when users delete a record via a form. Is there any way the default message can be customised or overridden? (I am using Access 2003).

 

[trucktime]

Delete

I suppose you have a Delete button on the form, and suppose it is named cmdDelete.

Put the following code in the OnClick Event.

Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click

DoCmd.SetWarnings False
If MsgBox("Confirm deletion of the record?", _
vbQuestion + vbYesNo + vbDefaultButton2, _
"Delete?") = vbYes Then
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
End If
Exit_cmdDelete_Click:
DoCmd.SetWarnings True
Exit Sub
Err_cmdDelete_Click:
MsgBox Err.Description
Resume Exit_cmdDelete_Click
End Sub