[hago]

إخوتى واخوانى المبرمجين
اما بعد :

كثر الحديث والاسئلة عن الفلترة فى التقارير بين تاريخ وتاريخين لدرجة تكرار المواضيع لذلك احببت ان اعمل شرح مدعوم بالصور ومثال يوضح إستخدام الفلترة فى التقارير بـ إستخدام اداة التقرير 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 إسم حقل الاسماء
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦

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

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

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

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