تعديل علي ملف بحث

[Akram Galal]

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

الملف الموجود بالمرفقات للعلامة عبد الله بشقير

ووظيفته البحث

المطلوب أن يكون البحث مطابق تماما لما هو موجود بخانة البحث

مثلاً إذا بحثا عن الرقم 1

يظهر في ناتج البحث الرقم 1 فقط لاغير

ولا يظهر الرقم 11 و 12 و 13 و.....

وجزاكم الله خيراً .

 

وإليكم المرفقات

 

بحث بفورم ممتاز.rar

[عبدالله باقشير]

السلام عليكم

 

في كود البحث ButtonFind_Click

 

غير هذه السطر

ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1

بهذا السطر

ib = CStr(.Cells(R, MyColmnFind)) = CStr(Me.TextFind)

في امان الله

[edkawy]

السلام عليكم    الاستاذ الكبير / عبد الله باقشير   

 

جزاك الله خير على سعه صدرك و مجهودك مع الاعضاء و زادك الله من علمه و نفع بك

 

  اذا تكرمت عندى مشكله بسيطه فى الكود , ومش عارف ايه السبب , انا عملت صورة فى الملف المرفق توضح المشكله , برجاء المساعده عندما يتسنى لك الوقت  

 

جزاك الله خير        

New Microsoft Word Document.zip

[Akram Galal]

حفظك الله يا أ/ عبد الله

وزادك من فضلة

وجعلك عوناً للجميع