مشاركة مع الاستاذ الفاضل ....
يمكن استخدام هذا الفانك وتستدعيه في الاستعلام
Public Function delTshkeel(tshkeel As String)
Dim i As Integer
Dim fld As String, wr As String, spa As String
wr = ""
fld = tshkeel
i = 1
Do While i <= Len(fld)
spa = Mid(fld, i, 1)
If Asc(spa) = 240 Or Asc(spa) = 241 Or Asc(spa) = 242 Or Asc(spa) = 243 Or Asc(spa) = 244 Or Asc(spa) = 245 Or Asc(spa) = 246 Or Asc(spa) = 247 Or Asc(spa) = 248 Or Asc(spa) = 249 Or Asc(spa) = 250 Then
Else
wr = wr & spa
End If
i = i + 1
Loop
delTshkeel = wr
End Function
وتسدعيه في الاستعلام هكذا ....
expr1: delTshkeel([text1])