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

一起选择时取消选择选项按钮

1 个答案: