اريد مساعدة سريعة فى طريق عمل ال search

اولا علشان يبحث بأول حرف تستخدم Like

وتضع الكود تحت حدث Text Change الخاص بال Text Box المراد البحث منه.

Data1.RecordSource = "select * from اسم الجدول where اسم الحقل like  '*" & Text1.Text & "*'" 

Data1.Refresh

وهكز لو كتبت حرفين في TEXT BOX

هيعمل بحث بأول حرفين اوتو متك

ده بالنسبة للسؤال 2

السؤال رقم 1

من الافضل استخدم Like

برده ستوئدي نفس الغرض من البح ث ودون اي مشاكل

الاخ العزيز وليد شكرا جدا على الرد الجميل والمفيد والله يزيدك من علمه

عندى سؤال ليك

لو انا عملت البحث وعندى تكست عايز اعمل جوا التكس دى مجموعه ريكورد بحيث نتيجة البحث بتاعى تظهر فيها كل نتيجة بحث فى صف بحيث اختار الكلمة اللى انا عايزها واضغط عليها بالماوس تجبلى معنى الكلمة

الاخ المنسي

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

هسة هذا هو كود البحث حسب الاحرف من تكست للفلترة في bdlistولكن بيطول عملية البحث كثيرا ومرات بيخرج البرنامج عن المميمورى حيث يصلح الكود اذا كانت البيانات قليلة جدا مثلا 20 سجل فقط

Private Sub Text3_Change()

Data1.Recordset.AddNew

For i = 0 To Data1.Recordset.RecordCount - 1

Data1.Refresh 'للتحديث

Data1.Recordset.Move (i)

If Left(Data1.Recordset("eng"), Len(Text3)) = Text3 Then

Exit For

End If

Next i

End Sub

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

وسادرج المثال في المرفقات

وارجو ان نتوصل الى حل امثل لحل الكود اعلاه

من لديه القدرة على حل هذه المسائلة او من لدية مثال لقاموس ارجو ان يساعدنا وارجو اخبار الخبراء في المنتدى للمساعدة

المساعدة المساعدة

1.zip

بسم الله

الاخوة الكرام

القضية سهلة ... انتم تريدون التالي عمل تكست يتم البحث فيها ثم تظهر النتيجة في ليست بوكس مثلا ....

بمعنى انك كتبت في التكست حرف (م) سيظهر في الليست بوكس مثلا (محمد ،محمود ، محاسن ......) صح ...

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

نفترض ان اسم الحقل في القاعدة name

في الحدث click الخاص بالليست بوكس اعمل

& x="name=" & list1.text الكود هذا صحيح (اذا طلع لك خطأ حاول تغير في اشارة & أو تعمل علامتي تنصيص بين كلمة list.text)

بعده تعمل

ado.find =x (اذا طلع لك خطأ شيل علامة يساوي )

الطريقة الثانية

a=list1.text

ado.open "select * from prod where pid=" & a

وكذا خلصنا

دعواتكم

اخوكم

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

اخي المبرمج الطيب نريد كود كامل ومكمل حيث هذا صار لى شهر ادور وابحث واستبدل لكن بدون جدوى

لذلك نريد كود بحيث المبرمج قد استخدمه فعلا في هذة الفقرة الخاصة

وكتابة الكود باكامل لنا

لاننا مللنا من التعديلات الغير الفيدة والغير مجدية

ولكم جيزل الشكر والتقدير

الأخوة الأعزاء شكرا لكم على تعاونكم واهتمامكم وجزاكم الله خير

الاخ العزيز المبرمج الطيب هل من الممكن عمل البرنامج اللى انتا شرحت الكود بتاعه يعنى انتا تعمله بصورة مبسطه وتبعتلنا الفورم بتاعته ضرورى .

مع العلم انى هستخدم الكود ده فى برنامج قاموس يضم اكثر من 6500 سجل وانا اشتغلت فى البرنامج ده بطريقة ال DATA وليس ال ADO

وعملت نظام البحث بالكلمة واشتغلت كويس جدا بس عندى مشكلة ان لو مكنتش اكلمة اللى ببحث عنها هيا الكلمة الاولى فى التكست بيعملى انها مش موجوده

مثلا

لو السجل بتاعى فيه مثلا

White Black

لو دورت على كلمة white ميجبهاش لازم تكون white لوحدها فى سجل وblack لوحدها فى سجل

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

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