الفلترة فى Datareport بتاريخ وتاريخين واشكال مختلفة

كثر الحديث والاسئلة عن الفلترة فى التقارير بين تاريخ وتاريخين لدرجة تكرار المواضيع لذلك احببت ان اعمل شرح مدعوم بالصور ومثال يوضح إستخدام الفلترة فى التقارير بـ إستخدام اداة التقرير Data report ويشمل المثال على الاتى :

الفلترة بتاريخ واحد
الفلترة بين تاريخين
الفلترة لــ شخص معين
الفلترة بتاريخ لــ شخص معين
الفلترة بين تاريخين لــ شخص معين

اولاً : اضف اداة التاريخ DTPicker

Microsoft Windows Common Control-26.0 ثم إختر <<--- Project --->> Components

ثانيا :
ارسم الفورم على هذا الشكل :

ثالثاً:
الاكواد
يتم ملئ الكمبو تلقائيا من قاعدة البيانات بواسطة الكود :

كود :

Do While Not RS.EOF

Combo1.AddItem RS.Fields("Nme").Value

RS.MoveNext

Loop

الفلترة بتاريخ واحد :

كود :

RS.Open " select * from [Tabel1] where [DTSin] like '" & DTPicker1.Value & "'", CN, adOpenStatic, adLockReadOnly

الفلترة بتاريخين :

كود :

RS.Open " select * from [Tabel1] where [DTSin] Between #" & DTPicker2.Value & "# AND #" & DTPicker3.Value & "#", CN, adOpenStatic, adLockReadOnly

الفلترة لــ شخص معين :

كود :

RS.Open " select * from [Tabel1] where [Nme] like '" & Combo1.Text & "'", CN, adOpenStatic, adLockReadOnly

الفلترة لــ شخص معين بتاريخ معين :

كود :

RS.Open " select * from [Tabel1] Where [Nme]='" & Trim$(Combo2.Text) & "' AND [DTSin]=#" & DTPicker6.Value & "#", CN, adOpenStatic, adLockReadOnly

الفلترة بين تاريخين لشخص معين :

كود :

RS.Open "select * from Tabel1 where Nme='" & Trim(Combo3.Text) & "' and DTSin between #" & DTPicker4.Value & "# and #" & DTPicker5.Value & "#"

رابعاً : تصميم التقرير
اذهب الى الوضوع التالى :

[b]شرح بسيط بالصور طريقة عمل تقرير بالـــ Data report بــ إستخدام adodb[/b]

فهو نفس التقرير الذى طبقت عليه الفلترة

توضيح مهم :
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦
vb4arb إسم قاعدة البيانات
Tabel1 إسم الجدول
DTSin إسم حقل التاريخ
Nme إسم حقل الاسماء
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦

ملاحظات :
لم اكتب الاكواد كاملة وذلك لوجود مشكلة فى محرر الاكواد
البيانات الموجودة فى قاعدة البيانات هى لـــ اعضاء من المنتدى الكريم

*************************************************

فى النهاية : ارجو ان اكون قد وفقت فى الشرح البسيط

☼☼ صورة من التقرير بعد عمل فلترة بين تاريخين ☼☼