• 0
Yousaf_Lnx

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

سؤال

اسلام عليكم

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

مثال:

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

تم تعديل بواسطه Yousaf_Lnx
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

شكراً....

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

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

تم تعديل بواسطه Yousaf_Lnx
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .