Hello all,
I found this on this forum but it is a DAO version and my employer desactivated the DAO (they want now the very last version). And moreover I'm not sure how to convert it into ADO.
My wish today (between 2 sneezings):
convert all characters É and È into a E (the same without accent)
The field I need to lookup at is in a table.
Example (this is a french language address not supported by our server, so why.)
RUE DE LA LIBÉRATION 5
should be
RUE DE LA LIBERATION 5
table = "details", field = "address"
in the same DB
Looked simple but... hey. Sorry
So has anyone can share a solution? This function/module will be activated through a menu or a form button.
thanks in advance!
Chris
I found this on this forum but it is a DAO version and my employer desactivated the DAO (they want now the very last version). And moreover I'm not sure how to convert it into ADO.
Code:
Function ReplaceAccents(strTextToReplace As String, strTextToUse As String)
Dim qdf As DAO.QueryDefs
Dim strSQL As String
For Each qdf In CurrentDb.QueryDefs
strSQL = qdf.SQL
If InStr(1, strTextToReplace, strSQL) > 0 Then
strSQL = Replace(strSQL, strTextToReplace, strTextToUse)
qdf.SQL = strSQL
qdf.Close
End If
Next
End Function
My wish today (between 2 sneezings):
convert all characters É and È into a E (the same without accent)
The field I need to lookup at is in a table.
Example (this is a french language address not supported by our server, so why.)
RUE DE LA LIBÉRATION 5
should be
RUE DE LA LIBERATION 5
table = "details", field = "address"
in the same DB
Looked simple but... hey. Sorry

So has anyone can share a solution? This function/module will be activated through a menu or a form button.
thanks in advance!
Chris