السلام عليكم ورحمة الله وبركاته
اخواني الكرام
اريد كود يقوم بمسح جميع السجلات بالنموذج الفرعي قبل حفظها لدي هذا الكود يقوم بمسح سجل واحد عند تحديده
On Error Resume Next
If MsgBox("هل تريد بالتأكيد حذف البيانات ؟", vbInformation + vbYesNo, "حذف") = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
MsgBox "تم حذف السجل "
Else
MsgBox "تم الإلغاء "
End IfEnd Sub