[السندبااد]

السلام عليكم ورحمة الله وبركاته

عندي هذه الدالة ReplaceString:

كود :

 Public Function ReplaceString(In_Text As String) As String
       Dim X As Long
       Dim strChar As String
       Dim strReturn As String
       strReturn = ""

       For X = 1 To Len(In_Text)
           strChar = Mid(In_Text, X, 1)
           Select Case strChar
               Case "ال"
                   strChar = ""
               Case Chr(243), Chr(240), Chr(245), Chr(246), Chr(242), Chr(241), Chr(248), Chr(250)
                   strChar = ""
           End Select
           strReturn = strReturn & strChar
       Next
       ReplaceString = strReturn
   End Function

 
كيف أقوم باستخدامها ضمن جملة الاستعلام التالية:

كود :

daReplace = New OleDbDataAdapter("Select * From TBooksNames Order By ReplaceString(TitleAuthor)", ConnReplace)

عندما أستخدم الدالة Replace لا تحدث مشكلة:

كود :

daReplace = New OleDbDataAdapter("Select * From TBooksNames Order By REPLACE(TitleAuthor, 'ال', '')", ConnReplace)

ولكن عندما أستخدم دالتي الجديدة ReplaceString تظهر لي رسالة خطأ:

(دالة غير معرفة في التعبير).

فما الحل أيها الإخوة؟