Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click
DoCmd.RunCommand acCmdDeleteRecord
Exit_cmdDelete_Click:
Exit Sub
Err_cmdDelete_Click:
Select Case Err.Number
Case 2046
MsgBox "You can't delete a blank record"
Case Else
MsgBox Err.Description, vbInformation, Err.Number
End Select
Resume Exit_cmdDelete_Click
End Sub