[الاصيله]

ارجو المساعده بعمل تقرير يومي لعملية بيع او شراء

[حريف برمجة]

لو تقومي برفع مثال بسيط ،، اعمل لك التقرير

[الاصيله]

شكرا اخي الكريم على ردك السريع
وللبيان ان اردت فقط الكود لإنشاء التقرير اليومي

[تركي الحلواني]

تصميم التقرير وربطة بالداتا والاستعلام سيكون بحسب تاريخ اليوم

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

[الاصيله]

هذا ملف للإيضاخ ارجو التعديل عليه

[حريف برمجة]

مرحبا يالأصيلة ،،

نفس الكود تبعك صحيح ولكن ضيفي عليه الشرط التالي :

استبدلي الكود هذا :

كود :

rs.open "select * from myteb",db,adopenstatic, adLockpessinistic

بهذا الكود :

كود :

rs.open "select * from myteb where date = #" & format(date, "dd/mm/yyyy") & "#",db,adopenstatic, adLockpessinistic

ليصبح الكود كاملاً هكذا

كود :

Private sub command2_click()

if rs.state = adstateopen then rs.close
rs.open "select * from myteb where date = #" & format(date, "dd/mm/yyyy") & "#",db,adopenstatic, adLockpessinistic
set DataReport1.Datasource = rs
Datareport1.show

End Sub

[الاصيله]

شكرا لك اخي ولكن الكود لم يعمل ارجو التعديل عليه

[حريف برمجة]

هذا مثال يعمل بنجاح ،،،

يجب التأكد من التواريخ الموجوده في الجدول انها تحمل تاريخ اليوم الحالي للجهاز .

[تركي الحلواني]

هذا تعديل للمرفق

وكما تفضل الاخ حريف برمجة

تعديله صحيح

[الاصيله]

شكرا للاخ حريف البرمجه والاخ تركي الحلواني لقد تم العمل بنجاح