访问 VBA 附件-解网

问：

我正在尝试将图像添加到 Access 中的图像帧中。我有一个名为“App_Parameters”的表格，我在其中插入了图像的附件链接，并在其旁边的描述字段中写了“LogoImage”。

现在，在报告窗体中，我有图像框架，这是我在“打开时”事件中编写的代码：

Private Sub Report_Open(Cancel As Integer)

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
   
    Set db = CurrentDb
   
    Set rs = db.OpenRecordset("App_Parameters")
   
    If Not rs.EOF Then 
        rs.MoveLast
        rs.MoveFirst
        rs.FindFirst ("Description = 'LogoImage'")
        Me.LogoImg.PictureData = rs!ImageLogo   
    End If

End Sub

我的问题：这没有得到任何值“rs！图像徽标”

VBA 映像 MS-Access 附件

Private Sub Report_Open(Cancel As Integer)
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    
    Set db = CurrentDb
    Set rs = db.OpenRecordset("App_Parameters")
    
    If Not rs.EOF Then
        rs.MoveLast
        rs.MoveFirst
        rs.FindFirst "Description = 'LogoImage'"
        
        If Not rs.NoMatch Then
            ' Assuming "ImageLogo" is the name of the attachment field
            Me.LogoImg.PictureData = rs.Fields("ImageLogo").Value
        End If
    End If
    
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

上一个：Ansible URI 模块和 ServiceNow 附件 API

下一个：有没有办法强制 MS Edge 在自身内部打开 Excel 文件而不是下载它？

访问 VBA 附件

Access VBA attachments

评论