请指教，IF判断语句出错

huanghyd

请大家帮忙看看以下代码，判断控件MaintenanceLevel2的值，对应小图片（打勾）为可见显示的。但我的库提示：运行错误 ‘2424’ 。请指教。谢谢！

Private Sub Report_Open(Cancel As Integer)
If Me.MaintenanceLevel2.value = "A" Then
Me.ImageA.Visible = True

ElseIf Me.MaintenanceLevel2.value = "B" Then
Me.ImageB.Visible = True

ElseIf Me.MaintenanceLevel2.value = "C" Then
Me.ImageC.Visible = True

End If

End Sub

huanghyd

上传个附件，，请帮忙看看。

huanghyd

修改.text也没有反应。如要先加载控件MaintenanceLevel2的值怎麽做，同一页面。

huanghyd

先谢谢smilingkiss 。我是要在打印时执行，再加按钮操作就不好。期待大家解答，谢谢！

huanghyd

Benjamin_luk,,  我刚刚测试了没有反应，也不行。

huanghyd

谢谢大家回复，今天我才测试。我把代码放在不同事件里测试，当条记录时会显示对应的打勾图片。2条或多条记录有A，B，C时不会显示对应的打勾图片。请大家帮忙再研究研究，，谢谢！

huanghyd

非常感谢 smilingkiss 热情无私的帮助。测试OK 。{:soso_e179:}{:soso_e189:}

huanghyd

我今天在一个窗体上加打印按钮，代码如下。发现第一条记录还是不能显示对应的打勾图片。直接在报表里可以显示有，报表视图和打印预览都能显示。但在打印按钮执行打印后出来的纸第一条记录还是不能显示对应的打勾图片。也不知哪里的问题？请大家帮忙看看。

DoCmd.OpenReport "Rpt_MaintenanceSheet", acViewNormal

huanghyd

我测试打印到打印机出纸后第一条记录还是不能显示对应的打勾图片。附件中文件 PrinSheet.xps，是我打印到 Microsoft XPS Document Writer 出来的效果，可以看到有3条记录的打印，其中第一条记录是不能显示对应的打勾图片。也不知哪里的问题？请帮忙看看。谢谢！

huanghyd

打印代码改为预览，报表弹出设置为“是”时，第一条记录还是不能显示对应的打勾图片。还是不行，{:soso_e118:}