MS Access字段自动添重音符号致VBA子程序匹配失败求助

方法1：针对特定字符的快速替换 #

既然你遇到的是固定的DÉCOR被自动替换的情况，最简单的方式就是在匹配前手动把带重音的字符替换成无重音版本：

Dim targetStr As String
' 从数据库读取的带重音字符串
targetStr = "FLOOR AND DÉCOR"
' 替换重音é为e
targetStr = Replace(targetStr, "é", "e")
' 统一转大写避免大小写干扰后匹配
If UCase(targetStr) = UCase("FlOOR AND DECOR") Then
    ' 匹配成功后的执行逻辑
End If

方法2：通用去重音函数（适配所有带重音字符） #

如果后续还会遇到其他带重音的字符，写个通用函数更省心。利用VBA的StrConv函数可以批量去除所有重音：

Function RemoveAccents(inputStr As String) As String
    ' 先转Unicode再转换为无重音的窄字符
    RemoveAccents = StrConv(StrConv(inputStr, vbUnicode), vbNarrow)
End Function

用法示例：

Dim dbStr As String, importedStr As String
dbStr = "FLOOR AND DÉCOR"
importedStr = "FlOOR AND DECOR"

' 去重音+统一大小写后匹配
If UCase(RemoveAccents(dbStr)) = UCase(RemoveAccents(importedStr)) Then
    ' 匹配成功逻辑
End If

方法3：修改Access字段排序规则（无需改动VBA） #

如果不想修改代码，可以直接调整数据表字段的属性，让Access自动忽略重音：

1. 打开数据表的设计视图
2. 选中目标文本字段
3. 在「常规」属性面板里找到「排序规则」
4. 选择General_CI_AI（CI代表忽略大小写，AI代表忽略重音）
   设置完成后，无论是查询还是VBA里的字符串匹配，Access都会自动忽略重音和大小写差异。

注意：如果该字段有索引，修改排序规则后需要重新生成索引，避免索引失效。

内容的提问来源于stack exchange，提问作者Susan