24-08-19, 07:18 PM (آخر تعديل لهذه المشاركة : 24-08-19, 07:34 PM {2} بواسطة princeofislam.)
السلام عليكم ارفق مشروع قمت بعملة واريد ان احصل على تقرير بين تاريخين لكل الزبائن في كشف واحد يكون فيه مجموع ما علية و مجموع مادفع ومجموع ما تبقى
كالشكل التالي :
الرقم الاسم مجموع الدين مجموع الدفع باقي
1 محمد احمد 500 300 200
1 عمر محمد 1000 500 500
طبعا بين تاريخين اخواني بيكون الاستعلام
انا عملت استعلام بالمشروع البحث بين تاريخين لكل زبون او للكل بين تاريخين
وما اريد هو : الحصول على كشف نهائي عن الزبائن كم لنا عليه وكم دفع وكم سدد (كشف نهائي تقرير)
ارجو ما يزعل علي الاستاذ امير الزبيدي عشان بستخدم الادوات في هذا المشروع لاكنني اتعلم كل يوم درس استاذ
Adodc1.RecordSource = "SELECT zname, Sum(matloob) AS Sum_matloob, Sum(paid) AS Sum_paid, Sum(rest) AS Sum_rest FROM d1 GROUP BY zname"
Adodc1.CommandType = adCmdText
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Label111Caption = Adodc1.Recordset.RecordCou
بارك الله بيك سيدي
ممكن تعديل الكود ليعطي بين تاريخين ارجوكم
نفس الكود الرائع نزيد علية بين تاريخين
Adodc1.RecordSource = "SELECT zname, Sum(matloob) AS Sum_matloob, Sum(paid) AS Sum_paid, Sum(rest) AS Sum_rest FROM d1 WHERE [paiddate] Between # " & Format(DTPicker1.Value, "MM/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "MM/dd/yyyy") & " # GROUP BY zname"
25-08-19, 03:31 PM (آخر تعديل لهذه المشاركة : 25-08-19, 03:45 PM {2} بواسطة princeofislam.)
الله ينور عليك استاذي
طلب بسيط وعارف اني غلبتك هل ممكن الاضافة على الكود انه يخصم المدفوع من المطلوب و يضعهم في خانة rest
وتفعيل الكومبو بحث بالاسم بين تاريخين مع المجاميع او للكل بين تاريخين مع المجاميع اعلاة
الله يرضى عليك وعلى والديك و يدخلكم والمسلمين جنات الخلد اللهم امين يا ربي
المتبقي = مجموع المطلوب - مجموع المدفوع
بين تاريخين وحسب اختيار الكومبو للكل واو لشخص معين
واسف اسف اسف اسف جدا على الغلبة يلي غلبتك اياها
يا ربي تلاقيها في ميزان حسناتك
Adodc1.RecordSource = "SELECT zname, Sum(matloob) AS Sum_matloob, Sum(paid) AS Sum_paid, [Sum_matloob]-[Sum_paid] AS sum_Rest FROM d1 WHERE [paiddate] Between # " & Format(DTPicker1.Value, "MM/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "MM/dd/yyyy") & " # GROUP BY zname" Else Adodc1.RecordSource = "SELECT zname, Sum(matloob) AS Sum_matloob, Sum(paid) AS Sum_paid, [Sum_matloob]-[Sum_paid] AS sum_Rest FROM d1 WHERE [paiddate] Between # " & Format(DTPicker1.Value, "MM/dd/yyyy") & "# And #" & Format(DTPicker2.Value, "MM/dd/yyyy") & " # GROUP BY zname HAVING zname ='" & Combo1.Text & "'"
End If
Adodc1.CommandType = adCmdText Adodc1.Refresh Set DataGrid1.DataSource = Adodc1
استاذي الغالي
اعترف انك جعلتني اقفز عن الكرسي وارفع القبعة احتراما لك ما شاء الله تبارك الله
اللهم يا ربي يزيدك دنيا واخرة من فضلة وحسناتة
لو اطلعت على اول مشاركاتي في المنتدى قبل اربع - ست سنوات كنت ابحث عن هذا الكود انه يوم تاريخي بالنسبة لي انتظرتة اكثر من اربعة سنوات
مش عارف كيف بدي اشكرك اخي الغالي
روعة وغاية الروعة