+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] اين الخطأ في الجملة (/showthread.php?tid=19137)
اين الخطأ في الجملة - محمد ئوزبك - 07-02-17
السلام عليكم اخوتي الاعزاء
ارجو المساعدة
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
عند تنفيذ الاستعلام لا يقوم بعملية الجمع
RE: اين الخطأ في الجملة - Amir_Alzubidy - 07-02-17
السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا
RE: اين الخطأ في الجملة - محمد ئوزبك - 07-02-17
(07-02-17, 12:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا
اشكرك اخي العزيز على الاهتمام بالموضوع وكرم اخلاقك حقيقة
RE: اين الخطأ في الجملة - السيد الغالي - 08-02-17
(07-02-17, 07:58 PM)محمد ئوزبك كتب :اشكر اخي وصديقي العزيز امير على اهتمامه الدائم ومشاركاته الفعالة التي طالما استفدنا منها(07-02-17, 12:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا
اشكرك اخي العزيز على الاهتمام بالموضوع وكرم اخلاقك حقيقة
اخي الكريم تم التعديل على مشروعك مع بعض التغييرات التي اجريتها اتمنى ان اكون وفقت في الاجابه
RE: اين الخطأ في الجملة - Amir_Alzubidy - 08-02-17
جزاك الله عني خير الجزاء اخي السيد الغالي و بارك الله فيك .
ما شاء الله شغل متقن و دائما متقن باذن الله
RE: اين الخطأ في الجملة - محمد ئوزبك - 12-02-17
جزاكم الله كل الخير عن تفاعلكم وتواصلكم الدائم لايجاد الحلول لنا وهذا من كرم اخلاقكم , واعتذر عن تاخري في الاجابة على ردكم الكريم لطلبي بسبب عدم فهمي لبعض الخطوات التي وضعها استاذنا الكريم لقصر معرفتي وصراحة لاحب ان اكون مجرد ناسخ . طبعاً الحل الذي وضعه الاستاذ شغال 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