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

Question

有4个复选框，如果选中了2个复选框（checkA＆amp; checkB）中的任何一个，则表单上不应显示“Justification”按钮。同样，如果检查了其他2个复选框（checkC＆amp; checkD）中的任何一个，则应该可以看到按钮“对齐”。

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

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

最后，我不能在click或afterupdate事件中使用复选框，也不能使用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

有人可以帮忙。

提前致谢！