访问 VBA 附件

Question

我正在尝试将图像添加到访问中的图像框架中，我有一个名为“App_Parameters”的表 我插入了图像的附件链接，还在其旁边的描述字段中写入了“LogoImage”。 现在，在报告表格中，我有图像框架，这是我在“打开时”上编写的代码

{ 私有子报告_打开（取消为整数）

 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

结束子

}

我的问题：这没有获得任何值“rs！ImageLogo”

Answer 1

我会使用 rs.Fields("ImageLogo").Value ，如下所示。请检查字段名称“ImageLogo”是否与“App_Parameters”表中附件字段的名称匹配:)

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