ที่ปุ่ม Del.
เขียน Code ให้ไปเปิดตารางที่เก็บข้อมูล แล้วหา Record ที่ตรงกับ Criteria ที่ต้องการ และลบ
เช่น
Private Sub Del_Click()
Dim FileDDb As Database
Dim FileDSet As DAO.Recordset
Set FileDDb = DBEngine.Workspaces(0).Databases(0)
Set FileDSet = FileDDb.OpenRecordset("ชื่อตาราง", DB_OPEN_DYNASET)
FileDSet.MoveFirst
Do Until FileDSet.EOF
If FileDSet![No] = sNo.Value Then 'Criteria ที่ต้องการ
FileDSet.Delete
End If
FileDSet.MoveNext
Loop
FileDSet.Close
FileDDb.Close
End If
End Sub


วิธีที่ 2 สร้าง del คิวรี่
แล้วเมื่อกดปุ่ม Del ก็ให่ Run คิวรี่

ขอบคุณมากครับ