如何解决依赖组合框的Access查询导出Word时的3061错误？

错误3061本质是参数不足——你的Service_Quote查询依赖组合框的筛选值作为参数，但直接用db.OpenRecordset("Service_Quote")打开时，Access无法自动获取组合框的当前值，导致查询无法执行。以下是两种可行的解决方式：

方法一：给查询手动传递组合框参数 #

通过QueryDef对象获取查询定义，手动赋值组合框的参数值后再打开记录集，适合保留原有查询结构的场景：

Private Sub Command81_Click()

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset
Dim appWord As Object
Dim docWord As Object
Dim rng As Object

    Set db = CurrentDb
    ' 获取查询定义
    Set qdf = db.QueryDefs("Service_Quote")
    
    ' 给查询传递组合框参数（替换为你实际的窗体名、组合框名和参数名）
    ' 假设查询中引用的参数是[Forms!你的窗体名!cboCustomer]
    qdf.Parameters("[Forms!你的窗体名!cboCustomer]") = Forms!你的窗体名!cboCustomer.Value
    
    ' 打开带参数的记录集
    Set rs = qdf.OpenRecordset()
    
    ' 以下Word导出代码保持不变
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    Set docWord = appWord.Documents.Add
    
    Set rng = docWord.Range
    With rs
        Do While Not .EOF
            rng.InsertAfter "Field1: " & !FullName & vbCrLf
            'rng.InsertAfter "Field2: " & !Field2 & vbCrLf
            'rng.InsertAfter "Field3: " & !Field3 & vbCrLf
            rng.InsertAfter vbCrLf
            .MoveNext
        Loop
    End With
    
    ' 清理对象
    rs.Close
    qdf.Close
    Set rs = Nothing
    Set qdf = Nothing
    Set db = Nothing
    Set rng = Nothing
    Set docWord = Nothing
    Set appWord = Nothing

End Sub

方法二：动态生成带筛选条件的SQL语句 #

直接把组合框的值拼接到SQL字符串中，绕过参数查询的限制，适合简单筛选场景：

Private Sub Command81_Click()

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim appWord As Object
Dim docWord As Object
Dim rng As Object
Dim strSQL As String

    ' 动态生成SQL（替换为你实际的表名、字段名和组合框名）
    ' 数值类型字段直接拼接，文本类型字段要加单引号
    strSQL = "SELECT * FROM Service_Quote_Source WHERE CustomerID = " & Forms!你的窗体名!cboCustomer.Value
    ' 文本类型示例：strSQL = "SELECT * FROM Service_Quote_Source WHERE CustomerName = '" & Replace(Forms!你的窗体名!cboCustomer.Value, "'", "''") & "'"
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    
    ' 以下Word导出代码保持不变
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    Set docWord = appWord.Documents.Add
    
    Set rng = docWord.Range
    With rs
        Do While Not .EOF
            rng.InsertAfter "Field1: " & !FullName & vbCrLf
            'rng.InsertAfter "Field2: " & !Field2 & vbCrLf
            'rng.InsertAfter "Field3: " & !Field3 & vbCrLf
            rng.InsertAfter vbCrLf
            .MoveNext
        Loop
    End With
    
    ' 清理对象
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Set rng = Nothing
    Set docWord = Nothing
    Set appWord = Nothing

End Sub

注意事项 #

• 替换代码中所有你的窗体名、组合框名为实际名称；
• 若查询依赖多个组合框参数，方法一中需逐个设置qdf.Parameters，方法二中需拼接多个筛选条件；
• 文本类型字段拼接时，要用Replace函数转义单引号，避免SQL语法错误。

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