Private Sub cmd_DatensatzLoeschen_Click()
On Error GoTo Err_cmd_DatensatzLoeschen_Click
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_cmd_DatensatzLoeschen_Click:
    Exit Sub
Err_cmd_DatensatzLoeschen_Click:
    MsgBox Err.Description
    Resume Exit_cmd_DatensatzLoeschen_Click
End Sub