MS Access根据报告中的组合框选择显示图像

时间:2018-08-28 08:17:04

标签: image ms-access combobox access-vba report

我目前正在为化学品清单创建危害标签。我希望基于报表中每个记录的组合框中的数据显示所选的象形图图像。

我的初始方法是将图像彼此叠放并隐藏。然后,由于选择了组合框,因此可以看到它们各自的图像。这在Form_Current事件中的表单中完美工作。当您将其放置在Report_Current事件中时,单击时只有选定的记录图像会更改,但其余所有图像均为空白。

代码:

If GHS_Selection_1.Value = "1" Then
    expos.Visible = False
    flamme.Visible = False
    rondflam.Visible = False
    bottle.Visible = False
    skull.Visible = False
    exclam.Visible = False
    acid.Visible = False
    silhouete.Visible = False
    aquatic.Visible = False
ElseIf GHS_Selection_1.Value = "2" Then
    expos.Visible = True
    flamme.Visible = False
    rondflam.Visible = False
    bottle.Visible = False
    skull.Visible = False
    exclam.Visible = False
    acid.Visible = False
    silhouete.Visible = False
    aquatic.Visible = False
ElseIf GHS_Selection_1.Value = "3" Then
    expos.Visible = False
    flamme.Visible = True
    rondflam.Visible = False
    bottle.Visible = False
    skull.Visible = False
    exclam.Visible = False
    acid.Visible = False
    silhouete.Visible = False
    aquatic.Visible = False 
    ...etc

是否有更好的方法来进行此改进? OLE对象或无边界图像框?任何意见,将不胜感激。谢谢。

编辑: 在一个有点相关的问题中,有没有一种方法可以用相同的记录填充整页或多页,而当您单击按钮从子窗体/表格中选择一系列要打印的化学品时,我可以使用另一种方法。

0 个答案:

没有答案