تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] اين الخطأ في الجملة
#1
السلام عليكم اخوتي الاعزاء
ارجو المساعدة

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


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

Huh
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا
الرد }}}
تم الشكر بواسطة: محمد ئوزبك , السيد الغالي , Ahmed_Mansoor
#3
(07-02-17, 12:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا

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


الملفات المرفقة
.rar   OPT.rar (الحجم : 591.06 ك ب / التحميلات : 44)
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor
#4
(07-02-17, 07:58 PM)محمد ئوزبك كتب :
(07-02-17, 12:45 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله
يرجى ارفاق الملف للتعديل عليه
شكرا جزيلا

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


الملفات المرفقة
.rar   OPT1.rar (الحجم : 591.02 ك ب / التحميلات : 38)
   تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم    
الرد }}}
#5
جزاك الله عني خير الجزاء اخي السيد الغالي و بارك الله فيك .
ما شاء الله شغل متقن و دائما متقن باذن الله
الرد }}}
#6
جزاكم الله كل الخير عن تفاعلكم وتواصلكم الدائم لايجاد الحلول لنا وهذا من كرم اخلاقكم , واعتذر عن تاخري في الاجابة على ردكم الكريم لطلبي بسبب عدم فهمي لبعض الخطوات التي وضعها استاذنا الكريم لقصر معرفتي وصراحة لاحب ان اكون مجرد ناسخ . طبعاً الحل الذي وضعه الاستاذ شغال 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
الرد }}}
تم الشكر بواسطة: السيد الغالي , Ahmed_Mansoor , Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ماهي الجملة المناسبة في لغة sql لتنزيل كل 30 سجل قيمة معينة gonm64 0 898 19-04-20, 04:04 PM
آخر رد: gonm64
  استكمالا لاستفسارى السابق :ما الخطأ فى هذا الكود؟ عند تغيير اسم الجدول؟ مبرمج مصرى 2 1,390 21-10-19, 11:00 AM
آخر رد: مبرمج مصرى
  [vb6.0] تصحيح الخطأ حسن الغزي 10 3,197 23-05-19, 07:47 PM
آخر رد: جاسم عبد
  تصحسح الخطأ abde6726 1 1,323 06-05-18, 02:25 AM
آخر رد: عبد العزيز البسكري
  ما هو الخطأ فى هذا الكود مبرمج مصرى 0 1,202 07-02-18, 04:59 PM
آخر رد: مبرمج مصرى
  [ تمّ الحل ] : ما سبب ظهور رسالة الخطأ لو سمحتم عبد العزيز البسكري 2 1,934 09-12-16, 04:07 PM
آخر رد: عبد العزيز البسكري
  اضافة مثال عن مشكلة رسالة الخطأ في قاعدة البيانات haniblack 7 3,875 24-05-16, 08:59 AM
آخر رد: haniblack
  ما الخطأ فى هذا الكود - اريد جلب كود الشركة بمجرد اختيار اسم الشركة من الـ Combo1 Ashraf Elafify 2 2,028 07-04-16, 12:20 PM
آخر رد: Ashraf Elafify
  ما الخطأ في كود الحفظ فاضل الحمود 6 2,447 29-09-15, 03:15 PM
آخر رد: فاضل الحمود
  ما سبب هذا الخطأ scsi7000 4 2,299 10-08-15, 06:48 PM
آخر رد: scsi7000

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم