كيف أجعل البرنامج يبحث بالكلمة

أشكرك أخي البرنامج عمل وكل شئ تمام

ولكن لدي بعض الأسئلة إذا لم تكن تعبت مني:

اولاً

في خيار البحث: مثلاً كلمة “PLACE”

عندما أختار يحتوي على تظهر جميع الكلمات PLACE و PLACES

لكن عند أختيار يبدأب.. أو ينتهي ب.. عند البحث ب PLACE تظهر فقط هذة الكلمة بدون الجمع.

ثانياً

ب searchList في Row Source يوجد هذا الكود :

SELECT Letters.File_No, Letters.Letter_No, Letters.Letter_Ref, Letters.Letter_Subject, Letters.From_To, Letters.Date_Letter, Letters.Date_Receive FROM Letters WHERE Letter_No Like txtSearch & "*" ORDER BY Letter_Subject DESC;

Letters.File_No لماذا لم يكون Files.File_No فهي من جدول ال file

ما معني الكود: ?Letter_No Like txtSearch

ما معنى: DESC؟

إذا أردت أن أضيف File_Volum فهل قدر أم يحتاج الى فورم أخر؟

letter_search.rar

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

تحية طيبة وخبر سعيد انك قمت بعمل اللازم واشتغل معاك كل شيء..

أولا : - المثال المرفق للأسف .. لا توجد عليه التعديلات المطلوبة .. برجاء رفع المثال الصحيح ...

ثانيا:-نأتي الى التوضيحات المطلوبة وحدة وحدة .. ماشي ..

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

البيانات الموجوده بالحقل Letter_Subject هي :-

نأتي الى التوضيحات ....

أولا:-

اقتباس

اولاً

في خيار البحث: مثلاً كلمة “PLACE”

عندما أختار يحتوي على تظهر جميع الكلمات PLACE و PLACES

لكن عند أختيار يبدأب.. أو ينتهي ب.. عند البحث ب PLACE تظهر فقط هذة الكلمة بدون الجمع.

1- عندما يتم البحث عن Place من خلال الخيار (يحتوي) فان الدالة تقوم بارجاع كافة الكلمات Place سواء كانت في( بداية أو نصف أو آخر) العبارة .. وتقوم كذلك بارجاع Place المضاف اليها s أو اي سلسلة احرف اخرى مهما كان طولها اهم شيء تحتوي على الاحرف p l a c e s ...

لذلك من خلال الصورة اعلاه سيتم ارجاع الرسائل رقم (2) و(4) و(5) فهي العبارات التي تحتوي على place.

2- عند اختيار البحث من خلال الخيار يبدأ بـ.. place فالدالة تقوم بارجاع أي عبارة تبدأ بكلمة place ولا يهم ماهي الاحرف المرتبطة بها مثل place2 وplace3

لذلك من خلال الصورة اعلاه سيتم ارجاع الرسائل رقم (4) و (5) فقط فهي العبارات التي تبدأ بـ.. place

3- عند اختيار البحث من خلال ينتهي بـ .. place نلاحظ من الصورة اعلاه انه لا توجد أي عبارة تنتهي بـ place اذا لا توجد اي سجلات مطابقة للبحث..

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

نأتي الى ثانيا:-

اقتباس

Letters.File_No لماذا لم يكون Files.File_No فهي من جدول ال file

لا توجد أي مشكلة بانضمام files.file ولكن بمراجعة الصورة اعلاه وجدت ان الحقل موجود في الجدول letters فلماذا يتم اطالة الكود بوضع تعبيرات اضافيه وخاصة

ان الاستفادة فقط من حقل واحد وموجود اصلا في نفس جدول letters.

ولكن اذا كان الأمر مهما سنقوم بتغيير بسيط كما سيتم توضيحه بعد قليل .. ( خليك معنا )..

ثالثا:-

اقتباس

ما معني الكود: ?Letter_No Like txtSearch

Letter_No Like txtSearch= اسم الحقل Letter_No يساوي القيمة المدخلة على النموذج في عنصر التحكم الذي اسمه txtSearch

مع ملاحظة انا لم اقم بكتابة الكود بهذه الطريقة حيث ان هذه الطريقة محددة فقط للبحث من خلال حقل واحد فقط وهو ( Letter_No)

وموضح بالصورة

رابعا:-

اقتباس

ما معنى: DESC؟

DESC= ترتيب تنازلي واذا تم مسحه يقوم الاكسس بالترتيب بشكل تصاعدي أو نكتب ASC يعني تر تيب تصاعدي..

خامسا:-

اقتباس

إذا أردت أن أضيف File_Volum فهل قدر أم يحتاج الى فورم أخر؟

لا تحتاجين اضافة فورم آخر ولا هم يحزنون .. ولكن نحن بحاجة الى تعديل الكود وتغيير المصدر والتعديل على مربع سرد وتحرير الحقول ليكون المصدر هو الاستعلام Query2 .. اذا سنقوم باضافة كل من الحقل Files.File_No و كذلك Files.File_Volum كما يلي :

strSql = "SELECT Files.File_No, Files.File_Volum, Letters.Letter_No, Letters.Letter_Ref, Letters.Letter_Subject, Letters.From_To, Letters.Date_Letter, Letters.Date_Receive " & vbCrLf & _
				 "FROM Query2 " & _
				 "WHERE  " & ftxt & " Like " & CrtTxt & " " & _
				 "ORDER BY " & fsortN & " " & ascDe & ";"

تم توضيح كافة الطلبات ..

ومرفق المثال بعد التعديل

مشكاة

lett_srch_UP4.rar

أشكرك أخي وبارك الله فيك.

البرنامج يعمل وكل شئ تمام.

لساني يعجز على شكرك لما بذلته من مجهود جبار في وصولى الى مــرادي وهدفـــي..

شــــكرااااااااااااا