بسم الله الرحمن الرحيم
الاخوة الكرام
السلام عليكم ورحمة الله وبركاته
لدي مشكلة كبيرة وارجو مساعدتي فيها
عندي نموذج بحث واستخدم الاكواد التالية لتجاهل الهمزات وحالة الاحرف
Function changesearch(Mytxt) As String
Dim tempstr As String
tempstr = Nz(Mytxt, "")
tempstr = ReplaceChar(tempstr, "أإآاء")
tempstr = ReplaceChar(tempstr, "ةه")
tempstr = ReplaceChar(tempstr, "ىي")
tempstr = ReplaceChar(tempstr, "وؤ")
changesearch = tempstr
End Function
Private Function ReplaceChar(W As String, C As String) As String
Dim R As Byte
Dim S As String, I As String
For R = 1 To Len(W)
I = Mid(W, R, 1)
If InStr(C, I) > 0 Then
S = S & "[" & C & "]"
Else
S = S + I
End If
Next R
ReplaceChar = S
End Function
حاولت كثيرا ان اتغلب على مشكلة المسافات بين الاسماء فلم اوفق لذلك
مثل ( عبدالله و عبدالله - ابو المجد و ابوالمجد - نور الدين - نور الدين)
فارجو مساعدتي للتغلب على هذه المشكلة بحيث اذا بحثت مثلا عن ( عبدالله او عبد الله ) تكون النتجية واحدة
ولكم جزيل الشكر
وكل عام وانتم بخير
تحياتي
