البحث عن التشابهات مشكلة لابد لها من حل

[mahmoudlabana]

بــــســــم الله الرحـــمــــن الرحــيـــم

ممكن مساعدة انا عملت نموذج بحث بالاسم لكن عاوز البحث يكون بالتشابه او بجذر الكلمة الى بستخدمها فالبحث يعني ابحث عن سيد يجبلي السيد وسيد والعكس مثلا يا ريت لو حد عنده اقتراح نتشاور انا لقيت حل ليها لكن في فيجوال بيسك دا لينك ممكن يساعد يا ريت حل ليها ف الاكسس لانها مشكلة كبيرة ودورت كتير مش لاقي ليها حل ع النت في اكسس والي موجودة فالمنتدى موجودة بحث عن التشابهات ب ا أ إ آ و ة ه و ي ى و التشكيل بس مفيش عن الكلمات المتشابهة :) 

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

[ابو ياسين المشولي]

راجع هذا الموضوع

اضغط هــنــا

[mahmoudlabana]

مفهوش حل انا عاوزز ابحث بالكلمة او بجملة كاملة لو ليها تشابه يظهر مش ابحث بجزء بس من الكلمة علشان تظهر 
يعني اعمل مربع نص بحث بس اخليه يعمل بحث باحرف البدل عشان يظهر التشابهات 

بحث بمضمون نص يعني لو بحثت عن محمد السيد عبدالمجيد يظهر محمد سيد عبدالمجيد و محمد السيد و محمد السعيد عبدالحميد 

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

Search.rar

[أبوبسمله]

في ٢٢‏/١٠‏/٢٠١٩ at 03:16, mahmoudlabana said:

بــــســــم الله الرحـــمــــن الرحــيـــم

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

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

السلام عليكم

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

تقبل تحياتى وتمنياتى بالتوفيق

[أبوبسمله]

السلام عليكم

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

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

اهدي لكم طريقة بحث جميلة مثال بطريفة بحث بكلمتين متقاطعتين تعديل بحث فى اى حقل تعديل اخ ناصر لعد غير محدود من المداخلات .rar اهدي لكم طريقة بحث جميلة مثال بطريفة بحث بكلمتين متقاطعتين تعديل بحث فى اى حقل حسب طلب انجوى.rar اهدي لكم طريقة بحث جميلة مثال بطريفة بحث بكلمتين متقاطعتين.rar تعديل اخر مشاركه 29.rar

[mahmoudlabana]

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

ممكن تضيف الكود دا فيه عشان مش عارف اضيفه عشان يتجاهل تشابه ال ي و ى و ا أ إ وة و ه 

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

Function changesearch(Mytxt) As String
   Dim tempstr As String
   tempstr = Nz(Mytxt, "")
   tempstr = ReplaceChar(tempstr, "أإآا")
   tempstr = ReplaceChar(tempstr, "ةه")
   tempstr = ReplaceChar(tempstr, "ىي")
   changesearch = tempstr
End Function

Private Function ReplaceChar(W As String, C As String) As String
   Dim R As Byte
   Dim S As String, I As String
   For R = 1 To Len(W)
      I = Mid(W, R, 1)
      If InStr(C, I) > 0 Then
         S = S & "[" & C & "]"
      Else
         S = S + I
      End If
   Next R
   ReplaceChar = S
End Function

 

adv find test.rar

تم تعديل نوفمبر 1, 2019 بواسطه mahmoudlabana

[أبوبسمله]

العفو اخى

ان شاء الله هحاول قدر الامكان لانى مبتدىء لسه وان شاء الله يساعد احد استذتنا بالتعديل كما ترغب

تقبل تحياتى وبالتوفيق ان شاء الله