البحث بكلمه مكونه من 3 حروف ومافوق

[محمد مسافر]

الاعزاء جميعاً

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

1- مااريده الان هو ان يكون البحث من حقل الـ Coverage Area ليكون البحث من كلمه او نص مكون من 3 احرف ومافوق ومادون ذلك لايتم البحث وتظهر رساله لاتوجد نتيجه او اي نص اخر لانه حالياً البحث على اي حرف وتطلع النتيجه وانا لا اريد هذا اريد تقييد البحث من كلمه مكونه من 3 احرف ومافوق يتم البحث وعرض النتيجه .

2- هل بالامكان ان يكون البحث اكثر دقه في اختيار حتى الهمزه او الها المربوطه مثلاً بحثت بكلمه حده او حدة تطلع النتيجه  بالتاء العاديه (ه )وبالتاء المربوطه (ة ) كذلك حرف أ بالهمزه ومن دون  ا

 

شكراً للجميع ومرفق لكم الملف .

On air info.rar

تم تعديل أكتوبر 28, 2022 بواسطه محمد مسافر
اضافه

[عمر ضاحى]

13 ساعات مضت, محمد مسافر said:

الاعزاء جميعاً

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

1- مااريده الان هو ان يكون البحث من حقل الـ Coverage Area ليكون البحث من كلمه او نص مكون من 3 احرف ومافوق ومادون ذلك لايتم البحث وتظهر رساله لاتوجد نتيجه او اي نص اخر لانه حالياً البحث على اي حرف وتطلع النتيجه وانا لا اريد هذا اريد تقييد البحث من كلمه مكونه من 3 احرف ومافوق يتم البحث وعرض النتيجه .

2- هل بالامكان ان يكون البحث اكثر دقه في اختيار حتى الهمزه او الها المربوطه مثلاً بحثت بكلمه حده او حدة تطلع النتيجه  بالتاء العاديه (ه )وبالتاء المربوطه (ة ) كذلك حرف أ بالهمزه ومن دون  ا

 

شكراً للجميع ومرفق لكم الملف .

On air info.rar 38.07 kB · 4 downloads

بالنسبه للنقطه رقم 1 

ممكن تعدل كود البحث باستخدام دالة len

If IsNull(Me.searchtext) Or Me.searchtext = "*" Then
MsgBox "لم تقم بكتابة عبارة البحث": Exit Sub
ElseIf Len(searchtext) < 3 Then
MsgBox "عدد الاحرف المكتوبة اقل من 3 احرف": Exit Sub
ElseIf Len(searchtext) >= 3 Then
a1.Visible = True
a2.Visible = True
a3.Visible = True
a4.Visible = True
sq1 = " SELECT [On air 4G info sites].المعرف, [On air 4G info sites].GOV, [On air 4G info sites].Region, [On air 4G info sites].[Coverage Area]  FROM [On air 4G info sites]  WHERE ((([On air 4G info sites].[Coverage Area]) Like ""*"" & [forms]![form1]![searchtext] & ""*""));"
Me.RecordSource = sq1
End If

 

[عمر ضاحى]

اما بخصوص النقطه الثانيه ( لا اعرف لها حل ولم اجربها لكن اقدم لك اقتراح قد ينفع او يفشل)

ممكن تستخدم دالة Select Case و دالة Replace

اذا كان الحرف ى يقوم باستبداله بالحرف ي 

وهذا اقتراح لا اعرف اذا كان هينفع ام لا

 

[محمد مسافر]

شكراً اخي عمر ضاحي النقطه الاولى تمام وهو المطلوب 100% وممكن التحكم بحسب مااريد من عدد احرف ممكن ابحث فيها .

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

[محمد مسافر]

طيب ياشباب اريد الملف المرفق يكون بتنسيق اللغه العربيه (اليمن) من اعدادت المنطقه كمافي الصوره .

[Moosak]

في 28‏/10‏/2022 at 22:58, محمد مسافر said:

2- هل بالامكان ان يكون البحث اكثر دقه في اختيار حتى الهمزه او الها المربوطه مثلاً بحثت بكلمه حده او حدة تطلع النتيجه  بالتاء العاديه (ه )وبالتاء المربوطه (ة ) كذلك حرف أ بالهمزه ومن دون  ا

لكي تنجح معك هذه الخطوة .. الحل الذي يتبادر إلى ذهني هو أنك تقوم بعمل استعلام للبحث ويكون فيه حقل محسوب يتم البحث عن طريقه بحيث يجمع جميع الحقول المراد البحث فيها .. وعن طريق تصميم دالة ( وهذي موضوعها بسيط إن شاء الله ) وظيفتها أن تستبدل جميع الأحرف اللي ممكن الإختلاف فيها مثل ( أ إ ا آ ) وتتستبدل كلها بـ ( ا ) .. أو ( ي ى ) وتستبدل جميعها بـ ( ي ) وهكذا .. وبعدها يتم تطبيق نفس الدالة على النص المراد البحث عنه لكي يتم الاتفاق على البحث عن صيغة واحدة للحرف ..

 

وبهذي الطريقة إن شاء الله يتم حل الإشكال . 🙂