ممكن كود زر امر حذف في النموذج الرئيسي يحذف جميع السجلات من النماذج الفرعية

[ASDewq1398]

ارجو المساعدة

عندي (5) جداول و (5) نماذج نموذج رائيسي و 4 فرعية ابغاء زر في انموذج الرئيسي يحذف جميع السجلات في النماذج الفرعية بشرط يكون رقم التسلسل في النموذج الرائيسي يساوي رقم المعرف في النماذج الفرعية  طبعاً مع عدم حذف السجل في النموذج الرائيسي

تم تعديل مارس 10, 2023 بواسطه ASDewq1398

[ابوخليل]

الحذف يتم في الجداول مياشرة

على اعتبار رقم التسلسل في جدول 1 هو عبارة عن المعرف في الجداول الآخرى

الحذف يتم على كل جدول باستثناء جدول1 .. لكل جدول سطر يخصه

الكود واضح وسهل الفهم فقط استبدال مسميات الجداول والحقول بالتسميات التي لديك

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbl2.*, tbl2.idStud2 FROM tbl2 WHERE tbl2.idStud2 = [Forms]![frm1]![IDStud]"
DoCmd.RunSQL "DELETE tbl3.*, tbl3.idStud3 FROM tbl3 WHERE tbl3.idStud3 = [Forms]![frm1]![IDStud]"
DoCmd.RunSQL "DELETE tbl4.*, tbl4.idStud4 FROM tbl4 WHERE tbl4.idStud4 = [Forms]![frm1]![IDStud]"
DoCmd.RunSQL "DELETE tbl5.*, tbl5.idStud5 FROM tbl5 WHERE tbl5.idStud5 = [Forms]![frm1]![IDStud]"
DoCmd.SetWarnings True
DoCmd.Requery

 

[ASDewq1398]

اخي بيض الله وجهك والله يوفقك في الدنيا والاخرة 

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

 

تم تعديل مارس 11, 2023 بواسطه ASDewq1398

[Moosak]

شيل آخر سطر ..

DoCmd.Requery

وممكن تستبدله ب:

DoCmd.Refresh

 

[ASDewq1398]

بيض الله وجيهكم جيع شكر بحجم السماء