MS-Access 2016查询字符串条件不匹配问题求助

核心问题定位 #

这是典型的不可见字符干扰导致的字符串匹配失败：两个表的[Original Project]字段看似内容一致，实际包含空格、回车、制表符或其他非打印ASCII字符（比如Chr(0)空字符、全角/半角符号差异），直接导致精确匹配和Like通配符失效，尤其是长字符串的匹配异常。

验证步骤 #

1. 检查字符串长度差异
   执行SQL查看两个表中目标字段的实际长度，若长度不一致则说明存在隐藏字符：

   -- 查看tProjects中目标字符串长度
   SELECT Len([Original Project]) AS StrLength FROM tProjects WHERE [Original Project] LIKE "*Mike Simpson*";
   -- 查看tActivity中目标字符串长度
   SELECT Len([Original Project]) AS StrLength FROM tActivity WHERE [Original Project] LIKE "*Mike Simpson*";
   

2. 对比字符编码细节
   用VBA代码输出每个字符的编码，定位差异字符：

   Sub CheckStringCharacters()
       Dim rs As Recordset, str As String, i As Integer
       ' 检查tProjects字段
       Set rs = CurrentDb.OpenRecordset("SELECT [Original Project] FROM tProjects WHERE [Original Project] LIKE '*Mike Simpson*'")
       If Not rs.EOF Then
           str = rs![Original Project]
           Debug.Print "tProjects字段字符编码："
           For i = 1 To Len(str)
               Debug.Print i & ": " & AscW(Mid(str, i, 1))
           Next i
       End If
       ' 检查tActivity字段
       Set rs = CurrentDb.OpenRecordset("SELECT [Original Project] FROM tActivity WHERE [Original Project] LIKE '*Mike Simpson*'")
       If Not rs.EOF Then
           str = rs![Original Project]
           Debug.Print "tActivity字段字符编码："
           For i = 1 To Len(str)
               Debug.Print i & ": " & AscW(Mid(str, i, 1))
           Next i
       End If
       rs.Close
   End Sub
   

   运行后查看VBA立即窗口，对比两个字符串的编码值，即可找到差异位置。

解决办法 #

1. 清理现有数据中的隐藏字符 #

执行SQL更新语句，去除首尾空格、空字符、换行符等：

-- 清理tProjects字段
UPDATE tProjects 
SET [Original Project] = Trim(Replace(Replace(Replace([Original Project], Chr(0), ""), Chr(10), ""), Chr(13), ""));
-- 清理tActivity字段
UPDATE tActivity 
SET [Original Project] = Trim(Replace(Replace(Replace([Original Project], Chr(0), ""), Chr(10), ""), Chr(13), ""));

若存在全角/半角字符差异（比如全角冒号），可添加对应替换规则，例如Replace([Original Project], ChrW(65288), "(")。

2. 优化导入流程（避免后续重复） #

导入文本文档时，在VBA代码中加入预处理逻辑，提前清理字符串：

Dim rawStr As String, cleanStr As String
rawStr = ' 从文本文件读取的原始字符串
cleanStr = Trim(Replace(Replace(Replace(rawStr, Chr(0), ""), Chr(10), ""), Chr(13), ""))
' 将cleanStr写入数据库字段

3. 临时兼容查询逻辑 #

若暂时无法修改数据，可在查询中直接加入清理函数：

SELECT tProjects.[Original Project]
   , tActivity.[Original Project]
FROM tProjects 
INNER JOIN tActivity ON tProjects.ID = tActivity.ProjectID
WHERE 
    Trim(Replace(Replace(tProjects.[Original Project], Chr(0), ""), Chr(13), "")) 
    = Trim(Replace(Replace(tActivity.[Original Project], Chr(0), ""), Chr(13), ""));

额外排查点 #

• Unicode压缩属性：确保两个表的[Original Project]字段Unicode压缩属性一致（表设计视图→字段属性→常规→Unicode压缩）。
• 表排序规则：统一两个表的排序规则（表设计视图→属性→排序规则），避免因大小写、字符宽度差异导致匹配失败。

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