برجاء المساعدة لعمل ترقيم تلقائي عند حذف أي سجل في النموذج ؟

[السعيدان]

برجاء المساعدة لعمل ترقيم تلقائي عند حذف أي سجل في النموذج ؟

في الملف المرفق ( السلفة النثرية ) لدي نموذج ( LL ) لتسجيل فواتير السلفة النثرية ، وعند فتحه يقوم البرنامج ( عند التنشيط ) بعملية الترقيم التلقائي ، وعندما أضع مؤشر الماوس على أي سجل وبعدها أضغط على زر أمر (حذف) لحذف هذا السجل ، يظهر مربع حوار ( CONFERMATION ) للتأكيد على طلب الحذف ، فعندما أضغط على (نعم ) يحذف السجل الحالي ( المحدد ) ، ولكن لا يقوم بعملية الترقيم التلقائي ، إلا إذا بعد إغلاق النموذج وإعادة فتحه من جديد ، وسؤالي هل من طريقة عند حذف أي سجل يقوم تلقائيا بإعادة الترقيم دون إغلاق النموذج وإعادة فتحه ؟؟؟

والملف مرفق :

______________.rar

[Dream_Works]

أرجو تجربة هذا الحل

في الحدث AfterDelConfirm للنموذج الرجاء وضع الكود التالي

Private Sub Form_AfterDelConfirm(Status As Integer)
If Status = Access.acDeleteOK Then
Call Form_Activate
End If
End Sub

[السعيدان]

أشكرك أخي (Dream_Work) على سرعة الاستجابة ، ولكن بعد تجربتي لما تفضلت به لم أحصل على المطلوب ، حيث لم يحدث تغيير ،علما بأن مربع الحوار الذي يظهر عند الضغط على زر أمر الحذف هو عبارة عن نموذج وليس رسالة تأكيد .

[Dream_Works]

تفضل أخوي

شغال

______________.zip

[السعيدان]

أشكرك أخي (Dream_Works) ولكن بعد تجربته لم ألاحظ أن الترقيم يعمل بصورة تلقائية عند الضغط على زر أمر الحذف ، أرجو أن لا أكون قد أزعجتك .

[Dream_Works]

جرب الملف المرفق ...

تم مسح الكود القديم

Private Sub Form_AfterDelConfirm(Status As Integer)
If Status = Access.acDeleteOK Then
Call Form_Activate
End If
End Sub

تغيير الكود في الحدث Form Activate الموجود في النموذج LL إلى Public

مناداة الكود السابق من نموذج Confirmation عند الضغط على زر نعم

بالتوفيق

______________.zip

[السعيدان]

جزاك الله خيرا أخي (Dream_Works) على ما تفضلت به ، وقد تم تجربته بنجاح ويعمل بالصورة التي طلبتها ، جعله الله في ميزان أعمالك .