كود لعرض الفرز بتقرير

[hh88]

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

اساتذتي الأعزاء 

عندي نموذج وعملت فيه فرز لكل حقل 

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

 

ولكم الشكر 🌹🌹

[يوسف أحمد]

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

 

تفضل الكود اخي العزيز

 

If Me.FilterOn = False Then
   DoCmd.OpenReport "rpt1", acViewReport
Else
   DoCmd.OpenReport "rpt1", acViewReport, , Me.filter
End If

حيث ان rpt  هو اسم التقرير

 

تفضل مثال على ذلك 

 

بالتوفيق

filter.rar

[hh88]

On ‏٢٦‏/‏٠١‏/‏١٤٣٩ at 6:55 PM, يوسف أحمد said:

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

 

تفضل الكود اخي العزيز

 

If Me.FilterOn = False Then
   DoCmd.OpenReport "rpt1", acViewReport
Else
   DoCmd.OpenReport "rpt1", acViewReport, , Me.filter
End If

حيث ان rpt  هو اسم التقرير

 

تفضل مثال على ذلك 

 

بالتوفيق

filter.rar

اخي واستاذي العزيز يوسف

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

حاولت اطبق الكود على قاعدة بيانات لدي ولم يضبط

آمل تحديد المشكلة في مطابقة نتائج الفرز مع مخرجات التقرير

مرفق المثال

وتقبل خالص شكري وتقديري

طلب استفسار.rar

[يوسف أحمد]

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

 

الطريقة تحتاج الى تغيير خاصية النموذج FilterOn  الى True  عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه

 

انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج .

 

نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى

 

بالتوفيق

طلب استفسار.rar

تم تعديل أكتوبر 18, 2017 بواسطه يوسف أحمد

[hh88]

1 hour ago, يوسف أحمد said:

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

 

الطريقة تحتاج الى تغيير خاصية النموذج FilterOn  الى True  عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه

 

انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج .

 

نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى

 

بالتوفيق

طلب استفسار.rar

الف الف شكر استاذي الكريم يوسف 

الله يجزاك كل خير ويكتب لك الاجر ان شاء الله 

فعلا تم حل المشكلة , وهو المطلوب  

 

تقبل خالص الشكر والتقدير حبيبنا 

[hh88]

On ‏٢٨‏/‏٠١‏/‏١٤٣٩ at 8:44 PM, يوسف أحمد said:

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

 

الطريقة تحتاج الى تغيير خاصية النموذج FilterOn  الى True  عند عملية البحث ليكون هناك تصفية حاصلة للنموذج و بناءً عليه سيتم تنفيذ فلتر النموذج على التقرير عند فتحه

 

انظر المرفق بعد التعديل و لاحظ عملية الفلترة للنموذج .

 

نصيحة لكل اخواني بالمنتدى بعدم كتابة الاسماء بالعربية فهذا لا يوضح التعابير و الاكواد بشكلها الصحيح اضافة الى اسباب برمجية اخرى

 

بالتوفيق

طلب استفسار.rar

استاذي العزيز يوسف

اسال الله ان يكتب لك الاجر حبيبنا

عندما اسوي فرز للتاريخ تظهر رسالة البيانات غير مطابقة

هل يتطلب تغير في كود الفرز او نحوه

شاكر ومقدر تعاونك حبيبنا

طلب استفسار - التاريخ.rar

[يوسف أحمد]

بارك الله فيك اخي العزيز و جزاك خير الجزاء على دعواتك الطيبة  ... و لك بمثل ما دعوت به و زيادة 

 

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

 

ليصبح الكود بحدث بعد التحديث لمربع التحرير و السرد الخاص بسرعة الخدمة و المسمى comboSearch كالتالي :

Me.RecordSource = "SELECT tbl1.التسلسل, tbl1.[سرعة الخدمة], tbl1.sDate FROM tbl1 WHERE " _
& "(((tbl1.[سرعة الخدمة])=[forms]![فرز]![comboSearch]));"

و الكود بحدث بعد التحديث لمربع التحرير و السرد الخاص بالتاريخ و المسمى kk كالتالي :

Me.RecordSource = "SELECT tbl1.التسلسل, tbl1.[سرعة الخدمة], tbl1.sDate FROM tbl1 WHERE " _
& "(((tbl1.sDate)=[forms]![فرز]![KK]));"

و كود فتح التقرير سيكون امر الفتح العادي للتقرير كالتالي :

DoCmd.OpenReport "rpt1", acViewPreview

و عند فتح التقرير سيتم تعيين خاصيتة مصدر البيانات RecordSource لتساوي خاصية النموذج مصدر البيانات و ذلك يتم في حدث عند الفتح للتقرير كالتالي :

Me.RecordSource = Forms!فرز.Form.RecordSource

 

ملاحظة : تم تغيير اسم الجدول الى tbl1 و اسم حقل التاريخ الى sDate  ...  وا كرر نصحي لك اخي بعدم اعطاء كائنات الاكسس اسماء عربية 

 

تفضل المرفق بعد التعديل

 

بالتوفيق

طلب استفسار - التاريخ.rar