Access组合框搜索异常：运行时错误3464数据类型不匹配

嘿，这个错误3464我太熟了——本质就是SQL语句里的数据类型不匹配搞的鬼！咱们一步步拆解问题，搞定它：

核心原因分析 #

你写的代码里把Me.ComName的值用单引号包裹起来，当成字符串去匹配tbl_Order里的AssignedTo字段。但大概率AssignedTo是数字类型（比如员工ID、自动编号/长整型字段），这时候把数字当成字符串来比较，Access就会抛出“数据类型不匹配”的错误。

针对性解决方案 #

情况1：AssignedTo是数字类型（最常见场景） #

直接去掉单引号，让数值和数字字段匹配就行：

Private Sub ComName_Click()
    Dim EmName As String
    ' 去掉单引号，直接用数值匹配数字字段
    EmName = "SELECT * FROM tbl_Order WHERE AssignedTo = " & Me.ComName
    Me.SearchForm.Form.RecordSource = EmName
    Me.SearchForm.Form.Requery
End Sub

如果想更规范（避免潜在的SQL注入风险，虽然Access里风险低，但好习惯值得养成），可以用参数查询：

Private Sub ComName_Click()
    Dim qdf As QueryDef
    Dim strSQL As String
    
    strSQL = "SELECT * FROM tbl_Order WHERE AssignedTo = [pAssignedTo]"
    
    ' 创建临时查询定义
    Set qdf = CurrentDb.CreateQueryDef("", strSQL)
    qdf.Parameters("[pAssignedTo]") = Me.ComName
    
    ' 赋值给子窗体
    Me.SearchForm.Form.RecordSource = qdf.SQL
    Me.SearchForm.Form.Requery
    
    ' 清理对象
    Set qdf = Nothing
End Sub

情况2：AssignedTo确实是文本类型 #

如果确认AssignedTo是文本字段，那问题大概率出在组合框的绑定列上：

• 打开组合框的属性窗口，找到绑定列（Bound Column），检查它是不是指向存储员工姓名的列（比如组合框行来源是SELECT ID, EmployeeName FROM tbl_Employees，那绑定列要设为2，而不是默认的1）
• 另外，要处理姓名里包含单引号的情况（比如O'Neil），这时候需要转义单引号：

Private Sub ComName_Click()
    Dim EmName As String
    
    If Not IsNull(Me.ComName) Then
        ' 转义文本里的单引号，避免SQL语法错误
        EmName = "SELECT * FROM tbl_Order WHERE AssignedTo = '" & Replace(Me.ComName, "'", "''") & "'"
        Me.SearchForm.Form.RecordSource = EmName
    Else
        ' 空值时显示所有记录
        Me.SearchForm.Form.RecordSource = "SELECT * FROM tbl_Order"
    End If
    Me.SearchForm.Form.Requery
End Sub

额外小优化：处理空值情况 #

不管哪种类型，都建议加个空值判断，避免用户没选值时触发错误，直接显示所有记录就好，上面的代码已经包含这个逻辑啦。

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