تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
Adodc1.Recordset.Find
#1
كيف يكون البحث بشرطين
كتبت هذا الكود للبحث عن سجل معين فعمل دون أخطاء

كود :
Private Sub Command1_Click()
NUMM1 = Text1.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "DATA1 = " & NUMM1
End Sub
ولكن عندما عدلت الكود من أجل البحث بشرطين اعترض البرنامج ولم ينفذ
كود :
Private Sub Command1_Click()
NUMM1 = Text1.Text
NUMM2 = Text2.Text
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find "DATA1 = " & NUMM1 And "DATA2 = " & NUMM2
End Sub
فأرجوكم تعديل هذا الكود الأخير
ولكم ألف شكر
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم...

الـ AND هي جزء من نص الشرط، و لهذا يجب أن تكون ضمن نص الشرط:

كود :
Adodc1.Recordset.Find "(DATA1 = " & NUMM1 & ") AND (DATA2 = " & NUMM2 & ")"

نرجو الاستفادة و السلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة: اسلام الكبابى
#3
Thumbs Up 
بارك الله فيك أستاذى الكبير
× آسف
أستاذ المنتدى الكبيييييييير
وزادك من علمه
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما سبب الخطاء عند الحدث Adodc1.Refresh allobaed 4 145 01-09-16, 01:58 AM
آخر رد: allobaed
Question [سؤال] الـ Recordset لا تدعم التحديث (Update) بشار الذيب 3 500 05-05-14, 01:05 PM
آخر رد: بشار الذيب
  find first مع داو asto 3 718 13-01-14, 10:33 PM
آخر رد: ناجي إبراهيم

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


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