02-11-20, 02:13 PM
السلام عليكم ورحمة الله وبركاته
عندي هذه الدالة ReplaceString:
كيف أقوم باستخدامها ضمن جملة الاستعلام التالية:
عندما أستخدم الدالة Replace لا تحدث مشكلة:
ولكن عندما أستخدم دالتي الجديدة ReplaceString تظهر لي رسالة خطأ:
عندي هذه الدالة 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 تظهر لي رسالة خطأ:
(دالة غير معرفة في التعبير).
فما الحل أيها الإخوة؟
فاعلم أنه لا إله إلا الله