بحث بدون فواصل بحث بدون فراغات

[فراس رؤوف]

مرحبا اريد من مربع النص اظهار نتائج البحث مع تجاهل الفراغات الي ال space مثلا( مكتب مدير البلدية ) او( مكتبمدير البلدية  ) فانه لا يظهر كلا الحالتين اي لا  يقوم بالتفريق بين الفراغات في مكتب مدير او مكتبمدير المثال المرفق 

b.rar

[Shivan Rekany]

اتفضل اليك هذا الحل

اولا في الاستعلام انا اضفت لكل حقل حقل اخر بهذه الصيغة

b1: Replace(Nz([b];"");" ";"")

لكي يحذف جميع الفراغات للحقل

وبعدين اضفت مربع نصي في النموذج باسم text44
وعطيت هذا الكود لمربع البحث text0 بعد تحديث 

Private Sub TEXT0_AfterUpdate()
Me.Text44 = Replace(Nz(Me.TEXT0, ""), " ", "")
End Sub

وحذفت الشرط في الاستعلام من الحقول الاصلية

وعطيت الشرط للحقول اللي انا عملته بدو مسافات 

وهذا هو الشرط

Like "*" & [Forms]![FORM1]![Text44] & "*"

وايضا اضفت لزر تصفير البحث هذا الكود

Private Sub Command13_Click()
Me![TEXT0] = Null
Me![Text44] = Null
Me.Requery
End Sub

والكود زر البحث خليت كما هو

Private Sub COMMAND2_Click()
Me.Requery
End Sub

والان اكتب النص بمسافة او بدون مسافة سيتم حذف المسافات ويبحثه

اليك قاعدة بياناتك بعد تعديل

b.rar

[فراس رؤوف]

شكرا جزيلا مع التحية 

[فراس رؤوف]

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