عملية حسابية: كيف اخذ المجموعة من قاعدة البيانات ؟

[Yousaf_Lnx 2]

اسلام عليكم

عملت قاعدة البيانات يتكون من عشرة الجداول مطلوب اخذ جمع من كل جدول من حقل معين .

مثال:

GetSumTotal = GetSumTotal + Val(Data4.Recordset![dbTB9-5]) + Val(Data4.Recordset![dbTB8-5]) + Val(Data4.Recordset![dbTB7-5]) + Val(Data4.Recordset![dbTB6-5]) + Val(Data4.Recordset![dbTB5-5]) + Val(Data4.Recordset![dbTB4-5]) + Val(Data4.Recordset![dbTB3-5]) + Val(Data4.Recordset![dbTB2-5]) + Val(Data4.Recordset![dbTB1-5]) + Val(Data4.Recordset![dbTB0-5])

TextWrT4(7) = CInt(GetSumTotal)

Data_Sum_work_3.zip

تم تعديل 6 Sep 2009 بواسطه Yousaf_Lnx

[MMA_EG_Cairo 32]

Select Fld1 + Fld2 + Fld3 + Fld4 + Fld5 + ................. ???   
From TableName

[Yousaf_Lnx 2]

ممكن توضيح اكثر او مثال بسيط

شكراً....

انا جربت هذا طريقة نجحت ولكن لو اي جدول فاضي ما تظهر نتيجة

Private Sub CmsdTotal_Click()

''''Math 2'''''''

On Error Resume Next

Data4.RecordSource = "Select * from TableB0"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany0 = khany0 + Val(Data4.Recordset![dbTB0-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB1"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany1 = khany1 + Val(Data4.Recordset![dbTB1-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB2"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany2 = khany2 + Val(Data4.Recordset![dbTB2-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB3"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany3 = khany3 + Val(Data4.Recordset![dbTB3-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB4"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany4 = khany4 + Val(Data4.Recordset![dbTB4-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB5"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany5 = khany5 + Val(Data4.Recordset![dbTB5-5])

Data4.Recordset.MoveNext

Loop

'''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB6"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany6 = khany6 + Val(Data4.Recordset![dbTB6-5])

Data4.Recordset.MoveNext

Loop

'''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB7"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany7 = khany7 + Val(Data4.Recordset![dbTB7-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB8"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany8 = khany8 + Val(Data4.Recordset![dbTB8-5])

Data4.Recordset.MoveNext

Loop

''''''''''''''''''''''''''''''''''''''''''''''''

Data4.RecordSource = "Select * from TableB9"

Data4.Refresh

Do While Not Data4.Recordset.EOF

khany9 = khany9 + Val(Data4.Recordset![dbTB9-5])

Data4.Recordset.MoveNext

'''

Yousaf = Val(khany9) + Val(khany8) + Val(khany7) + Val(khany6) + Val(khany5) + Val(khany4) + Val(khany3) + Val(khany2) + Val(khany1) + Val(khany0)

Text1 = (Yousaf)

'''

If Data4.Recordset.EOF Then Exit Sub

Loop

End Sub

تم تعديل 7 Sep 2009 بواسطه Yousaf_Lnx