Отмена выбора опциональных кнопок при совместном выборе

Question

в моей пользовательской форме я создал кнопки параметров, расположенные рядом с темой, которую я хочу, чтобы мои пользователи выбирали, т. Е. Если они выбирают «машиностроение», справа от них есть кнопка «да» или «нет».,Однако пользователи не могут выбирать классы «машиностроение» и «химическое машиностроение» вместе.Я ввел первый код ниже, который работает.Тем не менее, это работает, только если кнопка выбора «Me.optFMME», а затем «Me.optFMCE» в этом порядке.Если вы выберете их в другом порядке, то есть «Me.optFMCE», а затем «Me.optFMME», это разрешит это.Итак, я ввел код (второй под ним), чтобы противодействовать этому, но он ничего не делает.

Пожалуйста, если у кого-нибудь есть какое-либо руководство, оно будет высоко оценено.

Private Sub optFMME_Click()

    If Me.optFMME And Me.optFMCE Then
        MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar     material. Please select another combination."
        Me.optFMME = False
        Me.optFMCE = False
    End If
End Sub

`

Private Sub optFMCE_Click()

    If Me.optFMCE And Me.optFMME Then
        MsgBox "Mech Eng and Chem Eng cannot be selected together due to similar     material. Please select another combination."
        Me.optFMCE = False
        Me.optFMME = False
    End If
End Sub

Answer 1

Ваша логика проверки кнопок выбора идентична, поэтому ее следует выделить в отдельную функцию.Таким образом, вы остаетесь последовательными в своей логике, и если что-то нужно отрегулировать, все это в одном месте.

Private Sub optFMME_Click()
    LogicCheck
End Sub

Private Sub optFMCE_Click()
    LogicCheck
End Sub

Private Sub LogicCheck()
    If Me.optFMCE And Me.optFMME Then
        MsgBox "Mech Eng and Chem Eng cannot be selected together " & _
               "due to similar material. Please select another combination."
        Me.optFMCE = False
        Me.optFMME = False
    End If
End Sub