如何在Access中创建VBA函数来替换表中的任何特殊字符

Function ReplaceSpecialChars(strInput As String) As String
    Dim strSpecialChars As String
    Dim i As Integer
    
    ' 定义需要替换的特殊字符
    strSpecialChars = "!@#$%^&*()_+|~=`{}[]:"";'<>?,./"
    
    ' 循环遍历字符串中的每个字符
    For i = 1 To Len(strInput)
        ' 检查字符是否为特殊字符
        If InStr(strSpecialChars, Mid(strInput, i, 1)) > 0 Then
            ' 如果是特殊字符，则替换为空格
            Mid(strInput, i, 1) = " "
        End If
    Next i
    
    ' 返回替换后的字符串
    ReplaceSpecialChars = strInput
End Function

ReplaceSpecialChars([原始字段名])