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

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

السلام عليكم

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

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

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

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

Database.accdb

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

[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("أجمل إنسان إللي معه ربطة فلوس وأعطى زملائه كلهم")
النتيجة : ==> اجمل انسان اللي معه ربطه فلوس واعطي زملائه كلهم

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

الان, 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("أجمل إنسان إللي معه ربطة فلوس وأعطى زملائه كلهم")
النتيجة : ==> اجمل انسان اللي معه ربطه فلوس واعطي زملائه كلهم

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

[kkhalifa1960]

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

Database.rar

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

السلام عليكم

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

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

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

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

[Moosak]

هذه فكرتي 🙂 ..

Database.rar

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

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

السلام عليكم

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

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

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

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

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

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

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

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

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

17 ساعات مضت, أبو إبراهيم الغامدي said:

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

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

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

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

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

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

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

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

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

18 ساعات مضت, Moosak said:

هذه فكرتي 🙂 ..

Database.rar 31.05 kB · 9 downloads

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

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

السلام عليكم 

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

تجاوز الحروف.rar

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

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

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