السلام عليكم ورحمة الله وبركاته
سنعرض اليوم بعض الاكواد المهمة في التعامل مع المشروع وسنبدأ بالاكواد الخاصة بعمليات التعامل مع عمليات البحث لأهميتها في أي منظومة أو أي مشروع
الكود يجب أن يكتب داخل مربع النص Text وفي الحدث تغيير Change
Private sub text1_change ()
if not vbcancel then
adodc1.refresh
adodc1.recordsource="select * form tab1 where f1 like '%" & text1 & "%' "
adodc1.commandType=adCmdText
Adodc1.Refresh
End If
end sub
هنا كتبنا الكود داخل الحدث تغير للأداة مربع النص وذلك لكي تتحسس كل تغير يطرأ عليها وهي بعد ذلك تغير محتوياتها بناء على المطلوب.
السطر الثاني هو لبناء شرط
أما السطر الثالث فهو لإنعاش أداة الاتصال مع قواعد البيانات
السطر الرابع هو لتحديد فقط ما هو شبيه بما هو موجود داخل الأداة والتسمية tab1 تعني الجدول أما f1 فتعني الحقل الذي تريد البحث بداخله.
السطر الخامس وهو لتحديد أن البيانات يجب معاملتها كنص
السادس للإنعاش
السابع لإنهاء جملة الشرط
الثامن لإنهاء الكود