在Access报告中动态添加图像控件

Question

我在Access中有一个表，在一个字段中有注释，在另一个字段中有指向相关图片的文件路径。我的报告中有注释，然后有一个图像绑定到该注释下方的文件路径字段。但是，大多数注释都没有图片，注释之间的空白会使报告不必要地长。

在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

那应该非常接近您的需求。