'清除某个字段中的某个字符,可一次指定多个字符
'假如要清除表1的字段1中所有的","号"."号和"?"号:ReplaceCharacter "表1", "字段1", ",.?"
'
Public Function ClearCharacter(TableName As String, FieldName As String, strFind As String) As Boolean
Dim stTmp As String
Dim i As Integer
For i = 1 To Len(strFind)
stTmp = Mid(strFind, i, 1)
CurrentDb.Execute "Update [" & TableName & "] Set [" & FieldName & "]=Replace([" & FieldName & _
"],'" & stTmp & "','') Where [" & FieldName & "] Like '*" & stTmp & "*'"
Next