基于多个复选框使图像可见或不可见

时间:2015-12-03 21:23:20

标签: vba ms-access checkbox

以下代码根据是否选中了两个复选框来打开或关闭图像。问题是我添加复选框只有最后两个正常工作。在下面的示例中,如果同时选中了chk_Pipe1NchkIn1,则图片无法打开和关闭。但是,当chk_Pipe2NchkIn2都被选中时,它的效果非常好。如果我添加chk_Pipe3NchkIn3,它将适用于此集,但设置1和2不再有效。有什么想法吗?

'NIn
If Me.chk_Pipe1N Or Me.chk_Pipe2N And Me.chkIn1 Or Me.chkIn2 Then
    Me.imgNIN.Visible = True
Else
    Me.imgNIN.Visible = False
End If

'NOut
If Me.chk_Pipe1N Or Me.chk_Pipe2N And Me.chkOut1 Or Me.chkOut2 Then
    Me.imgNOut.Visible = True
Else
    Me.imgNOut.Visible = False
End If

1 个答案:

答案 0 :(得分:2)

更简单(添加@HansUp'评论):

Me.imgNIN.Visible = (Me.chk_Pipe1N Or Me.chk_Pipe2N) And _
                    (Me.chkIn1 Or Me.chkIn2)