VBA窗体筛选数据类型不匹配 无法将PDF附件写入对应订单记录

核心错误点 #

两个问题和单引号包裹的写法本身无关，根源是代码取值、路径拼接、记录集定位逻辑存在错误：

• 筛选类型不匹配：大概率你选订单号的组合框是多列配置（第一列绑定数字型主键ID，第二列显示文本型订单号，第一列列宽设为0隐藏），Me![Order]取到的是数字ID而非文本类型的订单号，给数字值套单引号去匹配文本类型的[Order]字段，自然触发类型不匹配错误。
• 附件写入失败：一是路径拼接漏了目录后的反斜杠，PDF实际导出路径和后续查找路径不一致；二是打开WorkOrders表记录集时未加筛选条件，没有定位到所选订单号对应的记录；三是加载附件时乱拼路径，额外拼接了无关表字段值，和实际导出的PDF文件名不匹配，根本找不到目标文件。
• 额外隐患：Order是Access保留字，拼接筛选条件、SQL语句时必须始终用方括号包裹，避免语法解析错误。

修复后完整可运行代码 #

Private Sub Command8_Click()
    Dim fileName As String
    Dim filePath As String
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rsAtt As DAO.Recordset2
    Dim orderNo As String
    
    ' ========== 1. 取值校验：确认取到正确的文本型订单号 ==========
    ' 如果组合框第一列是隐藏ID、第二列是订单号，就用下面这行取值（列索引从0开始）
    ' orderNo = Nz(Me.Order.Column(1), "")
    ' 如果组合框直接绑定订单号字段，就用下面这行
    orderNo = Nz(Me.Order_Number, "")
    If orderNo = "" Then
        MsgBox "请先选择有效订单号", vbExclamation
        Exit Sub
    End If
    
    ' ========== 2. 路径拼接（注意目录末尾必须加反斜杠） ==========
    fileName = "Order_No_" & orderNo & ".pdf"
    filePath = "C:\Users\pc\Desktop\Newfolder\" & fileName
    ' 校验存储目录存在，避免导出报错
    If Dir("C:\Users\pc\Desktop\Newfolder\", vbDirectory) = "" Then
        MkDir "C:\Users\pc\Desktop\Newfolder\"
    End If
    
    ' ========== 3. 窗体筛选+PDF导出 ==========
    ' 先确保Receipt窗体已打开
    If CurrentProject.AllForms("Receipt").IsLoaded = False Then
        DoCmd.OpenForm "Receipt", acNormal, , , , acHidden
    End If
    ' 文本类型字段筛选值用单引号包裹，同时处理订单号内可能存在的单引号转义
    Forms("Receipt").Filter = "[Order]='" & Replace(orderNo, "'", "''") & "'"
    Forms("Receipt").FilterOn = True
    ' 导出PDF
    DoCmd.OutputTo acOutputForm, "Receipt", acFormatPDF, filePath
    
    ' ========== 4. 定位记录+写入附件 ==========
    Set db = CurrentDb
    ' 直接筛选匹配当前订单号的记录，不要遍历全表
    Set rs = db.OpenRecordset( _
        "SELECT * FROM WorkOrders WHERE [Order]='" & Replace(orderNo, "'", "''") & "'", _
        dbOpenDynaset)
    
    If rs.EOF Then
        MsgBox "WorkOrders表中找不到对应订单记录", vbExclamation
        GoTo Cleanup
    End If
    
    ' 校验PDF文件确实生成成功
    If Dir(filePath) <> "" Then
        rs.Edit
        Set rsAtt = rs.Fields("Attachment").Value
        ' 避免重复添加同名附件
        rsAtt.Filter = "[FileName]='" & fileName & "'"
        If rsAtt.EOF Then
            rsAtt.AddNew
            rsAtt.Fields("FileData").LoadFromFile filePath
            rsAtt.Update
        End If
        rsAtt.Close
        rs.Update
        MsgBox "PDF导出、附件写入完成", vbInformation
    Else
        MsgBox "PDF文件生成失败，未找到导出文件", vbExclamation
    End If
    
Cleanup:
    ' ========== 释放资源 ==========
    If Not rsAtt Is Nothing Then
        If rsAtt.State = dbOpen Then rsAtt.Close
        Set rsAtt = Nothing
    End If
    If Not rs Is Nothing Then
        If rs.State = dbOpen Then rs.Close
        Set rs = Nothing
    End If
    Set db = Nothing
End Sub

排查注意事项 #

• 如果运行后仍报筛选类型错误，先进入表设计视图确认WorkOrders表、Receipt窗体记录源里的[Order]字段类型：如果是数字类型，直接去掉筛选条件里值两边的单引号，写为Forms("Receipt").Filter = "[Order]=" & orderNo即可。
• 如果组合框取值不符合预期，进入组合框属性面板查看「列数」「绑定列」「列宽」配置：如果绑定列是1、列宽为0;3cm，说明第一列（索引0）是隐藏的ID，第二列（索引1）是显示的订单号，必须用Me.组合框名.Column(1)取订单号值。

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