طبع مجموعة تقارير بزر واحد

[Luqman Khooshnaw]

بسم الله الرحمن الرحيم...

السلام عليكم......تحية خاصة الى جميع اعضاء المنتدى...

عندي نموذج يحتوي على ثلاثة نماذج فرعية..بحيث كل نموذج فرعي يحتوي على زر طباعة خاص به ...اريد طبع كل التقارير بزر واحد ماعدا النماذج الفارغة عن طريق كود او اي شي اخر...

اشكركم على التعاون...والملف موجود بالمرفقات 

Print by one click.rar

[Shivan Rekany]

11 ساعات مضت, Luqman Khooshnaw said:

عندي نموذج يحتوي على ثلاثة نماذج فرعية..بحيث كل نموذج فرعي يحتوي على زر طباعة خاص به ...اريد طبع كل التقارير بزر واحد ماعدا النماذج الفارغة عن طريق كود او اي شي اخر...

اتفضل ما طلبت
اولا تم تغيير الكود للطباعة التقارير في النماذج الفرعية 
اولا غيرت نوعيته من Private الى Public
و بعدين اضفت لهم جملة شرطية هكذا

Public Sub Command21_Click()
If Len(Me.Direct & vbNullString) <> 0 Then
        DoCmd.RunCommand acCmdSaveRecord
        stDocName = "St"
        DoCmd.OpenReport stDocName, acNormal
End If
End Sub

وفي النموذج الرئيسي كتبت هذا الكود 
 

Private Sub PrintReports_Click()
    Call Form_stool.Command21_Click
    Call Form_Urine.Command33_Click
    Call Form_Chemistry_Tests.Command14_Click
End Sub

 

Print by one click.rar

[Luqman Khooshnaw]

شكرا لك اخي العزيز شفان على التعاون ..

كةلةك سوباس سةيدايي هيزا بؤ في هاريكاريي...كةلةك ممنون ...هةر ساغ و سةلامةت بيت ان شاءالله

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

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

تم تعديل يونيو 21, 2018 بواسطه Luqman Khooshnaw

[Shivan Rekany]

1 ساعه مضت, Luqman Khooshnaw said:

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

الاشكالية كان في استدعاء الطباعة للنموذج اوراين انا غيرت الشرط فيه من Appearance الى crystals 
انت تقدر ان تغيره الى احد الحقول اللي يجب ان تكتب فيه البيانات واذا ما تكتب فيه ان لا يطبع التقرير
ولتجنب اي رسالة تقدر ان تكتب هذه الجملة في بداية الكود on error resume next لكن انا لا استخدمه كثيرا

1 ساعه مضت, Luqman Khooshnaw said:

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

نعم ممكن ... لكن في هذه القاعدة انا فقد قمت باخفائهم
 

Print by one click.rar

[Luqman Khooshnaw]

شكرا جزيلا استاذ شفان ...بارك الله فيك...