تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الخطأفي الكود التالي ado كمبو بوكس
#1
عند الضغط على الكمبو بوكس
لأضهار النتائج في التيكست
يحصل هذا الخطأ


Private Sub Combo2_Click()
If RS.State = 1 Then RS.Close
SQL = "select * from item where nameitem = '" & Combo2 & ""
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic <------- هنا الخطأ
If RS.EOF = False Then

Text2.Text = RS!prins
Text5.Text = RS!num
End If
RS.Close
Set RS = Nothing

End Sub
الرد }}}}
تم الشكر بواسطة:
#2
هل أنت متأكد أن
nameitem هي الحقل و item هي إسم الجدول

إذا كان كذلك أنصحك أن تضع
nameitem هكذا [nameitem]

أو حاول أن ترفق برنامج مصغر إن شاء الله نشوف الحل
لو أمكن تعطينا صورة للخطأ
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة:
#3
SQL = "select * from item where nameitem = '" & Combo2 & ""

اجعلها هكذا

Combo2.Text
الرد }}}}
تم الشكر بواسطة:
#4
نفس المشكله يا اخوان
الرد }}}}
تم الشكر بواسطة:
#5
المبرمج البسيط كتب :نفس المشكله يا اخوان

طيب ارفع مثالك نعدل عليه ...
الرد }}}}
تم الشكر بواسطة:
#6
كود :
SQL = "SELECT * FROM item WHERE nameitem = '" & Me.Combo2.Text & "' "
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#7
نفس المشكله اخ ابو رائد
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم

- في البداية تأكد من أن نوعالحقل nameitem نصي , ثم جرب هذا التعديل :

كود :
Private Sub Combo2_Click()

If RS.State = 1 Then RS.Close
SQL = "select * from item where nameitem ='" & Trim$(Combo2.Text) & "'"
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic

If RS.RecordCount > 0 Then
   If Not IsNull(RS!prins) Then Text2.Text = RS!prins Else Text2.Text = "0"
   If Not IsNull(RS!num) Then Text5.Text = RS!num Else Text5.Text = "0"
Else
   Text2.Text = "0"
   Text5.Text = "0"
End If
If RS.State = 1 Then RS.Close

End Sub

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#9
نفس المشكله
هذا الخطأ


الرد }}}}
تم الشكر بواسطة:
#10
يا أخي تأكد من أنك قمت بوضع كود الإتصال بالنسبة للكائن db قبل وضع هذا الإستعلام

أرفق مشروعك أفضل
منقطع .. للدراسة Confused
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  خطأ فى الكود 2147217865- اسلام الكبابى 2 153 22-04-16, 10:51 PM
آخر رد: اسلام الكبابى
  تصحيح هذا الكود اسلام الكبابى 0 343 17-04-15, 06:05 PM
آخر رد: اسلام الكبابى
  أريد كودآ سهلآ بدلآ من هذا الكود الغبى اسلام الكبابى 2 429 13-04-15, 08:00 PM
آخر رد: اسلام الكبابى
  اضافة سجل باستخدام الكود اسلام الكبابى 1 522 25-03-15, 09:05 PM
آخر رد: اسلام الكبابى
  كتابة كود داخل الاكسس بواسطه الكود من الفيجوال hagasoft 1 719 28-07-13, 12:13 AM
آخر رد: hskurd
  احتفاظ تكست بوكس بما فيه دون تعديله مستر مايسترو 4 611 12-07-13, 07:24 PM
آخر رد: محمود اكرم
  ما الخطأ في هذا الكود Ahmed Abdulla 7 1,488 25-05-13, 10:58 PM
آخر رد: Ahmed Abdulla
  تعديل علي هذا الكود Ahmed Abdulla 9 1,281 22-05-13, 10:00 AM
آخر رد: Ahmed Abdulla
  برنامج لصنع ( تكوين ) قاعدة بيانات أكسس من خلال الكود Ahmad Jawad 5 1,007 03-03-13, 02:19 AM
آخر رد: zar9awi06
  ado : ما الخطأ في الكود هذا المبرمج البسيط 2 473 10-02-13, 11:09 AM
آخر رد: تركي الحلواني

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


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