منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اخوتي الاعزاء
ارجو المساعدة

Private Sub Command2_Click()

Dim rr As Double
'rr = 0
datPrimaryRS.RecordSource = "SELECT SUM(mu) as rr FROM IO WHERE LOCATION like '%" & Text6.Text & "%' AND [SDATE] Between #" & Format(V.Value, "yyyy/MM/dd") & "# AND #" & Format(W.Value, "yyyy/MM/dd") & "# ORDER BY sdate "

datPrimaryRS.Refresh
If datPrimaryRS.Recordset.RecordCount = 0 Then
   MsgBox "áÇíæÌÏ ÞíæÏ"
Else
Set DataGrid1.DataSource = datPrimaryRS

End If
Text2.Text = rr


End Sub


عند تنفيذ الاستعلام لا يقوم بعملية الجمع

(07-02-17, 12:45 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا

اشكرك اخي العزيز على الاهتمام بالموضوع وكرم اخلاقك حقيقة

(07-02-17, 07:58 PM)محمد ئوزبك كتب : [ -> ]

(07-02-17, 12:45 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا

اشكرك اخي العزيز على الاهتمام بالموضوع وكرم اخلاقك حقيقة

اشكر اخي وصديقي العزيز امير على اهتمامه الدائم ومشاركاته الفعالة التي طالما استفدنا منها 
اخي الكريم تم التعديل على مشروعك مع بعض التغييرات التي اجريتها اتمنى ان اكون وفقت في الاجابه

جزاكم الله كل الخير عن تفاعلكم وتواصلكم الدائم لايجاد الحلول لنا وهذا من كرم اخلاقكم , واعتذر عن تاخري في الاجابة على ردكم الكريم لطلبي بسبب عدم فهمي لبعض الخطوات التي وضعها استاذنا الكريم لقصر معرفتي وصراحة لاحب ان اكون مجرد ناسخ . طبعاً الحل الذي وضعه الاستاذ شغال 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