تجاوز (ا أ إ آ ة ه ي ى) في البحث

[محمد التميمي]

السلام عليكم

طيب الله اوقاتكم

في الملف المرفق لدي بحث بالاسم 

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

جزاكم الله الف خير

Database.accdbFetching info...

تم تعديل يناير 27, 2024 بواسطه محمد التميمي

[Moosak]

وعليكم السلام 🙂 

ممكن تستخدم هذا الكود لتوحيد الحروف ثم تبحث :

دالة لاستبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عمليات البحث وتلافي أخطاء الكتابة

الكود:

Public Function ReplaceArabicLetters(strText As Variant) As String
' استبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عملية البحث وتلافي أخطاء الكتابة
' أ،إ،ا =(تحول إلى)=> ا
' ي،ى =(تحول إلى)=> ي
' ـه،ـة =(تحول إلى)=> ـه
' Moosak

    strText = Nz(strText, "")
    strText = Replace(strText, "أ", "ا")
    strText = Replace(strText, "إ", "ا")
    strText = Replace(strText, "آ", "ا")
    strText = Replace(strText, "ى", "ي")
    strText = Replace(strText, "ة", "ه")
    
    ReplaceArabicLetters = strText
End Function

طريقة الاستدعاء (الاستخدام):

ReplaceArabicLetters("أجمل إنسان إللي معه ربطة فلوس وأعطى زملائه كلهم")
النتيجة : ==> اجمل انسان اللي معه ربطه فلوس واعطي زملائه كلهم

[محمد التميمي]

  في 27‏/1‏/2024 at 17:37, Moosak said:

وعليكم السلام 🙂 

ممكن تستخدم هذا الكود لتوحيد الحروف ثم تبحث :

دالة لاستبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عمليات البحث وتلافي أخطاء الكتابة

الكود:

Function ReplaceArabicLetters(strText As String) As String
' استبدال الحروف العربية المتشابهة إلى حرف واحد وذلك لاستخدامها في عملية البحث وتلافي أخطاء الكتابة
' أ،إ،ا =(تحول إلى)=> ا
' ي،ى =(تحول إلى)=> ي
' ـه،ـة =(تحول إلى)=> ـه
' Moosak

    strText = Replace(strText, "أ", "ا")
    strText = Replace(strText, "إ", "ا")
    strText = Replace(strText, "ى", "ي")
    strText = Replace(strText, "ة", "ه")
    
    ReplaceArabicLetters = strText
End Function

طريقة الاستدعاء (الاستخدام):

ReplaceArabicLetters("أجمل إنسان إللي معه ربطة فلوس وأعطى زملائه كلهم")
النتيجة : ==> اجمل انسان اللي معه ربطه فلوس واعطي زملائه كلهم

Expand  

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

[kkhalifa1960]

مشاركة مع استاذ @Moosak تفضل أخي محاولتي بمرفقك بعد التعديل .

Database.rarFetching info...

[محمد التميمي]

السلام عليكم

احترامي وتقديري لاساتذي (kkhalifa1960) الكريم البحث لا يعمل !

اريد تعديل على كود البحث فقط التعديل على النموذج يتعارض مع قاعدة البيانات لدي 

مع فائق الشكر والاحترام...

تم تعديل يناير 28, 2024 بواسطه محمد التميمي

[Moosak]

هذه فكرتي 🙂 ..

Database.rarFetching info...

[أبو إبراهيم الغامدي]

  في 28‏/1‏/2024 at 05:37, محمد التميمي said:

السلام عليكم

احترامي وتقديري لاساتذي (kkhalifa1960) الكريم البحث لا يعمل !

اريد تعديل على كود البحث فقط التعديل على النموذج يتعارض مع قاعدة البيانات لدي 

مع فائق الشكر والاحترام...

Expand  

وعليكم السلام، وأهلا بك @محمد التميمي

أود لفت انتباهك إلى أمرين يتعلقان بطلبك

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد لا تكون هي المطلوبة! 

ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...

[محمد التميمي]

  في 28‏/1‏/2024 at 14:36, أبو إبراهيم الغامدي said:

وعليكم السلام، وأهلا بك @محمد التميمي

أود لفت انتباهك إلى أمرين يتعلقان بطلبك

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع صندوق التحرير والسرد

!. لا يمكن استخدام الحلول التي تقدم بها الزملاء مع مكون البحث عن القيم الفريدة (...,FindFirst) ، لأن هذا الأسلوب يعيد أول قيمة مطابقة، وقد تكون ليس هي المطلوبة! 

ولذا فإن الأمثلة التي وضعها الزملاء مفيدة وعملية ومبنية على تصور صحيح لمسألة تجريد الحروف...

Expand  

السلام عليكم :

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

مع خاص شكري وتقديري اليكم...

[محمد التميمي]

  في 28‏/1‏/2024 at 13:41, Moosak said:

هذه فكرتي 🙂 ..

Database.rar 31.05 kB · 9 downloads

Expand  

شكرا جزيلا استاذي العزيز الان يعمل النموذج بشكل جيد

[يونس محمد الخطابي]

السلام عليكم 

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

تجاوز الحروف.rarFetching info...

[يونس محمد الخطابي]

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

تم تعديل مارس 4, 2024 بواسطه يونس محمد الخطابي
سهوا