open report by openargs فتح تقرير بناء على قيمة محددة بدون وجود استعلام لعمل الفلتر ☺

[ابو جودي]

السلام عليكم ورحمة الله وبركاته

احد الاسئلة التى وردت للمنتدى 

3 ساعات مضت, عبدالقدوس48 said:

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

وكما تعودت من اساتذتى الافاضل اول ما أفكر بع عو الوصول للحل بأبسط الطرق فكانت اجابتى كالأتى

3 ساعات مضت, ابا جودى said:

ابسط حل سوى استعلام واجعل فيه معيار على الحقل تبع الرقم

ويتم فرز وتصفية البينات 

وسوى تقرير يكون مصدره هاد الاستعلام بس كده 

ولكن اخونا الحبيب كان له رأى أخر 

2 ساعات مضت, عبدالقدوس48 said:

يأخي أعرف طريقة الإستعلام لكن كنت أبحث عن طريقة أخرى

ولذلك اضع بين اياديكم هذه الفكرة التى لم أفكر بها إلا بناء على رغبته 

OpenReportBYFiltter.mdb

[jjafferr]

وعليكم السلام 🙂

 

طريقة عرض التقرير الافضل ، هو التقرير الاسرع 🙂

 

اخذ بيانات الملف المرفق : مكتبة الموقع - ملف قاعدة بيانات اكسس يحتوي على 3,919,015 سجل ، لتجربة سرعة برنامجك - قسم الأكسيس Access - أوفيسنا (officena.net)

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

 

 

ومن هذه النتيجة ، سيعرف اخونا @عبدالقدوس48 الطريقة الافضل (حتى ولو كانت الطريقة الاعتيادية 🙂 )

 

جعفر

[عبدالقدوس48]

شكرا لكم أخوتي

[kha9009lid]

السلام عليكم

مشاركة مع استاذنا الفاضل @ابا جودى

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

If IsNull([tx2]) Then
DoCmd.OpenReport "rptdata", acViewPreview
Else
DoCmd.OpenReport "rptdata", acViewPreview, , Me.Filter
End If

الملف مرفق

 

OpenReportBYFiltter.mdb