[اسلام الكبابى]

كيف يكون البحث بشرطين
كتبت هذا الكود للبحث عن سجل معين فعمل دون أخطاء

كود :

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

فأرجوكم تعديل هذا الكود الأخير
ولكم ألف شكر

[ناجي إبراهيم]

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

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

كود :

Adodc1.Recordset.Find "(DATA1 = " & NUMM1 & ") AND (DATA2 = " & NUMM2 & ")"

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

[اسلام الكبابى]

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