كود البحث فى DBLIST ليظهرفى تكست

ا رجو المساعدة من لدية خبرة في هذة

بسم الله وبعد

الاخـ كاروان انا بصراحة ما تحضرني هذي الطريقة وشفت هذي المشاركة امس لكني خليت مجال للاخوة الاعضاء اللي يعرفوا هذي الطريقة ....

انا بعطيك طريقة بديلة لهذي الطريقة ...تمام

اعملـ التالي :

text

ثم

List box

لنفترض ان لديك جدول الطلاب وفيه الحقول التاليه (رقم الطالب) و (اسم الطالب)

حلو ... بعدين اكتب الكود التالي في الحدث على ما أذكر اسمه (onchange) التابع للتكست ... تمام :

أنا بعطيك الخوارزمية تمام

a=text1.text هنا يضع الحرف الذي ادخلته حلو

ado.movefirst لينتقل اولا لبداية الجدول حلو

X="name like "& a

&

"" هنا يضع الحرف الذي أدخلته مثلا (أ)

ado.filter =x هذا الكود يعمل على فلترة الجول الى الاسماء التي تبدأ بالحرف الذي أدخلته وهو (أ) بمعنى كأنه صار معك جدول جديد يحتوي على الاسماء التي تبدأ بالحرف ألف (أحمد أيمن أحلام ....)

while not ado.eof يعني أذا لم تنتهي السجلات أدخل الى هذا الكود

list.additem ado!name هنا سيضع في الليست بوكس الاسم الاول وهو أحمد

ado.movenext للانتقال الى السجل التالي

loop هنا لا أذكر هل هي او غيرها على العموم سيظهر لك الخطأ

if ado.eof then

msgbox

"لايوجد اسم طالب بهذة الحروف"

end if

ملاحظه : لكي تنفذ الكود اعمل نقطة حمرا بجانب أول سطر في الكود من الناحية اليسرى ثم نفذ الكود وتتبع سيره بالضغط على f8

ان شاء الله يصلح معك :D

واذا ماصلح لا تزعل لاني اقولها كالعادة (أجيب من مقهى لا يوجد فيه vb) :angry:

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

دعواتك لنا

سلام

المبرمج الطيب :)

تفضل كود ناصر

الطلاب.rar