Discuss "delete button" in the Microsoft Access forum.

Private Sub Command10_Click()
On Error Resume Next
 Dim intAnswer As Integer
 intAnswer = MsgBox("Are you sure you want to Delete selected Line?", vbOKCancel, "Delete")
 Select Case intAnswer
    Case vbOK
    
     intAnswer = MsgBox("Final Warning - Continue and Delete Line?", vbOKCancel, "Warning! Delete")
         Select Case intAnswer
             Case vbOK
    
        DoCmd.SetWarnings (warningsoff)
        
        DoCmd.RunCommand acCmdSelectRecord
        DoCmd.RunCommand acCmdDeleteRecord
               
        
     Case vbCancel
    DoCmd.CancelEvent
        
 End Select
      
    Exit Sub

    MsgBox Err.Description
    Resume Next
    
 End Select
End Sub