كود رسالة تحذيرية تحذف اسم من جدول الاسماء فى كل مرة نحذف اسم عند الضغط على 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