كيف أضع روتين فرعي عند عدم وجود سجلات في النموذج

جرب الأتي:

1- عرف متغيرا من نوع Form في الوحدة النمطية ويكون نوع التعريف Public والهدف منه استيعاب اسم النموذج الحالي

2- استخدم هذا المتغير بدلا من ME في الجملة Set txtmot = Me.RecordsetClone

أو

بدل الخطوة 2 اكتب Screen.ActiveForm.Name

جرب أو ستكون مضطرا لكتابة الكود في كل وحدة نمطية لكل نموذج

أستاذي الكريم ....

ممكن تعيد صياغة الروتين .. ليعمل من اي نموذج

طبعا في الموديول الذي قمت ببناءه في برنامجك اي الوحدة النمطية التي ذكرتها في مشاركتك الأولى...

في وحدة نمطية عامة أكتب الكود التالي :

Public Function sheckRec(MyFrm As Form)
If MyFrm.RecordsetClone.RecordCount = 0 Then
MsgBox "أكتب هنا ما تريد في حال وجود سجلات"
 Else
MsgBox "أكتب هنا ما تريد في حال عدم وجود سجلات"
End If
End Function

واستدع البرنامج من أي نموذج كما يلي:

Call sheckRec(Me)

جرب وأخبرنا بالنتيجة

استاذي مصلح .. اسعدني مرورك حمداً لله على السلامة ...

جميل جداً .... لكن اريد من الروتين في حالة عدم وجود سجلات أن يعطي الرسالة ولا يفتح النموذج .

بارك الله فيك .

الله يسلمك ويسعدك أخي الكريم

أضف في الوحدة النمطية العامة السطران التاليان :

DoCmd.CancelEvent

Exit Function

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

ستصبح الوحدة النمطية العامة كما يلي :

Public Function sheckRec(MyFrm As Form)
If MyFrm.RecordsetClone.RecordCount = 0 Then
MsgBox "أي كلام"
DoCmd.CancelEvent
Exit Function
Else
MsgBox "أي كلام"
End If
End Function

الإخوة الكرام

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

أتمنى إرفاق مثال على هذا الموضوع الشيق والمهم

الله يعطيك العافية أستاذي مصلح وأستاذي أبو عرقوب ... بارك الله فيكم وزادكم الله علماً ونفع الله بكم .