(تمت الاجابة) طباعة تقرير بنتائج تصفية نموذج مبني على استعلام (عنوان معدل)

[lordring]

السلام عليكم في المرفق التالي النموذج مبني على استعلام .

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

اي ان يتم طباعة مجموع مايتم تصفيته من على النموذج مباشرة

وشكرا

http://dl.dropbox.com/u/9352509/access/accessleson/za-17-3_2-UP2.rar

[lordring]

الملف بتنسيق 2003

http://dl.dropbox.com/u/9352509/access/accessleson/2003.rar

[أبو آدم]

جاري النظر ........

............

[أبو آدم]

أخي العزيز

الكود المرفق يعتمد على تسخير خاصية الفلترة لنفس النموذج

قم بانشاء تقرير وليكن Query1Rep مستندا بمصدر سجلاته على نفس الاستعلام مصدر سجلات النموذج

وانسخ الكود التالي في حقل عند النقر لزر أمر الطباعة للتقرير :

If Me.Filter = "" Then

	    MsgBox "Apply a filter to the Form first.", vbExclamation, "Note ...   Nart Lebzo"

    Else

	    DoCmd.OpenReport "Query1Rep", acViewPreview, , Me.Filter

End If

Me.Filter = ""

تم تطبيق الكود على المرفق والتأكد من فاعليته

جرب ووافني بالنتيجة معك .........

والله من وراء القصد ... وهو حسيبي

.........

[lordring]

السلام عليكم على قدر تطبيقي للكود المرفق يظهر لدي التالي

[lordring]

تم تطبيق الكود على المرفق والتأكد من فاعليته

طيب خي ممكن تزويدي بالملف بعد تطبيقك للكود عليه لكي استفيد من تطبيقك

مع التقدير

تم تعديل أبريل 12, 2012 بواسطه lordring

[أبو آدم]

أخي العزيز

عذراً ...

ولكنني غالباً أقوم بإجراء تعديلات شخصية للتطبيقات لأطبق بالطريقة التي أرتاح لها ، لذا أصبحت لا أفضل إعادة إرفاقها إلا للضرورة ، منعاً للإحراج ..

بالنسبة لي هنا وحسب الغاية التي حددتها ... التطبيق لا يسمح بالطباعة الا بعد إجراء التصفية ، كون الطباعة لنتائج التصفية !!

تفضل ...

.............

NA_za-17-3_2-UP2.rar

[lordring]

ماشاء الله عليك

جاري التطبيق شكرا لك اخي الكريم ........

[أبو آدم]

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)