ياعيني عليك بالفعل المشكلة انحلت 😀
هذا الكود الذي استعملته
Private Sub txt_title_AfterUpdate()
Dim searchtext As String
searchtext = Replace(txt_title.Text, "ا", "[ءاآإأ]")
txt_title.Value = searchtext
End Sub
التنسيق العربي ملخبط قليلا ولكنه يستبدل كل "ا" في النص ب ءاآإأ بين قوسين [] وبالتالي الاستعلام يعمل بالشكل المطلوب.
بقي ان اعيد استخدام دالة الاستبدال لعمل التغيير مع بقية الحروف
الحل اسهل بكثير مما تصورت الحقيقة.
لكن بقي تعديل صغير في كودي, وهي ان النص في مربع البحث يتم استبداله بالنص الجديد الذي يحتوي على التعديلات, هل هناك طريقة لجعل الدالة تعمل "خلف الكواليس" بشكل او بآخر؟