Access报表VBA从附件字段读取图片失败问题求助

问题出在Access的附件字段不能直接通过rs!ImageLogo读取数据——附件字段本质是一个嵌套的子记录集，得先打开它才能拿到图片的二进制内容。按下面的方法修改代码即可：

Private Sub Report_Open(Cancel As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim rsAttach As DAO.Recordset2 ' 用于操作附件字段的子记录集

    Set db = CurrentDb
    Set rs = db.OpenRecordset("App_Parameters")

    If Not rs.EOF Then
        rs.FindFirst "Description = 'LogoImage'" ' 无需先执行MoveLast/MoveFirst，FindFirst可直接使用
        If Not rs.NoMatch Then ' 确认找到匹配的目标记录
            ' 打开附件字段对应的子记录集
            Set rsAttach = rs.Fields("ImageLogo").Value
            If Not rsAttach.EOF Then
                ' 提取第一个附件的二进制数据，赋值给图像框
                Me.LogoImg.PictureData = rsAttach!FileData
            End If
            rsAttach.Close ' 关闭子记录集释放资源
        End If
    End If

    ' 清理对象避免内存泄漏
    rs.Close
    Set rsAttach = Nothing
    Set rs = Nothing
    Set db = Nothing
End Sub

额外注意事项：

• 确认表中字段名确实为ImageLogo（且是附件类型），描述字段Description的目标值准确为LogoImage
• 附件中的图片需为Access支持的格式（如JPG、PNG、BMP）
• 移除了原代码中多余的rs.MoveLast和rs.MoveFirst操作，FindFirst可直接作用于记录集，无需先遍历全表

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