SetWarnings False

الأخ على :

أكيد هناك زر أنت وضعته لفتح التقرير ....... تمام

قبل الأمر الذي يفتح التقرير ضع هذا الكود

 On Error Resume Next

أشرف خليل

شكراً لك عزيزي اشرف

ولكن جربت ما تفضلت به ولأن On Error Resume Next تعالج الاخطاء والحالة في ما اريد ليس تجاوز الخطاء

فمضمون الرسالة الثانية تعلم المستخدم بالغاء الامر فتح التقرير

بواسطة

Cancel = True

سبق لي وان الغيت ظهور هذه الرساله بطريقة لم اتذكرها !!

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

اخي العزيز أرجو أن ينفع هذا الحل

Private Sub Report_NoData(Cancel As Integer)
 MsgBox "No Data"
 DoCmd.CancelEvent
End Sub

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

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

عزيزي مصراوي

هل جربت الطريقة ونجحت معك

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

واعتقد انها لا تختلف عن Cancel = True

فكلاهما يلغي حدث فتح التقرير ولكن الاكسيس مصر على ان يخبرنا هو انه تم الغاء الاجراء :mad: :mad:

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

أشرف خليل ;)

رح ادوات وابحث هناك عن الغاء جميع الرسائل وبالتالي يتم مسح

جميع رسائل ومسجات اكسس وتبقى الرسائل التي انت قمت بوضعها

على مااتذكر انه من ادوات

وماادري والله باي قائمة

لكن من القائمة اللي فوق

رح ادوات

وابحث اكيد انها هناك

وشكرا على تقبلكم ازعاجي

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

أنا أصلا لا يظهر لي سوي الرسالة التي كتبتها أنا

هل من الممكن نشر القاعدة لنحاول سويا ؟؟

ارفق لكم ملف تجريبي يوضح المشكلة

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

ستشاهد الرسالة ( لايوجد بيانات )

ثم تظهر رسالة تم الغاء الاجراء OpenReport طيبة الذكر

شكراً لك يا اخي اشرف ويا مصراوي على اهتمامكم وللجميع تحياتي

رسالة المنتدى تقول بأن حجم الملف كبير ولايسمح بملف اكبر من 1 ك ب :eek: وهو 48 ك ب

الملف هنا

الأخ على الشهري

جرب هذه القاعدة وأخبرني بالنتيجة :

وحاول أن تعرف ماذا فعلت لأنه شيء بسيط جدا جدا جدا جدا

http://mypage.ayna.com/ashrafk/AccessMsg.zip

اشرف خليل

لالغاء رسالة " تم الغاء الاجراء OpenReport " قم بتغيير الكود التالى :

MsgBox Err.Description الى الكود التالى :

If Err.Number <> 2501 Then MsgBox Err.Description

ستختفى الرسالة باذن الله ، علما بان هذة الطريقة تعلمتها من الاخ / ابو حمود فجزاه الله خيرا فادعوا له .

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

لقد جربت قاعدتك و قاعدة الأخ أشرف علي أوفيس 2002 و أيضا علي 2000 و لم يحدث لي مشكلة فى كلاهما

فان كنت تعمل علي 97 فقد تكون هناك مشكلة فى VBA قد تم تجاوزها فى الاصدارات التالية و ان لم يكن فسنحتاج للبحث عن تفسير

و قد يكون الحل هو اعادة تحميل الاوفيس مثلا

:o

الأخ علي

السطر الذي ذكره الأخ Ezzat هو الحل .

فعند نقر زر أمر مثلا لفتح تقرير علما أن إجراء فتح التقرير تم إنشاؤه باستخدام المعالج تجد السطر التالي في آخر الكود :

MsgBox Err.Description

غيره إلى :

If Err.Number <> 2501 Then MsgBox Err.Description

والكود مهمته بسيطة حيث أنه يتأكد من رقم الخطأ الذي يحصل طبعا عن فتح تقرير ثم إلغاء الفتح قبل اكتماله -لعدم وجود بيانات- سيظهر خطأ رقمه 2501 وهو المسؤل عن ظهور وصف الخطأ في عبارة Err.Description .

وللجميع التحية