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

[ابو انس 2018]

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

ارجو من حضراتكم وضع كود يمنع فتح اي نموذج رئيسي في حال كان فارغا ولا يوجد به بيانات ويا حبذا ظهور رسالة تنبيه بذلك.وبارك الله فيكم

[ابو انس 2018]

للعلم هو نموذج مستمر مصدره استعلام إلحاقي وليس لإدخال البيانات

 

[kaser906]

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

ضع مرفق ليتمكن الاعضاء من مساعدتك

[ابو انس 2018]

بعد التحية اعتقد الامر لا يحتاج لمرفق

فالمطلوب عند الضغط على زر لفتح النموذج اذا كان هذا النموذج فارغ بدون بيانات تظهر رسالة بذلك ولا يفتح واذا العكس يفتح.وبوركت اخي

 

[وسيم الحمادة]

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

[أبو آدم]

تفضل

و في حدث OnOpen للنموذج

Private Sub Form_Open(Cancel As Integer)

On Error Resume Next

If DCount("*", Me.RecordSource) = 0 Then
'note that me.recordsource is generic - you dont need to specify the actual query

  MsgBox ("Nothing to display")
  Cancel = True
  Exit Sub
End If
End Sub

 

لا داعي لتعديل اي شيء استخدم الكود كما هو و سيتم التعرف على مصدر السجلات مباشرة

لا بد من استخدام 

 

On Error Resume Next

لتجنب رسائل الخطأ

[ابو انس 2018]

بارك الله فيك اخي ابو ادم هذا هو المطلوب.

 

[Bshar]

السلام عليكم ,,

اشكرك اخي ابو ادم على الكود , انا كنت ابحث على كود مثل هذا ووجدته بارك الله بك وبارك في رزقك اخي الكريم