Replace function not working in Access

Can't help you with the dll, but you might rewrite your own version of Replace, using:

    Join(Split(pstrString,";"),"")
for
    Replace(pstrString, ";", "")

cheers!

This response will be of no help to you but I'm just clarifying the situation.
From the wording of your Q I am assuming that you have a vb6 application which is using a Jet (Access, if you like) database.

If you are referring to this article:
http://support.microsoft.com/default.aspx?scid=kb;en-us;189448
then it clearly states that the problem is resolved in VB6.
It also indicates that the problem is not specific to the Replace function but applies to all functions and that it is the use of functions which is the problem, not the use of special characters.

Pete

Dear harfang
One of my query is like this,

UPDATE Chemistlist SET Address2 = replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace(replace([Address2],"-"," "),"("," "),")"," "),"."," "),"`"," "),"'"," "),"*"," "),"["," "),"]"," "),","," "),"#"," "),"'"," "),"$"," "),'"'," "),"®"," ");

and I have nearly 25 similar queries.
The way you told me to change the queries will take a lot of time.

Can u suggest some shortcut

Sachin

You will need a custom VB function. There are several ways to do this, of course. The following is one I used to create file names from various string keys. (One client *did* in fact have a function key "CON" and "con.html" is a very bad name for writing to :)


''CleanName function''
'
' Converts a string from the standard ascii table (commented) to a simplified
' 7-bit table with all "dangerous" characters removed and in lower case.
'
Function CleanName(ByVal pstrName As String) As String
    ' "________________________________ !"#$%&'()*+,-./0123456789:;<=>?"
    ' "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
    ' "€‚ƒ„…†‡ˆ‰Š‹ŒŽ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿"
    ' "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖ×ØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõö÷øùúûüýþÿ"
' just clean:
'Const cClean As String _
    = "____________________________________S_-_()___-__0123456789______" _
    & "_ABCDEFGHIJKLMNOPQRSTUVWXYZ(_)___abcdefghijklmnopqrstuvwxyz(_)-_" _
    & "E__f______S_O_________---_s_o__Y__cLxY-S_Ca_(-R-o-23-mP__10)____" _
    & "AAAAAAACEEEEIIIIDNOOOOOxOUUUUY_saaaaaaaceeeeiiii_nooooo-ouuuuy_y"
' also lcase:
Const cClean As String _
    = "____________________________________s_-_()___-__0123456789______" _
    & "_abcdefghijklmnopqrstuvwxyz(_)___abcdefghijklmnopqrstuvwxyz(_)-_" _
    & "e__f______s_o_________---_s_o__y__clxy-y_ca_(-r-o-23-mp__10)____" _
    & "aaaaaaaceeeeiiiidnoooooxouuuuy_saaaaaaaceeeeiiii_nooooo-ouuuuy_y"

    Dim strClean As String
    Dim intPos As Integer
   
    ' Convert all chars:
    For intPos = 1 To Len(pstrName)
        strClean = strClean _
            & Mid$(cClean, Asc(Mid$(pstrName, intPos, 1)) + 1, 1)
    Next intPos
   
    ' MS-DOS won't like those very much...
    Select Case UCase$(strClean)
        Case "CON", "NUL" _
            , "LPT1", "LPT2", "LPT3", "LPT4" _
            , "COM1", "COM2", "COM3", "COM4"
            strClean = strClean & "_"
    End Select
   
    CleanName = strClean

End Function

I really appreciate your efforts to help me out. I am really amazed to see the kind of help EE is offering.
Thanks a lott Dear "harfang",
I will just try this solution right now.

Before you loose any time: in VB, open "Tools / References". If one of them is marked as MISSING, this could be the cause of the problem. Of course I still suggest a custom replace function in your case :)
Cheers

The Clean Name function is not working instead it corrupted my data.
Dont Mind I had taken backup before using that.
Its really "dangerous" yaar.
But cant the system be corrected to use the existing function.