DLookup格式困惑：执行简单DLookup时遇数据类型不匹配错误

嘿，这个DLookup的类型不匹配问题我太熟了，来帮你捋清楚根源和解决办法！

首先，你遇到的「Data Type mismatch in expression」错误，核心原因是DLookup条件里的字段类型和你传入的参数类型/格式不匹配。

从你描述的ID格式（比如1234501/01/2018 13:00:25，是数字+日期时间的混合格式）来看，这个ID字段绝对是文本类型——毕竟数字或日期时间类型根本存不了这种混合结构的内容。那你的代码问题大概率出在这几个地方：

可能的错误点及解决步骤 #

• 错误1：字段类型判断错误
  先去确认tbl_Likes表的设计：打开表设计视图，检查ID字段的「数据类型」是不是「文本」。如果被误设成了数字或日期时间，那这就是问题根源——赶紧改成文本类型，不然这种混合格式的ID根本存不对。

• 错误2：参数类型不匹配
  如果ExploreID1不是字符串类型（比如是数值、日期时间变量，或者从非文本控件获取的值），直接拼接进SQL条件就会触发类型不匹配。解决办法是把ExploreID1转成字符串：

  Dim strExploreID1 As String
  strExploreID1 = CStr(ExploreID1) ' 强制转成字符串
  ExploreMatch = DLookup("[ID]", "[tbl_Likes]", "[ID] = '" & strExploreID1 & "'")
  

• 错误3：特殊字符导致SQL语法错误
  如果你的ID里刚好包含单引号（虽然你的示例里没有，但要防患于未然），直接拼接会截断SQL语句，也会触发类似的错误。这时候要把单引号替换成双单引号：

  Dim strExploreID1 As String
  strExploreID1 = Replace(CStr(ExploreID1), "'", "''") ' 替换单引号
  ExploreMatch = DLookup("[ID]", "[tbl_Likes]", "[ID] = '" & strExploreID1 & "'")
  

更安全的替代方案：参数化查询 #

其实拼接SQL字符串很容易踩坑，推荐用参数化查询的方式，完全避免类型不匹配和SQL注入的风险：

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
Dim ExploreMatch As Variant

Set db = CurrentDb
' 创建临时参数查询
Set qdf = db.CreateQueryDef("", "SELECT [ID] FROM [tbl_Likes] WHERE [ID] = [pID]")
' 给参数赋值，自动处理类型匹配
qdf.Parameters("[pID]") = ExploreID1

Set rs = qdf.OpenRecordset(dbOpenDynaset)
' 检查是否有匹配结果
If Not rs.EOF Then
    ExploreMatch = rs("[ID]")
Else
    ExploreMatch = Null ' 没有匹配时返回Null，你可以改成自己需要的默认值
End If

' 清理对象
rs.Close
Set rs = Nothing
Set qdf = Nothing
Set db = Nothing

按照上面的步骤检查修改，应该就能解决你的类型不匹配问题啦！

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