رسالة(Message Box)عند عدم وجود بيانات بالتقرير

[رحال العمر]

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

انا عندي برنامج قاعد اجهزه لكن واجهتني مشكلة بنموذج التقرير

البرنامج عبارة عن ثلاثة جداول ومجموعة كبيرة من النماذج وتقريرين واستعلامين

النموذج اللي انا وقفت عنده نموذج يعرض التقرير عن عميل او زبون

ادخل رقم الزبون ورقم فاتورته مثلا يعرض التقرير او يطبع التقرير

لكن المشكلة عند وضع رقم زبون غلط يعرض التقرير فاضي

انا ابي عند وضع رقم الزبون غلط او رثم الفاتورة غلط تطلع لي رسالة تفيد بان احد الرقمين غلط وتفضى الخانات وهذي سهله

لكن المشكلة بالرسالة

انا وضعت رسالة بس عند ادخل رقم اول زبون علق الرقم وصار مايقبل الا هذا الرقم ورقم فاتورته ولو اضع له اي رقم موجود في الجدول ورقم فاتورته الصحيحين تطلع لي رسالة الخطا

انا عملت نموذج مصغر للبرنامج

عملت فيه جدولين تقريبيين لنفس الطريقة اللي تعاملت فيها مع الجداول وعملت فيها تقرير مبني على استعلام ونموذج للاستفسار عن معلومات العضو

اللي ابيه الان عمل مسج بوكس اذا حطيت رقم العضو رقم او عمرة (( هذا في النموذج المصغر المرفق ))

ولكن لربط القاعدة في النموذج او في الزر اتمنى استعمال الكود التالي لاني عملت البرنامج كله بنفس الكود

Dim DB As Database

Dim MYSET As Recordset

Set DB = DBEngine.Workspaces(0).Databases(0)


Set MYSET = DB.OpenRecordset("serch")

ثم وضع الاكواد لعمل المسج بوكس وعرض التقرير

وهذا هو الملف

اضغط هنا

ياليت تساعدوني لانه تقريبا خلص البرنامج مابقى الا هذي النقطه وبعض النقاط الضغيرة التي اعمل عليها

تحياتي لكم

رحال العمر

[فيصل الحربي]

السلام عليكم

اذهب الى تصميم التقرير و ابحث عن الخاصيه ( عند عدم وجود بيانات ) و حدد الرسالة التي ترغب بظهورها من هناك .

تحياتي

[رحال العمر]

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

اولا شكرا اخي فيصل الحربي على الرد

ثانيا اعتذر عن تأخري لاني كنت غير موجود

ثالثا جربت الطريقة التي تذكرت لكنها تعطيني خطا في البرمجة عند تنفيذها

اريد الكود البرمجي في التقرير اذا امكن

تحياتي لك

[امير عاطف]

Private Sub Report_NoData(Cancel As Integer)

MsgBox "عفواً .. التقرير لا يوجد به بيانات"

DoCmd.CancelEvent

End Sub