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

أخي اسمح لي استغل هذا السؤال واشرح فيه عملية مهمة في العمل في الاستعلام ، وإن شاء الله يستفيد الجميع منه:

1. النموذج:

انت عندك في النموذج way_payment_search_date قائمة سرد بإسم Text2 والتي تحتوي على:

أ.مجموعة أسماء مستخلصة من الجدول،

ب. كلمة "الكل" والتي لا توجد في الجدول ، وإنما بها تريد ان تستعمل "كل" الاسماء في أ.

2. الاستعلام:

في الاستعلام qrevenue2date ، بالإضافة الى بقية الخانات ، يوجد خانة بإسم way_payment ، والتي تحتوي على الكلمات التي في Text2 في النموذج.

أ- بدون وضع اي شروط في Criteria في الاستعلام ، فإن جميع بيانات الجدول ستظهر ،

ب- وهناك طريقة أخرى لجعل جميع البيانات تظهر كذلك ، وهي ان نضع [way_payment] في Criteria ، ولكن وللاسف ، فإن القليل من المستخدمين فقط يعرف هذا ، وهو بالفعل غير ذي اهمية في غالب الاوقات ،

ج- ولكن اذا اردنا ان تظهر السجلات التي تخص Text2 ، فيجب علينا ان نضع اسم Text2 واسم نموذجه:

د- وبما اننا ربطنا خانة الاستعلام way_payment بقائمة السرد Text2 ، فإننا نحصل فقط على السجلات التي تخص Text2.

ولكن عندما نستعمل كلمة "الكل" (الغير موجودة في الجدول ، والتي يجب ان تظهر بيانات جميع الاسماء (انظر 1-أ اعلاه)) ، فإننا يجب ان نعمل تغييراً في الاستعلام ونخلط Criteria (ب \ ج) ، ونستخدم فيه IFF الشَرطية:

:)

جعفر

21.moh4.zip

كلام جميل جدا جدا

وبالتفصيل الممل

جزاكم الله كل الخير أخي الكريم  /  jjafferr

بس معلش كان قصدي أستخرج كل التقارير للطباعة علي حسب كل كلمة عند اختيار الكل

يعني طلبي كالتالي :

عند اختيار الكل من القائمة المنسدلة والضغط على زر طباعة يطبع

1- تقرير بالمدفوع نقدا

2- تقرير بالمدفوع عن طريق الشبكة

3-تقرير بالمدفوع عن طريق الشيك

ويكون عنوان كل تقرير على حدي بس كل التقارير تطبع في نفس الوقت

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

جزاكم الله خيرا

طيب :)

اعمل زر جديد في النموذج ، سميه cmd_Print_All ، واجعل هذا الكود في حدث الضغط على الزر:

Private Sub cmd_Print_All_Click()

For i = 0 To Me.text1.ListCount - 1

Me.text1 = Me.text1.ItemData(i)
Me.text1.Selected(i) = True
Me.text2 = Me.text1
If Me.text1 <> "الكل" Then
DoCmd.OpenReport "way_payment_saerch_date", acViewNormal
End If
Next i

Me.text1 = ""

End Sub

للعلم ، هذا الكود سيطبع التقارير مباشرة ، واذا غيرت الكود ، فلن تستطيع ان تعاين هذه التقارير كلها ، فأكسس يفتح لك تقرير واحد للمعاينه :)

جعفر

أخي الفاضل / jjafferr

جزاكم الله خيرا الله لايحرمك الأجر

على العموم اشتغلت شويه على جمل  sql

أرفقت المثال بعد التعديل عليه للإستفادة منه لو كان بطريقة صحيحة

وتقييه

فعند الضغط على زر تصدير الكل في النموذج way_payment_search_date

سيتم تصدير كل التقارير واعتبرت التصدير هذا كإنه طباعه يمشي الحال يعني

بس أبي الإطلاع على الاكواد الجديدة الموجوده والمثال بعد تعديله وتقييمه

جزاكم الله خيرا مرة أخرى

moh44.rar

مادام الكود اللي انت عملته يعطيك النتائج الصحيحة ، وانت مرتاح منه ، فعلى بركة الله استمر :)

البرمجة مثل الطبخ (ولو اني ما اعرف اطبخ :) ، لها عدة طرق لعمل المطلوب :)

جعفر