رساله عند عدم وجود بيانات في النموذج

أخي الكريم

السلام عليكم

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

if dcount("[fld]","qur1") = 0 then

msgbox "لا يوجد بيانات"

cancel = true

end if

حيث fld هو اسم أي حقل في الاستعلام

و qur1 هو اسم الاستعلام المحدد في مصدر الصف للنموذج

ملاحظة : لم أجرب الكود

أخوك / أبو هاجر

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

بعد إذنك استاذي ابو هاجر

طريقة أخرى

في حدث " عند الفتح " الخاص بالنموذج في الوحدة النمطية ضع الكود التالي:

If RecordsetClone.RecordCount = 0 Then
MsgBox "لا يوجد بيانات ", vbInformation + vbMsgBoxRight, ""
DoCmd.CancelEvent
End If

بسم الله

الأخ الفاضل / مصلح

السلام عليكم

احب ان اعرف منك ما هى هذه الوظيفة RecordsetClone.RecordCount

حيث رايتها فى كثير من الاكواد التى تنشر فى منتدانا الرائع و هذا و لكن بكل اسف لم اعرف ما هى ؟؟

و ما هى وظيفة DoCmd.CancelEvent فى هذا الكود

شكرا لك

أخــBengaــوك

الأخ benga

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

وظيفتة هذا الكود هو جمع سجلات النموذج والكود الموضح بالأعلى يقوم بجمع السجلات في النموذج وقد أضفنا له الرسالة بحث إذا جمع السجلات وظهرت النتيجة صفر يظهر رسالة ويلغي فتح النموذج ولكي تتعرف على عمل الكود جرب التالي0

ضع مربع نص على نموذج يحتوي على بيانات وسمه Txt1 ثم ضع زر على النموذج وفي حدث زر الأمر "عند النقر " في الوحدة النمطيه ضع الكود التالي

Me.Txt1 = RecordsetClone.RecordCount

أغلق النموذج واحفظ العمل ثم أعد فتح النموذج وأنقر على الزر الذي وضعت الكود عليه وشاهد محتويات مربع النص Txt1 أضف سجل أو احذف سجل وشاهد النتيجة 0

لك تحياتي0

بسم الله

أخى مصلح

جزاك الله خيرا

و اعتذر عن التاخر فى الرد و لكن بسبب عدم وصلى اخطار بريدى بالاضافة للموضوع و لا ادى ما السبب !! ؟؟

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

اكرر شكرى

أخـBengaــوك