رسالة تفيد بعدم وجود نتائج في الاستعلام

استخدم هذا الكود من اعداد الاخ مصلح الحريصي

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

شكرا جزيلا لك اخي الكريم..

ولو تشرحي لي فقط اين اضع هذا الكود

وفقك الله لمايحب ويرضى

بسم الله الرحمن الرحيم

الاخ سلطان

اذا ذكرت لنا كيف يتم استدعاء الاستعلام نقول لك ان شاء الله اين تضع الكود السابق....

أخوك ابو أحمد

السلام عليكم

الاخ سلطان اذهب الى النموذج الذي يستعرض لك الاستعلام

ثم من خصائص النموج يظهر لك مربع الخصائص ستجد عدة تبويبات

من التبويب المسمى (حدث) انقر عليه بالفاره

ستجد قائمة بمواقع الاحداث من ظمنها ستجد بند باسم ( عند الفتح )

اضغط على احقل الفارغ بجانبه ستجد في اخره على اليسار ثلاث نفط صغيره

اضغط عليها سيتفح لك محرر الفيجوال بيسك

انسخ الكود السابق وضعه فيه كما هو ثم اغلق المحرر واحفظ العمل

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

امل ان اوصلت المعلومه بالشكل الصحيح

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

الف شكر لكم ايها الاخوة ا لامر نجح ولله الحمد

ولكن

تظهر رسالة اخرى تفيد تم الغاء الاجراء!!

كيف الغي ظهور الرسالة الثانية

ولكم اطيب الاماني بقضاء اجمل الاوقات

DoCmd.SetWarnings (off)