ارجو المساعده بعمل تقرير يومي لعملية بيع او شراء
لو تقومي برفع مثال بسيط ،، اعمل لك التقرير
شكرا اخي الكريم على ردك السريع
وللبيان ان اردت فقط الكود لإنشاء التقرير اليومي
تصميم التقرير وربطة بالداتا والاستعلام سيكون بحسب تاريخ اليوم
صممي التقرير وراح اساعدك في الاستعلام
هذا ملف للإيضاخ ارجو التعديل عليه
مرحبا يالأصيلة ،،
نفس الكود تبعك صحيح ولكن ضيفي عليه الشرط التالي :
استبدلي الكود هذا :
كود :
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
شكرا لك اخي ولكن الكود لم يعمل ارجو التعديل عليه
هذا مثال يعمل بنجاح ،،،
يجب التأكد من التواريخ الموجوده في الجدول انها تحمل تاريخ اليوم الحالي للجهاز .
هذا تعديل للمرفق
وكما تفضل الاخ حريف برمجة
تعديله صحيح
شكرا للاخ حريف البرمجه والاخ تركي الحلواني لقد تم العمل بنجاح