Ms access 如果在access VBA中勾选了复选框，则隐藏/取消隐藏按钮

有4个复选框，如果选中了2个复选框（复选框A和复选框B）中的任何一个，则“对齐”按钮在表单上不应可见。同样，如果选中了其他两个复选框（选中C和选中D），则按钮“对齐”应可见

还有一个组合框（Combo380），它是带有宏代码的下拉列表：

="[ID] = " & Str(Nz([Screen].[ActiveControl],0))

最后，我不能为复选框使用单击时或更新后事件，也不能使用将给出运行时错误号2427的If VBA代码。我只能使用GotFocus或LostFocus事件

这是我的公式：

Private Sub CheckA_GotFocus()
    Me.Justification.Visible = False
End Sub
Private Sub CheckB_GotFocus()
    Me.Justification.Visible = False
End Sub
Private Sub CheckC_GotFocus()
    Me.Justification.Visible = True
End Sub
Private Sub CheckD_GotFocus()
    Me.Justification.Visible = True
End Sub

有人能帮忙吗

---

提前谢谢

为什么更新后不能使用

？如果它已经包含代码，那么您当然可以在开始处添加一行代码来更改已更新控件的可见性？为什么

IF

命令会引发

参数非可选的
错误？如果得到这些结果，您是否尝试重新安装Access？您应该使用
AfterUpdate
事件。如果您在更新后的
事件中遇到错误，请发布您尝试的代码。您是否有不允许所有复选框同时具有相同状态的代码？
Me.justion.Visible=Me.CheckC或Me.CheckD
，如前所述，如果可以检查CheckA或CheckB以及CheckC或CheckD，则安装程序会出现冲突。也许您应该在OptionGroup控件中使用单选按钮。需要了解更多有关数据的信息以提供建议。combobox与此有什么关系？@Darren Bartrup Cook&@ArcherBird:我使用“选项组”（来自“设计”选项卡）来创建复选框，因此，
AfterUpdate
事件不会出现。其次，如果我使用“if”语句，那么我将得到运行时错误2427。这表示复选框没有任何值。而且，如果我使用
如果isnul（me.CheckA）
则这不起作用。。。。。。。。。。。。