مسح جميع السجلات بالنموذج الفرعي

[عبدالرزاق الحريبي]

السلام عليكم ورحمة الله وبركاته 

اخواني الكرام 

 

اريد كود يقوم بمسح جميع السجلات بالنموذج الفرعي  قبل حفظها لدي هذا الكود يقوم بمسح سجل واحد عند تحديده

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

[ابو جودي]

طب جرب المثال ده 
ولو مش ده اللى حضرتك عاوزه برجاء ارفاق قاعدة بيانات الله يبارك لك

Delete_filde_SupFrm.rar

 

[أبو عبدالله الحلوانى]

وعليكم السلام ورحمة الله وبركاته

جرب هذا الكود على افتراض أن النموذج الفرعى مرتبط بجدول اسمه Tabl1

On Error Resume Next
Dim delt
Delt = "delete from tabl1;"
    If MsgBox("هل تريد بالتأكيد حذف البيانات ؟", vbInformation + vbYesNo, "حذف") = vbYes Then
 DoCmd.SetWarnings False
DoCmd.runsql delt 0
DoCmd.SetWarnings True
        MsgBox "تم حذف السجل "
    Else
        MsgBox "تم الإلغاء "
 End IfEnd Sub

[عبدالرزاق الحريبي]

اشكرك اخي الكريم على التجاوب السريع

[ابو جودي]

اشكرك اخي الكريم على التجاوب السريع

الحمد لله الذى تتم بنعمته الصالحات

لا شكر على واجب