مساعدة في كود حذف عدة سجلات بعد نسخها إلى جدول آخر

[nssj]

الإخوة الكرام .. في الملف المرفق كود لحذف سجل أو عدة سجلات، بعد نسخها لجدول آخر

وهو يعمل معي بشكل جيد والحمد لله

لكن توجد مشكلة  .. أرجو أن تكون بسيطة

وهو أنه بسبب استخدام (Requery) يرجع لأول الملف

والموضع المطلوب أن يرجع إليه، هو قبل أول حديث تم حذفه

ففي هذا المثال

 

إذا تم تحديد عدة سجلات لحذفها أولها رقمه (42) فالمطلوب أن يرجع لأول حديث قبله وهو (38)

Delete.accdb

[jjafferr]

وعليكم السلام 🙂

 

تفضل 🙂

 

جعفر

1426.Delete.accdb.zip

[nssj]

أحسن الله إليك أخي الكريم .. تم المطلوب بحمد الله

وبما أن هذه من المرات القليلة التي يتم فيها المطلوب من أول تعديل ولم ندخل في دوامة التعديل على التعديل بسبب أنني لم أوضح المطلوب كما ينبغي 🙄 .. فلا بأس من سؤال عالماشي 😁

لاحظت في هذا الكود والذي قبله أنك استخدمت هذا الأمر لزيادة السرعة

Me.Painting = False
Me.Painting = True

وأنا أستخدم عادة

DoCmd.Echo False
DoCmd.Echo True

ويظهر لي أنهما يؤديان نفس المهمة .. فهل الأمر كذلك أم يوجد بينهما فرق في الأداء والسرعة

[jjafferr]

نعم يؤديان نفس المهمة ، ولكنها ليسا لزيادة السرعة 🙂

البرنامج يستطيع القيام بالمعادلات بشكل سريع ، ولكنك عندما تطلب منه او تسمح له بأن يُظهر/يعرض نتائج هذه المعادلات على الشاشة ، فالعرض يأخذ وقت ، وخصوصا اذا عندك اوامر اعادة عرض البيانات مثلا ،

لذا ، بإستخدام الامر Me.Painting = False او DoCmd.Echo False ، فإننا نطلب من البرنامج بعدم إظهار/عرض التغييرات على الشاشة ، وانما إظهار/عرض النتائج النهائية فقط والتي تكون بعد الامر Me.Painting = True او DoCmd.Echo True ، لهذا السبب تلاحظ سرعة في الاداء 🙂

 

جعفر