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

[ابو جودي]

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

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

والان ارفق هذا المثال الاجنبى الاصلى 
فقط قمت بالتعديل على الفورم وطريقة عرض الحقول 

المطلوب من اساتذتى الكرام جزاهم الله عنا كل الخير 
مثلا انا لو اخترت البحث عن  ContactName

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

كما فى الصورة التالية

انا اريد ان يتم البحث والفرز تلقائيا اثناء كتابة احرف البحث داخل مربع البحث دون الضغط على مفتاح الـ Enter

SearchHighlight.rar

[ابو جودي]

طيب المرفقات التالية على الترتيب تقوم بالاتى
المرفق الاول 

عند البحث يقوم بتظليل ما يطابق نتيجة البحث
SearchHighlight.rar

المرفق الثانى 
يقوم بالفرز تلقائيا اثناء الكتابه دون اى تدخل منك ولكن لا يقوم بالتظليل 
FindAsUType.rar


ما اريده هو الدمج بين المثالين للحصول على مثال واحد يقوم بالبحث التلقائى والفرز والتظليل لما يطابق البحث وكل ذلك بطريقة اليه اثناء كتابة الحروف

كما يحدث فى البحث والفرز بالمرفق الثانى

[ابو جودي]

up

☺  ♥  ☺

[رمهان]

عزيزي واخي اسير الشروق

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

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

اما مسالة تحديد النص فخليها مرحلة ثانية ! لانها جديدة علي وساحاول عملها بطريقة اسهل ان شاء الله !

 

تنبيه : لماذا اخي اسير الشروق لا تستعمل مربع البحث الافتراضي والموجود في اسفل النموذج ! انه عجيب !

 

تحياتي

تم تعديل أبريل 8, 2015 بواسطه رمهان

[رمهان]

تفضل عملية البحث وفي النموذج cust . لاحظ ان الفكرة :

1. مربع تحريروسرد يعرض الحقول : فقط انظر لخصائص البيانات واهم خاصية مصدر الصف=قائمة الحقول .

2. سناخذ اسم الحقل من مربع التحرير والسرد واذا كان فارغا سيعتمد ال id

 

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

Private Sub textfind_Change()
xvar = textfind.Text
Me.Filter = Nz(comb1, "id") & " Like ""*" & xvar & "*""": Me.FilterOn = True
textfind.SetFocus
textfind = xvar
textfind.SelStart = Len(xvar)
End Sub

ومسالة التضليل فلاحقا وبطريقة سهلة ان شاء الله !

 

تنبيه : ان من قام بالمرفق السابق لاشك انه محترف ولكنه يجهل كثيرا في خفايا الاكسس وميزاته والتي تجعلنا نختصر الكثير من الاكواد ! لقد احتوى المثال الاجنبي على اكواد زائدة جدا جدا يمكن تحسينها بنسبة كبيرة جدا !

 

تحياتي

SearchHighlight.rar

تم تعديل أبريل 9, 2015 بواسطه رمهان

[ابو جودي]

ماشاء الله الله اكبـــــــر       

 

رااااااااااااااااائع وممتاااااااااااااااااااااااااااااااااااااااااااااز      
جزاكم الله خيرا

اختزال للاكواد ممتاز   

 

لكن استاذى هناك استفسار لو تكرمت   

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

 

[رمهان]

Private Sub comb1_AfterUpdate()
Me.Filter = Nz(comb1, "id") & " Like ""*" & textfind & "*""": Me.FilterOn = True
End Sub

[ابو جودي]

♥ كل الشكر وكل التقدير استاذ رمهان ♥  
كل كلمات وعبارات الثناء لاتكفيك 
يبقى لنا دائما العجز في وصف كلمات الشكر خصوصاً..
للأرواح التي تمضي خلال الأيام والتي تتصف
بالعطاء بلا حدود
ودائماً هي سطور الشكر تكون في غاية الصعوبة عند صياغتها...
ربما لأنها تشعرنا دوماً بقصورها وعدم إيفائها حق من نهديه هذه الأسطر ..
واليوم تقف أمامى الصعوبة ذاتها
وانا احاول صياغة كلمات شكر إلى ينبوع عطاء تدفق بالخير الكثير ومازال يعطى الكثير 

 

[محمد سلامة]

اخي الكريم احمد عبدالمنعم

كيف تصمم تلك الخلفيات

او من اين تاتي بالخلفيات الجاهزة التي تكتب عليها

اخوك محمد من مصر

[رمهان]

عزيزنا واخينا اسير الشروق

اشكرك على اطرائك واسلوبك الساحر .. والذي بنم عن اخلاق وذوق رفيع..

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

تحياتي

[ابو جودي]

اخي الكريم احمد عبدالمنعم

كيف تصمم تلك الخلفيات

او من اين تاتي بالخلفيات الجاهزة التي تكتب عليها

اخوك محمد من مصر

السلام عليكم 

اولا انا مش احمد عبد المنعم

انا اسمى محمد عصام

ثانيا تشرفت جدا جدا جدا بمعرفة حضرتك يا استاذ محمد وانا كمان من مصر

ثالثا يا اما باجيب الخلفيات من جوجل عادى 

يا اما باصممها بالفوتوشوب 

انا كويس جدا الحمد لله فى الجرافيك ونص نص فى الويب ديزاين 

وميح فى الاكسس   لسه بأتعلم

[ابو جودي]

عزيزنا واخينا اسير الشروق

اشكرك على اطرائك واسلوبك الساحر .. والذي بنم عن اخلاق وذوق رفيع..

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

تحياتي

استاذى القدير ومعلمى الجليل 

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

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

جزاكم الله عنا كل الخير       

وحقا استنبط اسمى من حالى فللشروق لحظات يملئها السحر والجمال والدلال على القدرة لله وعظيم الابداع تماما كما فى الغروب كذلك 

وكنت قديما اسجل بلقب اسير الغروب حتى قرأت حديث رسول الله صلى الله عليه وسلم تفائلوا بالخير تجدوه 

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

 

وحاشى لله ان يأسر اى انسان نعمه من نعم الله فلله الامر وحده من قبل من وبعد

[ابو جودي]

up

المطلوب استخدام الالوان على الحروف التى يتم عمل فلتر علبها

[bakoraus]

الاخوه الكرام انا فعلا بستفيد من خبراتكم 

 

لكم كل التقدير و الاحترام  

[رمهان]

تفضل أستاذ محمد عصام

طبعا وللحديث بقية وفي موضوع جديد ان شاء الله !!

لاحظ انني ان هناك أخطاء بسيطة تركتها لنفهم الفكرة وطريقة الحل ! كما انه تم التطبيق على عمود واحد فقط اسم الشركة !! حاول في عمل لعمود اخر !!

كما اريدك ان تلاحظ اين ذهبت اكواد الأخ الأجنبي !!!

 

بالتوفيق

SearchHighlight.rar

تم تعديل أبريل 14, 2015 بواسطه رمهان

[ابو جودي]

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

استاذ رمهان فى خطأ مش عارف ليه لكن مع البحث الكلمات بتظهر 

[ابو جودي]

سؤال على الماشى لو تكرمت استاذ رمهان

فى بداية فتح النموذج يكون بيانات الحقل بهذا الشكل 
#Type
ولكن بعد تنفيذ عملية البحث يتم اظهار البيانت بشكل جيد كيف يتم التغلب على هذه المشكله

[ابو جودي]

انا اسف جدا جدا جدا استاذ رمهان على الازعاج وعلى الاثقال على حضرتك       

ربنا يجزيك كل الخير ان شاء الله على كل وقتك وجهدك

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

[رمهان]

اهلا بك اخي محمد

الصق هذا التعبير الجديد كمصدر لعنصر التحكم:

=IIf(IsNull([comb1]);[CompanyName];Replace([CompanyName];[textfind];"<font color=red>" & [textfind] & "</font>"))

وعلى فكرة احنا لسا في بداية المشوار !!

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

 

تحياتي

[ابو جودي]

اهلا بك اخي محمد

الصق هذا التعبير الجديد كمصدر لعنصر التحكم:

=IIf(IsNull([comb1]);[CompanyName];Replace([CompanyName];[textfind];"<font color=red>" & [textfind] & "</font>"))

وعلى فكرة احنا لسا في بداية المشوار !!

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

 

تحياتي

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

المفروض التركيز فى تغير لون الحروف المطابقه للنص تكون فى الحقل اللى تم اختياره فقط ولكن يتم عمل تغير لون الحرف المطابق للبحث فى كل الحقول

وهذا مع ظهور 

#Type

عند اختيار اسم الحقل فى البداية

[ابو جودي]

للرفع 

[ابو جودي]

up

[ابو جودي]

فضلا وليس امرا

يرجى من المشرفين اغلاق الموضوع او حتى مسحه فلم يقدم او يأخرولم نجنى منه اى فائده فأمسى مجرد حشو داخل المنتدى بلا اى معنى 

شكرا لكل من حاول مساعدتى فى هذا الامر   

وشكرا ايضا لمن لم يجد الوقت الكافى لمساعدتى 

لانى للاسف اكتشفت مؤخرا ان كل افكارى 

[أبو عبدالله الحلوانى]

السلام عليكم أستاذ محمد ماعتدنا منك روح اليأس هذه وإن كان اﻷمر كما قال أستاذ رمهان هو جديد على المنتديات العربية فيكفى أن لحضرتك فضل السبق إليه

وأيضا لو أن كل من حاول الوصول الى شئ ثم استصعب عليه من المرة اﻷولى فتركه ما رأينا فى عالم البرمجة شيئا رائعا أبدا.

أخى اﻷمر أهون مما تتصور بكثير.....!

ولقد قمت ببعض اللمسات البسيطة على مثال عملاقما أستاذ رمهان وأحسب أنها وافت مطلوبك؛ ولكن للأسف لم أستطع رفعها..

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

[رمهان]

اولا اشكر الاخ ابو عبدالله الحلواني

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

ثانيا رمهان اضاف مشاركتين قيمة وهي رقم 5 و 15 واخذت من وقتي في التفكير وليس لتنفيذ الفكرة !

ووعدتك باكمال الموضوع فوجدته يحتاج ان القي بظهري مستندا اعصف ذهني واخليه من كل مسؤوليات اخرى ! ولكن للاسف انه لم تتوفر تلك لدي اﻻن !

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

فانت وحظك اخ محمد مع فكر رمهان وظروفه!

اخ محمد هل تعتقد ان موضوعا لم يحضر رمهان الحل كغيره مباشرة انه سهل! هو سهل ولكن الفكرة الفكرة!

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

بقي موضوع التلوين عند وجود النص بل انني اعطيتك مفتاح الحل بل جزء كبير منه وفي المشاركة 15

فماذا بقي !!!!

وانا لا نريد اغلاق الموضوع فقد ياتي احد خبراؤنا او احد الاعضاء ويشارك بشي نستفيد منه جميعا

تحياتي واشواقي