كود لفتح تقرير بشرط

[jo_2010]

الخبراء الافاضل

بعدالتحية

اريد كود برمجى لزر فى نموذج

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

خالص الشكر

[ابو جودي]

48 دقائق مضت, jo_2010 said:

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

 

الموضوع ده قبل الرد لازم نكون عارفين ايه مصدر بيانات التقرير
وهل فيه فرز او تصفيه بتتم واللا لاء

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

[ابو جودي]

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

Dim strRptName As String
Dim strMsgNoData As String
Dim strMsgConfirm As String

'' --- اسم التقرير
strRptName = ""

'' --- الرسالة إذا لم توجد بيانات
strMsgNoData = "التقرير فارغ."

'' --- رسالة التأكيد
strMsgConfirm = "هل تريد طباعة هذا التقرير؟"


    '' === فتح التقرير بشكل غير ظاهر للمستخدم (يتم عرضه في الخلفية للتحقق) ===
    DoCmd.OpenReport strRptName, acViewPreview, , , acHidden

    '' === التحقق من وجود بيانات ===
    If Reports(strRptName).HasData Then
        '' --- توجد بيانات، نسأل المستخدم
        If MsgBox(strMsgConfirm, vbYesNo + vbQuestion + vbMsgBoxRtlReading + vbMsgBoxRight, "تأكيد الطباعة") = vbNo Then
            DoCmd.Close acReport, strRptName, acSaveNo
        Else
            '' --- إظهار التقرير لأنه كان مخفي
            DoCmd.SelectObject acReport, strRptName, True
        End If
    Else
        '' --- لا توجد بيانات، نغلق التقرير ونعرض رسالة
        DoCmd.Close acReport, strRptName, acSaveNo
        MsgBox strMsgNoData, vbExclamation + vbMsgBoxRtlReading + vbMsgBoxRight, "تنبيه"
    End If

    Exit Sub

 

[ابو جودي]

ودى فكرة لتحقيق طلبك بشكل مباشر 

ولكن لا احب اعادة استخدام الاكواد 

سوف أقوم ببناء وحدة نمطية متخصصة للتحكم فى كل كبيرة وصغيرة 

لمن يهتم بهذا الموضوع ينتظر ان شاء الله مفاجأه سارة