:ت: فتح تقرير مع شرط

[aaa]

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

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

وسؤالي باختصار هو :

كيف أستطيع فتح تقرير آخر إذا قمت بفتح تقرير لا يوجد فيه بيانات، على سبيل المثال :

قمت بفتح تقرير رقم ( 1 ) ولكن بسبب عدم وجود أية بيانات في هذا التقرير فيتم نقلي إلى تقرير آخر رقم ( 2 ) وإذا كانت هناك بيانات في تقرير رقم ( 1 ) فلا يتم نقلي الى التقرير رقم ( 2 ).

وشكرا للجميع

[أمجد جمالي]

ضع هذا الكود في التقرير

Private Sub Report_NoData(Cancel As Integer)
    
    Dim StrMsg As String, StrTitle As String
    Dim IntStyle As Integer
    
    StrMsg = "There is no data to preview....you must enter some informatiom! 'Error Message'"
    IntStyle = vbOKOnly
    StrTitle = "No data or incorrect information"
    
    MsgBox StrMsg, IntStyle, StrTitle
    Cancel = True

End Sub

ابو نادر

[aaa]

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

وشكرا

أخوك أبو مرام

[الدكتور خضر الرجبي]

1. لا يجوز وضع أمر طباعة تقرير في حدث (عند عدم وجود بيانات) أو أي حدث أخر داخل التقرير ولذلك نلجأ إلى خطة برمجية

2. الخطة البرمجية هي من 3 خطوات كما يلي :

خطوة 1: نعرف متغير منطقي (Boolean) عام Public في وحدة نمطية ولنسميه NoData

Public NoData As Boolean

خطوة 2: في حدث (عند عدم وجود بيانات) للتقرير الاول نكتب السطر

NoData = True

خطوة 3: بعدها في عملية طلب التقرير نستخدم المنطق البرمجي التالي :

NoData = False

DoCmd.OpenReport "report1", acViewPreview

If NoData Then

DoCmd.Close acDefault

DoCmd.OpenReport "report2", acViewPreview

End If

تم تعديل يناير 17, 2005 بواسطه خضر الرجبي

[aaa]

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

[الدكتور خضر الرجبي]

1. عفوا، حسبت أنك تود حل برمجي (وعلى كل الاحول لم نخسر شيئا فربما يناسب ذلك الحل بعض الاخوة الاعضاء لإمور مشابهة في معالجة عدم وجود البيانات)

2. الحل بطريقة الماكرو هو كما يلي:

أنشىء ماكرو جديد ...

وفي أول سطر (إجراء) اختار CancelEvent

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

في تصميم التقرير اطلب هذا الماكرو في حدث عند عدم وجود بيانات

[aaa]

(y) جزاك الله خيرا أخي خضر الرجبي على تعاونك معي

وشكرا للجميع