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

【问题标题】：Dynamically add image controls on Access report在 Access 报表上动态添加图像控件
【发布时间】：2018-07-11 17:58:57
【问题描述】：

我在 Access 中有一个表，其中一个字段包含 cmets，另一个字段包含指向关联图片的文件路径。我的报告有评论，然后是一个图像绑定到该评论下方的文件路径字段。但是，大多数 cmets 都没有图片，并且 cmets 之间的空白使报告不必要地冗长。

VBA 中是否有办法仅在有文件路径的情况下添加图像控件并最小化无图片 cmets 之间的间距？

【问题讨论】：

通过将CanShrink设置为True，报告部分可能会自动缩小，然后在Detail_Format事件中，检查图像路径长度并将Image.Visible属性更改为False如果它的长度为零。尚未测试，但值得一试。

标签： ms-access vba ms-access-reports

【解决方案1】：

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

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

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

【讨论】：