[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

أثناء كتاب الكود فكر بمنطقية وستجد الحل دون الوقوع بالأخطاء ..

مثلا عندك : [Dateexpense] هو حقل تاريخ ووقت.
ولكن جملة الإستعلام لديك للبحث ضمن الحقل : أنت وضعت قيمة منطقية جوابها إما نعم أو لاا
وهو عندما وضعت الكود التالي : 

كود :

Date.Today.Date + New TimeSpan(0, 0, 1) < Date.Today.Date + New TimeSpan(23, 59, 59)

 فهذه الجملة جملة منطقية أصغر أو لاا   وليست قيمة رقمية أو تاريخية (و جوابها إما [b]نعم أو لاا)..[/b]

بالنسبة لسؤالك أنت تريد مجاميع اليوم نفسه فليس المهم الساعات ولا الدقائق ولا الثواني 
فالمنطق يقول أن تجعل البحث عن تطابق اليوم والشهر والسنة وأترك الباقي فهو ليس مهم .. 
لذا عليك استخدام الدالة الـ Format
بالتالي تصبح جملة الاستعلام هي :

كود :

"Select Sum(amountexpense) FROM Expenses where Format([Dateexpense],'yyyy/MM/dd')=@Dateexpense "

---

أي أن  : 

كود :

Dim cmd2 As New OleDbCommand("Select Sum(amountexpense) FROM Expenses where Format([Dateexpense],'yyyy/MM/dd')=@Dateexpense ", connGet_landryInfo)
       cmd2.Parameters.AddWithValue("@Dateexpense", DateTime.Today.ToString("yyyy/MM/dd"))
        B4.Text = cmd2.ExecuteScalar.ToString)

---

ملاحظة : 
- الأفضل أن تجعل البحث عن قيمة موجودة ضمن DateTimePicker1   وليس قيمة جامدة ..
وتجعلها إفتراضياً تأخذ اليوم الذي أنت فيه.. فإن شاء المستخدم عدل التاريخ فيها وحسب قيمة يوم آخر ربما الأمس مثلاً ..

- دقق الكود جيداً وصححه ليناسب برنامجك ..

بالتوفيق ..