在 Access 报表上动态添加图像控件

Question

我在 Access 中有一个 table，它在一个字段中有注释，在另一个字段中有关联图片的文件路径。我的报告有评论，然后图像绑定到该评论下方的文件路径字段。但是，大多数评论都没有图片，而且评论之间的空白 space 使报告过长。

VBA有没有办法只在有文件路径的情况下添加图片控件，并最小化无图评论之间的间距？

Answer 1

当 Access 处于运行时模式时，您无法向报表添加任何控件。但是您可以使用 Report 的 Format 方法之一中的 VBA 轻松调整图像控件的大小。假设您的图像控件名为 "Image1"，并且位于详细信息部分：

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

    If Me.Image1.ImageHeight = 0 Then
        Me.Image1.Height = 144  ' whatever minimum height you want
        Me.Detail.Height = 144
    Else
        Me.Image1.Height = 1440 ' whatever the normal Image1 height is
        Me.Detail.Height = 1530 ' whatever maximum detail height you want
    Endif

End Sub

这应该非常接近您的需要。

在 Access 报表上动态添加图像控件

Dynamically add image controls on Access report

ms-access

vba

ms-access-reports