nssj قام بنشر أغسطس 3, 2021 مشاركة قام بنشر أغسطس 3, 2021 الإخوة الكرام .. في الملف المرفق كود لاستبدال بعض الحروف بحروف أخرى في مربع البحث (searchtext) وأنا لست من أهل الخبرة في كتابة الأكواد، ولكن هذا الكود محاولة تجميعية من هنا وهناك Private Sub search_go_Click() Dim str As String searchtext.SetFocus str = Me.searchtext.Text Me.searchtext = Replace(str, "أ", "ا") Me.searchtext = Replace(str, "إ", "ا") Me.searchtext = Replace(str, "آ", "آ") Me.searchtext = Replace(str, "ة", "ه") Me.searchtext = Replace(str, "ى", "ي") Me.searchtext = Replace(str, "ؤ", "و") والمشكلة فيه أنه لا يستبدل كل هذه الأحرف‘ إنما يستبدل الأحرف الموجدة في آخر جملة من الكود فقط ويتجاهل ما قبلها فما هي الصيغة الصحيحة لتأدية المطلوب واستبدال جميع هذه الأحرف وللتوضيح .. هذا الاستبدال في مربع البحث (searchtext) يجعل كود البحث يعمل بشكل أدق في المساواة بين أشكال الهمزة (أ إ آ ا) ونحوها عند البحث .. Replace.accdb رابط هذا التعليق شارك More sharing options...
nssj قام بنشر أغسطس 6, 2021 الكاتب مشاركة قام بنشر أغسطس 6, 2021 الإخوة الكرام .. أفادني مؤخرا أحد الأخوة ممن عنده بعض المعلومات عن أكسس بتعديل الكود ليصبح هكذا: Dim str As String searchtext.SetFocus str = Me.searchtext.Text Me.searchtext = Replace(str, "أ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "إ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "آ", "ا") str = Me.searchtext.Text Me.searchtext = Replace(str, "ة", "ه") str = Me.searchtext.Text Me.searchtext = Replace(str, "ى", "ي") str = Me.searchtext.Text Me.searchtext = Replace(str, "ؤ", "و") وأصبح الكود يعمل بشكل جيد ويستبدل جميع الحروف المطلوبة ولكن هل توجد صيغة تختصر هذا السطر المكرر، أم أن هذه أفضل صياغة للكود 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أغسطس 6, 2021 أفضل إجابة مشاركة قام بنشر أغسطس 6, 2021 جرب هذا الاختصار Dim str As String searchtext.SetFocus str = Me.searchtext.Text str = Replace(str, "أ", "ا") str = Replace(str, "إ", "ا") str = Replace(str, "آ", "ا") str = Replace(str, "ة", "ه") str = Replace(str, "ى", "ي") Me.searchtext = Replace(str, "ؤ", "و") بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
nssj قام بنشر أغسطس 6, 2021 الكاتب مشاركة قام بنشر أغسطس 6, 2021 جزاك الله خيرا أخي الكريم .. الاختصار يعمل بشكل جيد .. وأصبح كود البحث يتجاهل الفروق بين الحروف المطلوبة 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان