مرفق مثال والمطلوب
فى نموذج table1 كيف يمكن طباعة تقرير car او تقرير tv او طباعة الاثنين معا من نفس الزر print
اذا تم اختيار احدهم او اختيارهم معا فى النموذج الفرعى products subform1
اى اذا تم اختيار car يتم طباعة التقرير car واذا تم اختيار tv يتم طباعة التقرير tv واذا تم اختيارهم الاثنين يتم طباعة التقريرين
منتظر الاجابة ان شاء الله
والله انه لشرف كبير لى ان تردى على بنفسك يا اخت zahrah
فلا تعلمين مدى الاستفادة التى استفدتها منك ومن مواضيعك الجميلة فى مواضيع الاكسس وغيرها
اما بخصوص طلبى فانا اعلم اننى لم استطع ايصال المطلوب بشكل صحيح
كل ما اردت معرفته فى المثال اذا كان لدى عدة تقارير مختلفة تصل الى 10 تقارير مثلا وكان هناك نموذج فرعى يحتوى على حقل مدرج به اسماء التقارير كيف اختار التقارير المطلوب طباعتها بناءا على اختيار اسماء التقارير فى النموذج الفرعى
وفى المثال هناك تقريرين car - tv
كيف يتم طباعتهم بناءا على اختيارهم داخل النموذج الفرعى
لاننى جربت كود الطباعه بقاعدة if فى حدث بعد النقر ولكن للأسف الكود لا يعمل الا عندما اقف بالماوس على السجل المطلوب طباعته
مرفق مثال اخر اكثر وضوحا والمطلوب فى فورم reportChooser يتم طباعة التقارير بعد اختيارها من حقل printed والضغط على زر (اختيار تقارير الطباعة من كومبو printed) مباشرة ويتم طباعة التقارير حسب اختيارها سواء Report1 او Report2 او Report3 او Report4 او جميعهم حسب الاختيار
مرة اخرى انا سعيد جدا بردك يا اخت zahrah وهذا شرف كبير لى
تفضل اخي الكريم
الملف بعد التعديل
ملاحظة : عند فتح عدة تقارير مع بعض ستجد التقارير مفتوحة فوق بعضها البعض
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 28 فبراير 2012 في 11:02
شكرا لك اخت zahrah على الاهتمام وعلى الافكار الرائعة
ولكن هل يمكن اختيار اسماء التقارير بناءا على مربع التحرير والسرد كما اشرت لكى سابقا ولا يتم الاختيار من list خارج الفورم
لان المستخدم سوف يختار من الفورم الفرعى
واذا كان هذا لا يمكن فهل يمكن الاعتماد على الفكره التى طرحتيها بحيث ان المستخدم يختار التقارير المراد طباعتها من الفورم الفرعى وبمجرد اختيار اسماء التقارير من الفورم الفرعى فيتم ادراج القيمة التى اختارها داخل list خارجى وبناءا على هذه ال list يتم الطباعة كما اشرتى
اى ان مربع التحرير والسرد فى النموذج الفرعى هو الاساس ويتم تطبيق احد الفكرتين عند الطباعة
1-طباعة مباشرة بمجرد اختيار اسماء التقارير من النموذج الفرعى
2-ادراج قيمة مربع التحرير والسرد فى list خارجى وبناءا على قيمة ال list يتم الطباعة
ملحوظة
لقد اسخدمت قاعدة if لطباعة القيم المختارة داخل مربع التحرير والسرد وذلك عند الضغط على زر الطباعة كالاتى
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim strCriteria As String
Dim stDocName As String
strCriteria = "[LINK]= " & Me![iD]
If Me.Form!Report!printed.Value = "Report1" Then
stDocName = "Report1"
DoCmd.OpenReport stDocName, acViewPreview, , strCriteria
End If
If Me.Form!Report!printed.Value = "Report2" Then
stDocName = "Report2"
DoCmd.OpenReport stDocName, acViewPreview, , strCriteria
End If
If Me.Form!Report!printed.Value = "Report3" Then
stDocName = "Report3"
DoCmd.OpenReport stDocName, acViewPreview, , strCriteria
End If
If Me.Form!Report!printed.Value = "Report4" Then
stDocName = "Report4"
DoCmd.OpenReport stDocName, acViewPreview, , strCriteria
End If
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
ولكن للأسف الكود السابق لا يعمل الا عندما اقف بالماوس على السجل المطلوب طباعته داخل النموذج الفرعى ويطبع السجل الذى اقف عليه بالماوس فقط وانا اريده ان يطبع السجلات المختاره جميعا بمجرد الضغط على زر الطباعة
منتظر ردك ان شاء الله
up
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…
