[محمد ئوزبك]

جزاكم الله كل الخير عن تفاعلكم وتواصلكم الدائم لايجاد الحلول لنا وهذا من كرم اخلاقكم , واعتذر عن تاخري في الاجابة على ردكم الكريم لطلبي بسبب عدم فهمي لبعض الخطوات التي وضعها استاذنا الكريم لقصر معرفتي وصراحة لاحب ان اكون مجرد ناسخ . طبعاً الحل الذي وضعه الاستاذ شغال 100% واشكره عليه ولكني وجدت طريقة اخرى عن طريق datagrid وارجو ان يستفيد منهالاعضاء ان افادهم

Private Sub Command3_Click()
rr.Text = ""


Dim y As Long

For y = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Col = 6
DataGrid1.Row = y
rr.Text = Val(rr.Text) + Val(DataGrid1.Text)
sum2 = rr.Text
Next

End Sub

---

جزاكم الله كل الخير عن تفاعلكم وتواصلكم الدائم لايجاد الحلول لنا وهذا من كرم اخلاقكم , واعتذر عن تاخري في الاجابة على ردكم الكريم لطلبي بسبب عدم فهمي لبعض الخطوات التي وضعها استاذنا الكريم لقصر معرفتي وصراحة لاحب ان اكون مجرد ناسخ . طبعاً الحل الذي وضعه الاستاذ شغال 100% واشكره عليه ولكني وجدت طريقة اخرى عن طريق datagrid وارجو ان يستفيد منهالاعضاء ان افادهم

Private Sub Command3_Click()
rr.Text = ""


Dim y As Long

For y = 0 To DataGrid1.ApproxCount - 1
DataGrid1.Col = 6
DataGrid1.Row = y
rr.Text = Val(rr.Text) + Val(DataGrid1.Text)
sum2 = rr.Text
Next

End Sub