Access VBA查询客户信息时遇运行时错误'13'类型不匹配的问题排查及结果填充表单文本框咨询

错误原因分析 #

你遇到的「类型不匹配」错误主要来自两个核心问题：

• DoCmd.RunSQL的用途错误：这个方法是用来执行操作类SQL语句（比如INSERT、UPDATE、DELETE）的，完全不适合用来执行SELECT查询获取结果，强行用它执行SELECT会直接触发类型不匹配的报错。
• SQL语句的变量拼接错误：你在SQL里直接写了phonesearch，Access会把它当成字段名而不是你之前获取的变量值；同时"" * ""的写法也是多余的错误格式，正确的通配符应该直接写*。

另外补充一点：你的手机号查询用了9999999999#，手机号本质是字符串类型，用数值格式可能丢失前导零，建议改成字符串处理更稳妥。

解决方案：用Recordset获取查询结果并赋值到文本框 #

要获取SELECT查询结果并填充表单文本框，我们需要使用DAO.Recordset（Access VBA的原生对象）读取查询结果，再逐个将字段值赋值给对应文本框。

以下是修正后的完整代码：

Private Sub querycust_Click()
    Dim phonesearch As Variant
    Dim rs As DAO.Recordset
    Dim strSQL As String
    
    ' 修正：手机号用字符串处理，避免数值格式的潜在问题
    phonesearch = DLookup("cusID", "CustomerID", "phone='9999999999'")
    
    If IsNull(phonesearch) Then
        MsgBox "No Customer ID Exists For This Phone Number"
    Else
        ' 构建正确的SQL语句，将变量phonesearch拼接进去
        ' 若CusID是字符串类型，给变量加单引号："WHERE CusID = '" & phonesearch & "'"
        strSQL = "SELECT * FROM CustomerInfo WHERE CusID = " & phonesearch
        
        ' 打开记录集获取查询结果
        Set rs = CurrentDb.OpenRecordset(strSQL)
        
        If Not rs.EOF Then
            ' 将查询结果赋值到对应文本框（替换成你表单里的实际控件名称）
            Me.txtCustomerName.Value = rs("CustomerName") ' 客户姓名字段
            Me.txtAddress.Value = rs("Address") ' 地址字段
            Me.txtPhone.Value = rs("Phone") ' 电话字段
            ' 其他字段依此类推
        Else
            MsgBox "No matching customer info found for this ID"
        End If
        
        ' 关闭记录集并释放资源
        rs.Close
        Set rs = Nothing
    End If
End Sub

关键说明 #

1. 变量拼接SQL：确保把phonesearch变量直接拼接到SQL语句中，如果CusID是字符串类型，需要给变量包裹单引号，根据你的字段类型灵活调整。
2. Recordset的使用：CurrentDb.OpenRecordset用来执行SELECT查询并返回结果集，通过rs("字段名")可以读取对应字段的值。
3. 文本框赋值：直接用Me.文本框名称.Value = rs("字段名")就能把查询结果填充到表单的文本框里，前提是文本框名称要和你表单里的控件名称一致。

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