时间戳

首页 > 解决方案 > 如果满足大小写，如何设置图像可见？

ms-access - 如果满足大小写，如何设置图像可见？

问题描述

我有一个我正在尝试创建的报告。表单中的选项之一是带有下拉框的符号，供用户选择 X、/ 或 -

如果 X 可见，我希望相应的图像（符号的大红色版本）可见。

我在报告加载上建立了事件：

Private Sub Report_Load()

Select Case Me.Symbol

    Case "X"
        Me.ImageX.Visible = True
        Me.ImageDash.Visible = False
        Me.ImageDiagonal.Visible = False
    Case "-"
        Me.ImageX.Visible = False
        Me.ImageDash.Visible = True
        Me.ImageDiagonal.Visible = False
    Case "/"
        Me.ImageX.Visible = False
        Me.ImageDash.Visible = False
        Me.ImageDiagonal.Visible = True
    Case Else
        Me.ImageX.Visible = True
        Me.ImageDash.Visible = True
        Me.ImageDiagonal.Visible = True

End Select

End Sub

关于我所缺少的任何想法？

标签： ms-access

解决方案

正如 June 所建议的那样，将On Format事件用于对象所在的相关部分，因为各种对象引用On Load在报告事件之后才具有值。有关事件顺序的更多信息，您可能希望参考此文档。

我可能还建议将您的代码压缩为以下内容：

Private Sub Detail_Format()
    Me.ImageX.Visible = Me.Symbol = "X"
    Me.ImageDash.Visible = Me.Symbol = "-"
    Me.ImageDiagonal.Visible = Me.Symbol = "/"
End Sub

推荐阅读