[princeofislam]

سلام عليكم ورحمه الله وبركاته

عندي الكود التالي 

كود :

If Not Combo3.Text = "Çáßá" Then Adodc1.RecordSource = "select * from kaf where  mynat ='" & Combo1.Text & "' and mystat='" & Combo2.Text & "'and mysex ='" & Combo3.Text & "'and myage Between " & Text121.Text & " AND " & Text131.Text & " Order By myage"

واريد ان احولة الى كود برمجي اخر يعطي نفس الشي كنت استخدم اداة  ادودك 
اريد ان يكون  على طريقة الربط بدون ادوات يعني مثلا

كود :

 rs.Filter = "xnum LIKE '" & Me.Text1.Text & "*'"

يعني استاذة كنت استخدم ادوات الربط الان اصبحت استخدم مكتبة 2.8

---

هذا الكود مش زابط معي والله

If Not Combo1.Text = "الكل" Then rs.Filter = "xnat LIKE '" & Combo1.Text & "'and xstat='" & Combo2.Text & "'and xsex='" & Combo3.Text & "'and xage Between " & Text121.Text & " AND " & Text131.Text & " Order By myage" * ""

Set DataGrid1.DataSource = rs

[princeofislam]

كود :

 If Not Combo1.Text = "الكل" Then rs.Filter = "xnat LIKE '" & Combo1.Text & "'and xstat='" & Combo2.Text & "'and xsex='" & Combo3.Text & "'"

 Set DataGrid1.DataSource = rs

 

هذا الكود شغال لاكن عندما اضع مع البحث البحث عن العمر بين رقمين ما بيزبط
age = xage filed
between text121 and text 131

[princeofislam]

تفضل استاذي الغالي امير 

الاستعلامات التي اريد هي باللون الاصفر

---

استاذ امير في مربعين تيكست لونهم اصفر عشان فلترة العمر من كذا الى كذا

[princeofislam]

اشكرك استاذي الغالي
انا عملت بنصيحتك واستخدم الفيجوال الان بدون ادوات ... ادعيلي

[princeofislam]

تلميذك استاذي