MS Access VBA：绑定表单保存时同步生成带附件的关联记录报错问题

首先，咱们先梳理下你遇到的两个核心问题：

• 原代码抛出424 Object Required错误：因为你没有声明db和rsTable这两个DAO对象，VBA无法识别它们
• Attachment字段无法直接赋值：Access的Attachment类型是嵌套的子记录集，不能像普通文本字段那样直接用=复制

下面是针对你的业务场景（语言认证等级记录）的完整修正方案，包括错误修复和附件复制的正确方法：

1. 核心修正思路 #

把逻辑从Form_BeforeUpdate移到Form_AfterUpdate事件里——因为BeforeUpdate时绑定的主记录还没正式保存，此时复制可能会出现数据不一致；AfterUpdate事件触发时，主记录已经成功保存，我们可以基于已保存的记录来生成额外副本，同时确保附件能正确复制。

2. 完整VBA代码 #

Private Sub Form_AfterUpdate()
    Dim db As DAO.Database
    Dim rsMain As DAO.Recordset
    Dim rsAttachForm As DAO.Recordset2 ' 表单附件控件的子记录集
    Dim rsAttachNew As DAO.Recordset2 ' 新记录附件字段的子记录集
    Dim fldAttach As DAO.Field2
    
    On Error GoTo Err_AfterUpdate
    
    ' 仅当复选框勾选时执行复制逻辑
    If Me![Includes training].Value = True Then
        Set db = CurrentDb
        ' 打开主表的可编辑记录集
        Set rsMain = db.OpenRecordset("你的表名", dbOpenDynaset)
        
        With rsMain
            .AddNew
            ' 复制主记录的所有字段，除了需要修改的等级字段
            !TextField1 = Me.TextField1.Value
            !TextField2 = "My Own Text Field" ' 这里替换为你需要的等级名称
            ' 复制其他文本/数值字段，示例：
            ' !OtherTextField = Me.OtherTextField.Value
            ' !NumericField = Me.NumericField.Value
            
            ' 处理Attachment字段的复制
            Set rsAttachForm = Me.AttachmentField.Recordset2
            If Not rsAttachForm.EOF Then
                Set rsAttachNew = !AttachmentField.Value ' 获取新记录的附件子记录集
                rsAttachForm.MoveFirst
                Do Until rsAttachForm.EOF
                    rsAttachNew.AddNew
                    ' 复制附件的核心数据：FileData是二进制内容，FileName是文件名
                    Set fldAttach = rsAttachNew.Fields("FileData")
                    fldAttach.LoadFromFile rsAttachForm.Fields("FileData") ' 复制二进制内容
                    rsAttachNew.Fields("FileName") = rsAttachForm.Fields("FileName")
                    rsAttachNew.Fields("FileExtension") = rsAttachForm.Fields("FileExtension")
                    rsAttachNew.Update
                    rsAttachForm.MoveNext
                Loop
                rsAttachNew.Close
            End If
            rsAttachForm.Close
            
            .Update ' 保存新记录
            .Bookmark = .LastModified ' 定位到新保存的记录（可选）
        End With
        
        MsgBox "主记录和额外等级记录已成功保存！", vbInformation, "保存完成"
    End If
    
Cleanup:
    ' 关闭所有打开的记录集和对象，避免内存泄漏
    If Not rsAttachNew Is Nothing Then rsAttachNew.Close
    If Not rsAttachForm Is Nothing Then rsAttachForm.Close
    If Not rsMain Is Nothing Then rsMain.Close
    If Not db Is Nothing Then Set db = Nothing
    Exit Sub
    
Err_AfterUpdate:
    MsgBox "保存额外记录时出错：" & Err.Description & "（错误代码：" & Err.Number & "）", vbCritical
    Resume Cleanup
End Sub

3. 关键细节说明 #

• 对象声明：必须明确声明DAO类型的对象（Database、Recordset、Recordset2、Field2），这些是处理Access附件字段的专用对象
• 附件复制逻辑：通过Recordset2访问附件控件的子记录集，逐个复制每个附件的FileData（二进制内容）、FileName和FileExtension，确保附件完整复制
• 事件选择：用Form_AfterUpdate确保主记录已经保存，避免复制未提交的临时数据
• 错误处理：添加了清理代码块，确保所有打开的记录集都能被关闭，防止Access出现锁定或内存问题

4. 注意事项 #

• DAO库引用：如果你的Access提示“用户定义类型未定义”，需要手动添加DAO库引用：
  1. 打开VBA编辑器（Alt+F11）
  2. 点击菜单「工具」→「引用」
  3. 勾选「Microsoft DAO x.x Object Library」（x.x是版本号，比如3.6或12.0）
• 表名替换：把代码里的"你的表名"替换为你实际使用的数据表名称
• 字段匹配：确保代码中所有字段名（比如TextField1、AttachmentField）和你表单/数据表中的字段名完全一致

这个方案完美适配你的业务场景：勾选复选框后，会自动生成一条和主记录几乎完全相同的新记录，仅修改指定的等级字段，同时完整复制上传的PDF证书附件，无需用户手动填写第二个表单。

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