diacritics and like operator in ACCESS 2007+ Data type mismatch in ...

Question

1.00/5 (1 vote)

See more:

Hello
I wrote a function for diacritics in ACCESS 2007 which it is:

VB

Function xx(inp As String) As String
Dim i As Integer
Dim temp As String
For i = 1 To Len(inp)
ch = Mid(inp, i, 1)
If ch = "َ" Then
xx = Replace(inp, ch, "")
ElseIf ch = "ِ" Then
xx = Replace(inp, ch, "")
ElseIf ch = "ُ" Then
xx = Replace(inp, ch, "")
ElseIf ch = "ّ" Then
xx = Replace(inp, ch, "")
ElseIf ch = "ً" Then
xx = Replace(inp, ch, "")
ElseIf ch = "ٌ" Then
xx = Replace(inp, ch, "")
ElseIf ch = "ٍ" Then
xx = Replace(inp, ch, "")
ElseIf ch = "إ" Then
xx = Replace(inp, ch, "ا")
ElseIf ch = "أ" Then
xx = Replace(inp, ch, "ا")
ElseIf ch = "ؤ" Then
xx = Replace(inp, ch, "و")
End If
Next i
End Function

I have a table, Table1, which has two columns, Main_EW and Code.
I wrote this SQL Query in ACCESS 2007:

SQL

SELECT Table1.Main_EW
FROM Table1
WHERE (((xx([Main_EW])) Like "*جلز*"));

When "Main_EW" is in the first column of Table1, xx([Main_EW]) gives results and all things are ok. But when "Main_EW" is in the second column of Table1, xx([Main_EW]) gives Error which is Data type mismatch in criteria expression, why?

Posted 3-Nov-14 20:54pm

Member 10912474

Updated 3-Nov-14 21:10pm

Maciej Los

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2014-11-03T21:37:00

It should happen no matter of order of fields in a SELECT statement. Why? Your function is written in improper way.

Have a look at example:

VB

Option Explicit

Sub Test()

MsgBox RetNewString("AMADEUS") & vbCr & vbCr & RetNewString2("AMADEUS")

End Sub


Function RetNewString(inp As String) As String
Dim i As Integer

For i = 1 To Len(inp)
    If Mid(inp, i, 1) = "A" Then
        RetNewString = Replace(inp, Mid(inp, i, 1), "B")
    ElseIf Mid(inp, i, 1) = "D" Then
        RetNewString = Replace(inp, Mid(inp, i, 1), "E")
    End if
Next

End Function

'this one should returns proper result, but it's not optimized!
Function RetNewString2(ByVal inp As String) As String
Dim i As Integer, sRetVal As String

sRetVal = inp
For i = 1 To Len(sRetVal)
    If Mid(sRetVal, i, 1) = "A" Then
        sRetVal = Replace(sRetVal, Mid(sRetVal, i, 1), "B")
    ElseIf Mid(sRetVal, i, 1) = "D" Then
        sRetVal = Replace(sRetVal, Mid(sRetVal, i, 1), "E")
    End if
Next

RetNewString2 = sRetVal

End Function

Do you see the difference?

I'd suggest you to forget about for loop. Why? Simple Replace should be enough, becasue Replace function changes every occurance of searched string. See the documentation[^].

VB

Function ATM(ByVal inp As String) As String

inp = Replace(inp, "SearchedChar1", "ReplaceWithChar1")
inp = Replace(inp, "SearchedChar2", "ReplaceWithChar2")
'and so on...
ATM = inp

End Function