منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
Adodc1.Recordset.Find - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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)
+---- الموضوع : Adodc1.Recordset.Find (/showthread.php?tid=3060)

Adodc1.Recordset.Find - اسلام الكبابى - 31-05-14

كيف يكون البحث بشرطين
كتبت هذا الكود للبحث عن سجل معين فعمل دون أخطاء
كود :
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
فأرجوكم تعديل هذا الكود الأخير
ولكم ألف شكر

RE: Adodc1.Recordset.Find - ناجي إبراهيم - 01-06-14

السلام عليكم...

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

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

نرجو الاستفادة و السلام.

RE: Adodc1.Recordset.Find - اسلام الكبابى - 01-06-14

بارك الله فيك أستاذى الكبير
× آسف
أستاذ المنتدى الكبيييييييير
وزادك من علمه