ضروري كود يديني موجوع الارقام الموجودة جوه حقل معين

Dim db As Database
Dim rs As Recordset
Dim tol As Long
Dim kk As Long

Set db = OpenDatabase("database.mdb")
Set rs = db.OpenRecordset("Table", 2)
Combo1.Clear
Combo1.Text = ""
Do While Not rs.EOF
   Combo1.AddItem rs("field")
  rs.MoveNext
Loop
For tol = 0 To Combo1.ListCount - 1
Combo1.ListIndex = tol
kk = kk + Combo1.Text
Next tol
text1.Text = kk

مع تغيير database.mdb بقاعده البيانات

وتغيير tabel باسم الجدول اللى فيه الحقل

وتغيير field باسم الحقل

الحمد لله لقيت حل كويس

وشغال

Data1.RecordSource = "SELECT SUM([الحقل])as memo_count FROM[الجدول]"

Data1.Refresh

السلام عليكم ....

حضرتك طرحة سوال مثله في العنوان

/index.ph...mp;#entry505058

وشكرا

دلوقتي الكود ده

Data1.RecordSource = "SELECT SUM([الحقل])as memo_count FROM[الجدول]"

Data1.Refresh

المفروض علشان يجمع الارقام الموجوده في حقل معين مثلا حقل المرتبات طب دلوقتي مش المفروض يظهر الاجمال في Text box إزاي

دلوقتي الكود ده

Data1.RecordSource = "SELECT SUM([الحقل])as memo_count FROM[الجدول]"

Data1.Refresh

المفروض علشان يجمع الارقام الموجوده في حقل معين مثلا حقل المرتبات طب دلوقتي مش المفروض يظهر الاجمالي في Text box إزاي

نفرض أننا لدينا جدول tbl يحتوي علي حقل fld ، كيف يتم جمع الحقل وعرضة النتائج للمستخدم :

Data1.Database = App.Path & "\Data.mdb"
Data1.RecordSource = "Select Sum(fld) As SumFld From tbl"
Data1.Refresh

Text1.Text = Data1.Recordset.Fields("SumFld").Value
		''أو.
'Text1.Text = Data1.Recordset.Fields(0).Value
		''أو.
'Text1.Text = Data1.Recordset!SumFld

شكرااااااااااااااااااااا وجزاك الله خيرااا