Microsoft Access DLookup条件不匹配错误及模糊查询实现求助

你的问题出在DLookup的条件字符串拼接逻辑错误，Like关键字的位置、通配符和引号的组合都不对。直接给你修正后的代码，再讲清楚问题点：

修正后的完整代码 #

Dim value As String
Dim textboxValue As String

' 处理输入值中的单引号，避免SQL语法错误
textboxValue = Replace(PSearchBox.Value, "'", "''")

' 正确拼接模糊查询条件
value = DLookup("[Manual]", "PSearchQ", "[Name] Like '*" & textboxValue & "*'")

If Not IsNull(value) Then
    Application.FollowHyperlink Address:=value
Else
    MsgBox "未找到匹配的记录", vbInformation
End If
End Sub

Private Sub PSearchBox_AfterUpdate()
    PSearchList.Requery
End Sub

关键修正点 #

• Like关键字的位置：Like是SQL查询的关键字，必须放在DLookup的第三个参数（条件字符串）内部，不能直接写在VBA的字符串连接操作里。
• 引号与通配符的组合：正确的条件格式是"[Name] Like '*输入值*'"，用单引号包裹通配符和输入值，确保SQL语法合法。
• 单引号转义：添加Replace函数处理输入值中的单引号，防止因为输入内容包含单引号导致SQL语法错误（比如输入O'Neil会直接报错）。
• 空值判断：增加IsNull判断，避免当没有匹配记录时FollowHyperlink因为空值报错。

原代码里的Like " * " & PSearchBox.value & " & * """写法完全不符合SQL语法规范，这就是导致条件不匹配错误的核心原因。

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