[محمد اسماعيل]

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


عندي جدول في اصناف للادوية  وفية الورد حسب اليوم - والمنصرف حسب اليوم - اريد تجميع الفترة بين تاريخين - لاجمالي الوارد - والمنصرف - والفرق بين الوارد والمنصرف المتبقي 

هل يمكن عمل استعلام تجميعي لشهر والاسبوع الاول والثاني والثالث والرابع بنفس الشهر يظهر مجموع الكميات المنصرفة لهم 

قاعدةالبيانات اكسيس لغة البرمجة فيجول بيسك دوت نت

دة اسم الجدول MEDICALCOME_TB

ودية الاعمدة 


MEDICALCOME_CODE    كود الصنف
MEDICALCOME_SERIAL   سريال الشركة
MEDICALCOME_NAME   اسم الصنف
MEDICALCOME_COM    كمية واردة
MEDICALCOME_LEAVE    كمية منصرف
MEDICALCOME_DATE   تاريخ
MEDICALCOME_CHECK  فحص قيمة منطقية لاستخدامة بالحذف والارشفة 

دية الطريقة الي استخدمتها للبحث بين اتنين من اداة الوقت ولايظهر شيء عند البحث 

كود :

Dim A = Format(DATETIM_START.Value, "yyyy/dd/MM")
         
     Dim B = Format(DATETIM_END.Value, "yyyy/dd/MM")

               Dim DataAdapter As New OleDbDataAdapter("Select  MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL, Sum(MEDICALCOME_TB.MEDICALCOME_COM) As SumOfMEDICALCOME_COM, Sum(MEDICALCOME_TB.MEDICALCOME_LEAVE) As SumOfMEDICALCOME_LEAVE
From MEDICALCOME_TB
Where (((MEDICALCOME_TB.MEDICALCOME_CHECK) = True) And ((MEDICALCOME_TB.MEDICALCOME_DATE)between #" & B & "# And #" & A & "#))
Group By MEDICALCOME_TB.MEDICALCOME_CODE, MEDICALCOME_TB.MEDICALCOME_SERIAL ;", con)