เป็นคำสั่งสำหรับ ลบเรคคอร์ด.. ก็สมมติว่าสร้างปุ่มขึ้นมา 1 ปุ่มเพื่อใช้ลบ เรคคอร์ด
ปัจจุบันที่กำลังชี้เรคคอร์ดอยู่

Private Sub Command1_Click()
On Error Goto errCommand1_Click

If Msgbox("คุณต้องการลบระเบียนนี้ หรือไม่?",vbQuestion,vbYesNo) = Yes Then
Docmd.SetWarning False
DoCmd.Runcommand.acCmddeleterecord
Docmd.SetWarning True

End If

Exit_Command1_Click:
Exit Sub

errCommand1_Click:
MsgBox "ไม่สามารถลบข้อมูลได้..!"
Resume Exit_Command1_Click

End Sub