[ غير ذلك ] استفسار بخصول الفيجول بيسك

[sally]

بداية أشكر ادارة ترايد نت لقبول عضويتي
وهذه أول مشاركة لي استهلها بكلمات حب لهذا المعهد ولأعضاء هذا المعهد الرائع الراقي الذي يفيدنا جميعا

وأود منكم مساعدة وشكرا لكم

أقوم بعمل برنامج لعمليات حسابية من قاعدة البيانات

في القاعدة عدة حقول

مثل حقل التاريخ وحقل التكلفة

فأنا أود وضع كود يعمل على جمع التكلفة خلال تاريخ معين
فـأود ايجاد الخطأ في الكود الذي وضعته حتى يعمل البرنامج بشكل صحيح

f4 هو حقل التاريخ
f2 هو حقل التكلفة

رمز PHP:
If Text4.Text = Val(Data1.Recordset.Fields("f4")) Then
Data1.Recordset.MoveFirst
Do While Not Data1.Recordset.EOF
sum = sum + Val(Data1.Recordset.Fields("f2"))
Data1.Recordset.MoveNext
Loop
End If
Text1.Text = sum




وشكرا لكم