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


كود:
AValue1 = txtFields(1).Text: AValue2 = txtFields(2).Text
Set RS1 = New ADODB.Recordset
RS1.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") ", DB, adOpenStatic, adLockReadOnly
If RS1.RecordCount = 0 Then CORRECT = 0: GoTo 25
Set RS2 = New ADODB.Recordset
RS2.Open "select * FROM " & ATablee & " WHERE (" & AField2 & " = " & CStr(AValue2) & ") ", DB, adOpenStatic, adLockReadOnly

RSend.Open
RS2 ما يحقق شرط RS1 أريد كتابة الجملة السابقة بمعنى اختر من
RS1 ما يحقق شرط RS2 أو بمعنى اختر من
أو بمعنى اختر من قاعدة البيانات ما يحقق الشرطين معآ

Adodc1.RecordSource = RS.Source
GoTo 50

25 Z = MsgBox("لا يوجد أى سجلات", vbOKOnly, "")
50 End Sub
أريد استكمال الكود بتعديل جملة الRSend
ولا أريد الكود فى جملة واحدة كهذه


كود:
RSend.Open "select * FROM " & ATablee & " WHERE (" & AField1 & " = " & CStr(AValue1) & ") and (" & AField2 & " = " & CStr(AValue2) & ")", DB, adOpenStatic, adLockReadOnly

ولكم ألف شكر
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مامعنى هذا الكود amena 2 234 28-08-18, 10:50 PM
آخر رد: amena
  خطأ فى الكود 2147217865- اسلام الكبابى 2 697 22-04-16, 10:51 PM
آخر رد: اسلام الكبابى
  أريد كودآ سهلآ بدلآ من هذا الكود الغبى اسلام الكبابى 2 1,103 13-04-15, 08:00 PM
آخر رد: اسلام الكبابى
  اضافة سجل باستخدام الكود اسلام الكبابى 1 1,074 25-03-15, 09:05 PM
آخر رد: اسلام الكبابى
  كتابة كود داخل الاكسس بواسطه الكود من الفيجوال hagasoft 1 1,090 28-07-13, 12:13 AM
آخر رد: hskurd
  ما الخطأ في هذا الكود Ahmed Abdulla 7 2,089 25-05-13, 10:58 PM
آخر رد: Ahmed Abdulla
  تعديل علي هذا الكود Ahmed Abdulla 9 2,025 22-05-13, 10:00 AM
آخر رد: Ahmed Abdulla
  ما الخطأفي الكود التالي ado كمبو بوكس المبرمج البسيط 12 1,876 27-04-13, 12:18 PM
آخر رد: تركي الحلواني
  تصحيح كود للبحث عن طريق اداة adodc مبرمج بلا حدود 4 1,421 22-04-13, 06:36 PM
آخر رد: مبرمج بلا حدود
  برنامج لصنع ( تكوين ) قاعدة بيانات أكسس من خلال الكود Ahmad Jawad 5 1,475 03-03-13, 02:19 AM
آخر رد: zar9awi06

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


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