|و| كود لطباعة عدة تقارير بوقت واحد

[شاهر]

مع خالص احترام وتقدير للجميع

الاخوه/الافضل لدي مشكله في التقارير في برنامجي والذي لديه سته تقارير بصيغ مختلفه

برنامج جزاءات واريد ان يطباع التقارير بزرامر واحد هل يوجد كود لهذا الزار

مع شكر وتقديري للجميع

اخوكم شاهر

[rudwan]

أخي الكريم

بفرض لديك ثلاثة تقارير : Report1 - Report2 - Report3

وتريد طباعتها دفعه واحده

ضع الكود التالي عند زر الأمر Cmd

Private Sub Cmd_Click()


    Dim Doc1, Doc2, Doc3 As String

    Doc1 = "Report1"
    Doc2 = "Report2"
    Doc3 = "Report3"
    DoCmd.OpenReport Doc1, acNormal
    DoCmd.OpenReport Doc2, acNormal
    DoCmd.OpenReport Doc3, acNormal


End Sub

[شاهر]

اخي رضوان ربما اني لم استطيع التعبير عن الشي الذي اريده ولكن سوف اوضح لك السوال وهو ان عندي برنامج جزاءات للموظفين فيها اكثر من تقرير بحسب نوع الجزاء تخذ صيغه لتقرير مثل لفت نظر , تنبيه , انذار , انذار نهائي ,حيث لدي نموذج رئيس فرع الرئيس فيه اسم الموظفوالفرع نوع الجزاءات على انيكو في النموذج زر لمعاينه التقرير وزر اخر لطباعة التقرير بيحث لايطبع الا السجل الحالي في النموذج وتكون صيغة التقرير تستند الى نوع الجزاء في حقل الجزاءات في النموذج الفرعي

مع خالص شكر وتحياتي

[rudwan]

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

طباعة سجل محدد من على النموذج الفرعي