كيفية الجمع فى ال MsflexGrid

العملية أخ klkl2003 سهلة أن شالله

كل ما عليك هو حصر قاعدة البيانات كما تفضلت

اقتباس

انى ببحث بالشهر مثلا مرتب شهر يناير

وعندها قم بوضع جملة تكرار تقوم بعملية الجمع لسجلات المفروزة لشهر ينـــــاير مثلا ويتم ذلك كالآتي

أول جملة الاستعلام المطلوبه لحصر البيانات بواسطة التاريخ :

If Rs.State = adStateOpen Then Rs.Close
SQL = "SELECT * FROM Table  where field between " & "#" & Format(Text1, "mm/dd/yyyy") & "# and " & "#" & Format(Text2, "mm/dd/yyyy") & "# "
Set Rs = db.Execute(SQL)

أو حصر قاعدة البيانات بواسطة اسم الشهر

على حسب الطريقة التي قمت أنت بتخزين البيانات وهذا هو الكود :

If Rs.State = adStateOpen Then Rs.Close
SQL = "SELECT * FROM Table  where field = ' " & Trim(Text1) & "'
Set Rs = db.Execute(SQL)

ثم قم بوضع جملة تكرار لحسب المجموع كما يلي :

Dim i As Integer 
Dim Ry as Currency
Ry = 0
With Rs
        .MoveFirst
        For i = 1 To .RecordCount
Ry = Ry + .Fields(X)
Next i
End With

قمنا هنا بتعريف المتغير I من نوع رقم لتخزين قيمة التكرار أو عدد التكرارت

والمتغير Ry من نوع عملة لتخزين المبلغ بداخله

حيث سيتم في هذه الجملة الانتقل لأول سجل في الجدول المحصور بياناته ثم

جمع قيمة Ry مع رقم الحقل الموجود فيه المبالغ أو اسمه وتخزينه في Ry وتكرار هذه العملية حتى نهاية السجلات

وهكذا يكون مجموع المبلغ مخزنة في القيمة Ry .

وعندها قم بإظهار هذه القيمة في تيكس أو في أي مكان تريده .

Text2.Text = Ry

ملاحظـــــــــات : -

[1] الكود السابق مستخدم لقاعدة بيانات مربوطة بخاصية ADO

[2] الرمز Rs يدل على السجلات في القاعدة .. واعتقد أنو معروف

[3] والرمز db يدل على القاعدة ..

[4] والرمز Table يدل على اسم الجدول

[5] والرمز field يدل على اسم الحقل الذي سيتم حصر القاعدة بواسطته

سواء كان عن طريق التاريخ أو أسم الشهر كما سبق ذكره

[6] واخيراالرمز Rs.fields(X) يدل على رقم الحقل في الجدول حيث أن Xترمز إلى رقم قد يكون رقم الحقل 1 أو 2

ويمكنك الاستغناء عن الرقم وكتابة اسم الحقل المطلوب جمع مبلغه كما يلي :

ٌRs![sal]HnHn وهكذا .. أنتهينا HnHn

ارجو أن أكون قد أوصلت الفكرة تقبل تحياتي B)