تجاهل همزة الألف

موضوع منقول من المنتدي القديم

الكاتب فينوس

تجاهل همزة الألف ؟؟

كيف يمكن تجاهل همزة الألف ؟؟

لدي نموذج للبحث كيف يمكنني أن أجعل أكسس يتجاهل همزة الألف عند البحث عن سجل أي مثلاً يعتبر "أحمد" مثل "احمد" علماً أنه يمكنني ذلك من خلال مربع خيارات أكسس 2002 و لكنني أريدها على أكسس 2000

الكاتب: فينوس بتاريخ: 9/26/2002 12:33:08 PM

------------------------------

بحثت بشكل سريع ولم أجد شيء

ولكن ما رأيك أن تجرب استخدام التصحيح التلقائي

أدوات => تصحيح تلقائي

بحيث يحول لك احمد إلى أحمد

-------------------------------------------------------

الكاتب: ابوحمود بتاريخ: 9/26/2002 8:05:45 PM

-------------------------------------------------------------------

محاولة

جرب هذه الطريقة :

http://www.pcpages.com/harith77/NewStrSearch2.zip

وهي باستخدام الكود التالي :

Function ForSearch(Astr As Variant) As String
Dim I As Integer
Dim L As String, NewStr As String
If Nz(Astr, "") = "" Then Exit Function
Astr = CStr(Astr)
For I = 1 To Len(Astr)
L = Mid(Astr, I, 1)
Select Case Asc(L)
Case 194, 195, 197: L = Chr(199)
Case 201: L = Chr(229)
Case Else:   L = L
End Select
NewStr = NewStr & L
Next
ForSearch = NewStr
End Function

--------------------------------------------------------------------------------

حارث

الكاتب: حارث