الاستعلام في التقرير...كيف؟؟

فقط أستخدم هذه الشفرة

DataEnvironment1.rsCommand1.Close

ليصبح الكود كالتالي

sql_str = "select * from main where year= '" & Text1.Text & "'"
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
DataReport1.Show
DataEnvironment1.rsCommand1.Close

اما بالنسبة للبحث بالتاريخين ما عليك سوى تغيير الاستعلام

sql_str = "select * from main where GDATE BETWEEN #" & Text1.Text & "#  AND #" & Text2.Text & "#

روابط لها علاقة بالموضوع

تقرير باستعلام

و اقترح عليك ان تستخدم هذه الطريقة أفضل

مثال لكيفية التعامل مع الــ DataReport,

اشكرك من اعماق قلبي...وسوف اجرب هذه الاكواد

بالنسبة للاستعلام من خلال العام فلقد انتهت المشكلة والحمد لله...

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

sql_str = "select * from main where DATE BETWEEN #" & Text2.Text & "#  AND #" & Text3.Text & "# "
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
DataReport1.Show
DataEnvironment1.rsCommand1.Close

ما هو الخطأ في الكود...؟

أولا أخ i1982

أنت استخدمت اسم محجوز وهو Date

ولو تلاحظ الشفرة السابقة التي ادرجتها لك لوجدت أني اعدت تسمية الحقل إلى GDate

واستخدم هذه الشفرة المحسنة

sql_str = "select * from main where GDATE BETWEEN #" & Format( Text1.Text, "dd/mm/yyyy" ) & "#  AND #" & Format( Text2.Text, "dd/mm/yyyy" ) & "#