خيارات البحث

[Akram Galal]

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

عندي ملف بحث للأستاذ عبد الله باقشير 

يقوم بالحث بأول حرف من الكلمة

اريد اضافة عدد (2) OptionButton

الأول للبحث بأول حرف من الكلمة

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

جزاكم الله جراً

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

[أ / محمد صالح]

يمكن الوصول لذلك تعديل هذا السطر الذي يحدد بداية النص

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

وتغييره إلى هذا الشرط

If Me.OptionButton2 = 0 Then
ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) >= 1
 Else
ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1
End If

لاحظ أن اكبر من او تساوي 1 تعني في أي مكان في النص

ويفضل جعل القيمة الافتراضية value في خيار بحث بأي حرف تساوي true

بالتوفيق

[زائر]

@أ/ محمد صالح

شكراً جزيلاً لك 

بس لو ممكن توضح لماذا 

يفضل جعل القيمة الافتراضية value في خيار بحث بأي حرف تساوي true 

[أ / محمد صالح]

الشكر لله

يفضل ذلك حتى يكون أحد الخيارين محددا حتى وإن نسي المستخدم تحديد أحدهما

 

[زائر]

@أ / محمد صالح 

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

ولكن عند اختيار معيار البحث (الكود) وتحديد (بحث بأول حرف) وكتابة مثلا رقم 2 في خانة البحث

تكون نتيجة البحث ظهور اي بيان يحتوي علي رقم 2 

كما هو موضح في الصورة

فما هو الحل اذا تكرمت

[أ / محمد صالح]

لا يوجد مشكلة حتى تبحث عن حل

تنفيذ الكود صحيح

وتم جلب كل الأرقام التي أولها 2 فعلا 

لاحظ أن بداية الرقم على اليسار وكل الأرقام في عمود الكود أولها من جهة اليسار 2

بالتوفيق