Delete Button

There is no Cancel argument for a command button click ... if you're trying to confirm a delete, do this:

If MsgBox("Delete this record?", vbOKCancel) <> vbOK Then
  Exit Sub
Else
  Currentdb.Execute "DELETE * FROM YourTAble WHERE YourID=" & Me.YourIDField
  Me.Requery '/to refresh the recordset
End If
 
I'd try to avoid the DoMenuItem where possible ...

Cancel = True
only works for those events that passes a cancel argument like before update:
Private Sub MyTextBox_BeforeUpdate(Cancel As Integer)

So
Cancel = True
will not work for the click event.

BTW:
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
are archaic.   Instead of those use:
RunCommand acCmdSelectRecord
RunCommand acCmdDeleteRecord

Reference:  http://home.clara.net/tkwickenden/

So instead the code would be:

Private Sub DeleteButton_Click()

On Error GoTo Err_DeleteButton_Click

  If MsgBox("Delete this record?", vbOKCancel) = vbOk Then
      RunCommand acCmdDeleteRecord
  End If

  Exit Sub

Err_DeleteButton_Click:
    MsgBox Err.Description

End Sub