( تمت الفائدة ) أمثلة على البحث بالنموذج - ( عنوان معدل )

[GNMQ8]

السلام عليكم ..

إخواني ، بعد بحث طويل في الانترنت ، وفي المواقع الأجنبية .. وجدت الدالة اللي طال البحث عنها :D

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

يتم البحث عنها في السجلات ، ولكن !!

المشكلة التي واجهتني عندما أقوم بالبحث عن قيمة غير متوفرة في السجلات ، يتم مسح كل شيء في الفورم ، من Text Box و أزرار وغيرها ، لا يبقى إلى الإطار ..

هل هناك طريقة تُظهر لي رسالة تقول أن الشيء الذي تبحث عنه غير موجود ؟!

وهذه هي الدالة ، وهي تعمل لدي 100%

Dim stfilter As String

stfilter = stfilter & "([المراد البحث فيه] Like ""*" & Me.Search_Box & "*"")"

Forms![Form_Name].Filter = stfilter

Forms![Form_Name].FilterOn = True

أرجو إفادتي ، وشكراً

تم تعديل نوفمبر 28, 2009 بواسطه GNMQ8

[GNMQ8]

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

في الملف المرفق

عملية بحث بزر ومربع نص.rar

[رياض الراوي]

أخي GNMQ8 :

أقدم لك طريقة للبحث بصندوق إدخال(Input Box) مع رسالة تنبيه بعدم وجود السجل الذي تبحث عنه.وهي أقرب إلى المثال الأجنبي من الطريقة التي وجدتها في المنتدى

مع التحية

InputBoxSearch.rar

[أبا عمر]

ينقل 

.......