05-07-21, 06:00 PM
(آخر تعديل لهذه المشاركة : 05-07-21, 10:17 PM {2} بواسطة محمد اسماعيل.)
السلام عليكم ورحمة الله وبركاتة
عندي جدول في اصناف للادوية وفية الورد حسب اليوم - والمنصرف حسب اليوم - اريد تجميع الفترة بين تاريخين - لاجمالي الوارد - والمنصرف - والفرق بين الوارد والمنصرف المتبقي
هل يمكن عمل استعلام تجميعي لشهر والاسبوع الاول والثاني والثالث والرابع بنفس الشهر يظهر مجموع الكميات المنصرفة لهم
قاعدةالبيانات اكسيس لغة البرمجة فيجول بيسك دوت نت
دة اسم الجدول MEDICALCOME_TB
ودية الاعمدة
MEDICALCOME_CODE كود الصنف
MEDICALCOME_SERIAL سريال الشركة
MEDICALCOME_NAME اسم الصنف
MEDICALCOME_COM كمية واردة
MEDICALCOME_LEAVE كمية منصرف
MEDICALCOME_DATE تاريخ
MEDICALCOME_CHECK فحص قيمة منطقية لاستخدامة بالحذف والارشفة
دية الطريقة الي استخدمتها للبحث بين اتنين من اداة الوقت ولايظهر شيء عند البحث
عندي جدول في اصناف للادوية وفية الورد حسب اليوم - والمنصرف حسب اليوم - اريد تجميع الفترة بين تاريخين - لاجمالي الوارد - والمنصرف - والفرق بين الوارد والمنصرف المتبقي
هل يمكن عمل استعلام تجميعي لشهر والاسبوع الاول والثاني والثالث والرابع بنفس الشهر يظهر مجموع الكميات المنصرفة لهم
قاعدةالبيانات اكسيس لغة البرمجة فيجول بيسك دوت نت
دة اسم الجدول 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)