Replace Special Chars at Attr Level - vba

Question

My app receives third party data.
How can I replace special characters at the column level?
I am mostly concerned about (') and (") (Char 34 & Char 39), but would like to handle anything outside the normal a-z, A-Z, 0-9 character sets.
There are 6-10 attrs for which I would apply this type of replace().
Simplest form:
Public Function new_RemoveSpecialChars(strAttr) As String
Dim db As Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "UPDATE MatchedTb " & _
"SET MatchedTb." & strAttr & " = Replace(Nz([" & strAttr & "]),Chr(39),Chr(39) & Chr(39));"
db.Execute strSQL
End Function
Can I concatenate many compare/replace strings?
Is there a better, more efficient approach?

Answer 1

Is the data a external file? (say csv, xml etc).
I would pre-process the file BEFORE you import the data. And you can well do that pre-processing the data from Access. So, I recommend you open the data file - process the data, save the file. You THEN import the file.
#Edit
Since you have to process the data after import?
I recommend you process the data like this:
Dim sFields As String
Dim sField As Variant
Dim rstData As DAO.Recordset
Dim strSql As String
sFields = "City,Address,CompanyName"
sField = Split(sFields, ",")
Dim sF As Variant
Dim strFromChar As String
strFromChar = Chr(40)
Dim strToChar As String
strToChar = Chr(39)
strSql = "select * from MatchedTb"
Set rstData = CurrentDb.OpenRecordset(strSql)
Do While rstData.EOF = False
rstData.Edit
For Each sF In sField
If Nz(rstData(sF), "") <> "" Then
rstData(sF) = Replace(rstData(sF), strFromChar, strToChar)
End If
Next sF
rstData.Update
rstData.MoveNext
Loop
rstData.Close
So using a recordset will eliminate the need to concatenate strings, and also allows you to skip/test for a null and not process.