[محمد الشمري]

السلام عليكم
قمت بعمل برنامج يخزن قيم للموردين في جدول مثال
خالد 5
خالد 9
خالد 10
في تواريخ مختلفة اريد كود يقوم بجمع القيم من داخل الجدول بحيث يكون فقط سجل واحد
خالد 24

*****************

قمت بتجربة هذا الكود ويعطيني دائما القيمة صفر

كود :

Text11 = 0
temp22.MoveFirst
Do Until temp22.EOF
For x = 1 To RecordCount
y = y + temp22.Fields("mostf")
x = x + 1
Next x
temp22.MoveNext
Loop
Text11 = y

ولكم جزيل الشكر

[محمد العبيدي]

اخي العزيز هذا تصحيح لكودك في حالة كون اسم العمود الذي حددته حضرتك صحيح

كود :

temp22.MoveFirst
Text11="0"
While Not temp22.EOF
    Text11=Val(Text11) + Val(temp22.Fields("mostf"))
    temp22.MoveNext
wend

نرجو في المره القادمة ان ترفق مشروعك للتعديل علية