مشكلة فى رسالة تحذيرية

[monm]

كود رسالة تحذيرية تحذف اسم من جدول الاسماء فى كل مرة نحذف اسم عند الضغط على yes

 الاحظ أنه عند الضغط على زر (No) يحذف ايضا فما الخطأ فى الكود 

 Private Sub DEL_Click()
 On Error GoTo Err_DEL_Click
If MsgBox(" سيتم الالغاء" & vbCrLf _
& "كل مرة يحذف اسم ", vbExclamation + vbMsgBoxRight + vbYesNo, "حذف") Then
DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_DEL_Click:
    Exit Sub
Err_DEL_Click:
    MsgBox Err.Description
  Resume Exit_DEL_Click
      End If
End Sub

k
      End If
End Sub

 

[sandanet]

هكذا يجب ان تكون

Private Sub DEL_Click()
If MsgBox(" سيتم الالغاء" & vbCrLf & "كل مرة يحذف اسم ", vbExclamation + vbMsgBoxRight + vbYesNo, "حذف") = vbYes Then
DoCmd.SetWarnings False
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
  
Else
DoCmd.CancelEvent
End If
End Sub