عدم عرض التقرير إذا كان فارغ

[الأمير هشام]

الزملاء الاعزاء    مساء الخير 

عندى تقرير مرتبط بإستعلام و أقوم بإظهار التقرير بصيغة PDF 

المشكلة ان عندما لا يكون بالتقرير بيانات  يظهر التقرير بصفحة فارغة 

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

مع الشكر 

 

 

[النجاشي]

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

MsgBox "لا توجد بيانات لهذا التقرير. إلغاء التقرير...", vbMsgBoxRight, "لاتوجد بيانات"
    Cancel = -1
اضف حقل بالتقرير وسميه Cancel واجعل مصدره=1

 تحياتي

[vetakita]

عندى تقرير مرتبط بإستعلام و أقوم بإظهار التقرير بصيغة PDF 

[ابو جودي]

طريقة تانى لان انا عن نفسي افضلها

لان     Cancel = -1  او        Cancel = True  احيانا كانت تعطى خطأ

Private Sub Report_NoData(Cancel As Integer)
On Error GoTo ErrorHandler
  MsgBox "There is no data in the report. " & "The report will now close."
  DoCmd.Close acReport, Me.Name, acSaveNo
ExitProcedure:
    Exit Sub
ErrorHandler:
    'MsgBox "Error  " & Err.Number & "  " & Err.Description
DoCmd.CancelEvent
Resume ExitProcedure
End Sub

 

 

تم تعديل ديسمبر 21, 2020 بواسطه Mօհმოოεძ Eʂʂმო

[ابو جودي]

وهذا تطبيق

 

Test TimeToLettre.mdb

8 دقائق مضت, vetakita said:

عندى تقرير مرتبط بإستعلام و أقوم بإظهار التقرير بصيغة PDF 

هات مرفق لنرى لانى مش فاهم فانا قليل الفهم 

[الأمير هشام]

الزملاء الأعزاء السلام عليكم

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

مرفق ملف للإيضاح 

ملحوظة :(فى المثال المرفق لا توجد فتره إختبارية ثالثة )  و التى أريد أن يطبع التقرير مكتوب فى الصفحة التقرير (لا توجد بيانات لعرضها بالتقرير

مع الشكر و التقدير لسيادتكم

 

Exams.accdb

[vetakita]

11 ساعات مضت, vetakita said:

عندى تقرير مرتبط بإستعلام و أقوم بإظهار التقرير بصيغة PDF 

عندى تقرير مرتبط بإستعلام و أقوم بإظهار التقرير بصيغة PDF 

 

• Speed Test

[jjafferr]

17 ساعات مضت, النجاشي said:

اضف حقل بالتقرير وسميه Cancel واجعل مصدره=1

مافي داعي لهذه الجزئية ،وتابع معنا التعليق التالي 🙂

 

 

17 ساعات مضت, Mօհმოოεძ Eʂʂმო said:

لان     Cancel = -1  او        Cancel = True  احيانا كانت تعطى خطأ

لتوضيح هذه المعلومة ، فينبغي عليك النظر الى الحدث ، سواء للنموذج او التقرير :

.

المجموعة رقم 2 ، الاحداث يوجد بها كلمة Cancel ، لذا يمكننا ان نستخدم الامر Cancel = True ، والبرنامج يقبله وينفذه ،

بينما في المجموعة رقم 1 ، فالاحداث لا يوجد بها كلمة Cancel ، لهذا السبب الامر Cancel = True لن يعمل 🙂

 

وهذا يسري على الوحدات النمطية كذلك 🙂

 

جعفر

[ابو جودي]

2 دقائق مضت, jjafferr said:

مافي داعي لهذه الجزئية ،وتابع معنا التعليق التالي 🙂

 

 

لتوضيح هذه المعلومة ، فينبغي عليك النظر الى الحدث ، سواء للنموذج او التقرير :

.

المجموعة رقم 2 ، الاحداث يوجد بها كلمة Cancel ، لذا يمكننا ان نستخدم الامر Cancel = True ، والبرنامج يقبله وينفذه ،

بينما في المجموعة رقم 1 ، فالاحداث لا يوجد بها كلمة Cancel ، لهذا السبب الامر Cancel = True لن يعمل 🙂

 

وهذا يسري على الوحدات النمطية كذلك 🙂

 

جعفر

 انا لم انتبه الى هذه الجزئية من قبل فعلا 

استااذى القدير ومعلمى الجليل و والدى الحبيب استاذ @jjafferr  دائما نقف عاجزين عن تقديم الشكر اليكم كما ينبغى 

شكر الله لكم واحسن اليكم ورزقكم الخيـر كله 

[jjafferr]

وتكملة للموضوع ،

بعض الاوقات نكون محتاجين ان ننادي الحدث من حدث آخر ، سواء من النموذج او خارجه ، فعادة نكتب الحدث بهذه الطريقة (لا داعي له لما ننادي الحدث من نفس النموذج ، ولكن نحتاج له اذا ناديناه من نموذج آخر) :

1.
Public Sub Form_Load()


2.
Public Sub Form_BeforeUpdate(Cancel As Integer)

 

 

فإذا اردنا ان نناديهم ، يمكننا ان نناديهم هكذا (لاحظ للأمر رقم 2 ، اننا استعملنا صفر (0) ، لأننا يجب ان نضع متغير لهذا الحدث ، وإلا فأننا نحصل على رسالة خطأ 🙂 ) :

1.
Form_Load
او
Call Form_Load


2.
Form_BeforeUpdate (0)
او
Call Form_BeforeUpdate(0)

 

جعفر

[الأمير هشام]

اساتذتى الأعزاء    السلام عليكم

الشكر موصول لحضراتكم لكن للاسف قمت بإتباع الخطوات لكن  يظهر رساله خطأ من الأكسس 

Microsoft Access is stop working . Try to Recover 

ثم يغلق الاكسس

مرفق الملف الخاص بى بعد التعديل  حيث ارجو ان أفهم ما هو الخطأ 

مع الشكر 

 

Exams.accdb

[ابو جودي]

اتفضل 

 

Exams (3).accdb

[jjafferr]

وهاي مشاركتي 🙂

 

.

جعفر

Exams.zip

[النجاشي]

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

[الأمير هشام]

أستاذى الفاضل جعفر  السلام عليكم

قمت بنسخ الكود فى حدث On no Data 

كما اوضحت سيادتكم بالمثال ،   و قمت بفحص المثال و لم اجد اى شىء أخر 

لكن عندما قمت بنسخ الكود  بالبرنامج الأصلى تظهر رساله خطأ بالتقرير و لا يعمل 

هل يوجد أى شىء على إضافته 

و اسف على إزعاج سيادتكم و لكن نتعلم من سيادتكم 

مع الشكر  

[ابو جودي]

12 دقائق مضت, الأمير هشام said:

أستاذى الفاضل جعفر  السلام عليكم

قمت بنسخ الكود فى حدث On no Data 

كما اوضحت سيادتكم بالمثال ،   و قمت بفحص المثال و لم اجد اى شىء أخر 

لكن عندما قمت بنسخ الكود  بالبرنامج الأصلى تظهر رساله خطأ بالتقرير و لا يعمل 

هل يوجد أى شىء على إضافته 

و اسف على إزعاج سيادتكم و لكن نتعلم من سيادتكم 

مع الشكر  

يبدو ان قاعدتك بها عفاريت 🤣😂😅

هات رقم رسالة الخطأ او صورة منها لنرى

 

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

 

تم تعديل ديسمبر 23, 2020 بواسطه ابا جودى

[jjafferr]

شوف يا أمير 🙂

الليلة كريسمس ، فالجماعة اللي يطيروا ، واللي اناديهم بالبخور ، ويجون يساعدوني ، مشغولين عني الليلة ، عماني واعرف شغلي 😁

فإذا اردت ان اساعدك ، فالمساعدة لازم تيجي منك مباشرة 😁

ارفق الكود اللي عندك فيه مشكلة ، او البرنامج ، لأني عملت التعديل على البرنامج اللي انت ارفقته 🙂

 

جعفر

[محمد التميمي]

السلام عليكم

بوركت اياديكم اساتذتي الكرام انا ايضاً استفد من شرح  الموضوع 

 

[jjafferr]

2 دقائق مضت, ابا جودى said:

بها عفاريت

😬

وانت عرفت ازاي ، يخرابي ، سر وانكشف 😬

[ابو جودي]

لانى استخدم البخور العمانى ايضا 😏

[ابو جودي]

استاذى الجليل ومعلمى القدير  و والدى الحبيب الاستاذ @jjafferr

ممكن راى حضرتك فى الافكار اللى هنا 

وهل فى خلل فى فكرة الطباعة من زر الطباعة ان وجدت طابعة لانى الاحظ انه يبدأ اولا بالطباعة قبل الكود

 

NoDataInReports.zip

[ابوبسمله]

22 دقائق مضت, jjafferr said:

😬

وانت عرفت ازاي ، يخرابي ، سر وانكشف 😬

الكل يعرف سرك اخى واستاذى العزيز 😀

في ٢٢‏/١٢‏/٢٠٢٠ at 16:48, ابا جودى said:

 انا لم انتبه الى هذه الجزئية من قبل فعلا 

استااذى القدير ومعلمى الجليل و والدى الحبيب استاذ @jjafferr  دائما نقف عاجزين عن تقديم الشكر اليكم كما ينبغى 

شكر الله لكم واحسن اليكم ورزقكم الخيـر كله 

وانا مثلك اخى واستاذى ابا جودى

فجزاه الله عنا خيرا استاذنا العزيز جعفر 💐

[jjafferr]

39 دقائق مضت, ابا جودى said:

وهل فى خلل فى فكرة الطباعة من زر الطباعة

كله تمام يا بشمهندس 🙂

 

جعفر

[ابو جودي]

49 دقائق مضت, jjafferr said:

كله تمام يا بشمهندس 🙂

 

جعفر

ادامكم الله وحفظكم لمن تحبون

[alloui79]

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