تمييز كلمة البحث عن غيرها

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

عفوا، للإجابة عن السؤال الأول أرجو منك توضيح نوع الكنترول الذي سوف تخرج فيه النص لانه علي حسب معررفتي لو هو TextBox لا تستطيع ان تغير لون كلمة معينة و لكن تعرف تغيير لون كل النص في أي وقت

ثانيا: للبحث في مجموعة معينة من المصادر تستطيع استخدام OR لتفصل بين الكتاب و الآخر مثال ذلك

)data1.recordsurce = " select ........... from..........where ...................... and tb1.m_num =2 or tb1.m_num =3 or tb1.m_num =4)

لكن في حالتك هذه يجب ان تكون recordsource بشكل ديناميكي لكي تقلل من استخدامك من IF statment و تيسطها ايضا

يعني تعرف تغير من نوع String

dim strQuery as string

و نعطي له قيمة مبدئية

strQuery= "select ........... from..........where ...................... and ("

عفوا مش عارف اظبط الأقواس من العربي

المهم

ثم تسأل عن الكتب أو المجموعة المختارة

if chk2.value = 1 then

OR or tb1.m_num =3 " "strQuery = strQuery &

end if

و تكرر هذه الجملة عند كل مصدر

و تضع قيمة strQuery بدلا من النص الثابت

هكذا

data1.recordsurce = strQuery

و ربنا يوفقك

و أنا في الخدمة

أبا المذر

اخوي mdyehia ..

عملت الطريقة اللي قلتلي عليها ..

صح يبحث في اكثر من مصدر ولكن ..

النتائج غير مظبوطة ..

اتمنى حل هذه المشكلة ..

ارفقت لك البرنامج للاطلاع على البرنامج ..

واعطاء ملاحظاتك عليه ..

وشاكر تعاونك ..

اخوك محمد

البرنامج.zip

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

سوف أثقل عليك - أرجو أرسال وصف الحقول الخاصة بالجدول hdeth

أبا المذر

اخي ابا المذر ..

اسف لان البرنامج السابق لم يكن واضحا ..

لاني عدلت عليه لاخفف عنك ..

فاذا بي ازيد البرنامج غموضا ..

كان هناك استدعاؤ لحقول غير مطلوبه ..

ولكن بالملف المرفق الان اختصرت البرنامج حتى يكون افضل واوضح ..

وارفقت ايضا التوضيح المطلوب للحقول بالجدول المذكور ...

اخوك محمد

البرنامج.zip

ابا المنذر بانتظار ردك ..

اخوك محمد

أخي الحبيب

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

شكرا جزيلا لك

البرنامج.zip

مجرد إنسان ..

الشكر لله ثم لك على ما قدمت ..

واشكر لك نصيحتك اللتي سأضعها نصب عيني ..

ولكن البداية دائما تكون هكذا ..

اشكرك مرة اخرى اخي مجرد إنسان ..

وتقبل محبتي وتقديري ..

اخوك محمد

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

أخي في الله أنا آسف علي التأخير

لو فيه مشكلة لاتتردد في السؤال

ابا المنذر

ابا المنذر ..

اشكر اهتمامك اخي ابا المنذر ..

والحمدلله انحلت المشكلة ..

مشكور مرة اخرى لاهتمامك ..

اخوك محمد