访问：如何查看是否选中了选项单选按钮

Question

我有 4 个可以选中的“选项”单选按钮。如果它们被用户检查，那么我想在表中插入一条记录。代码如下...

If option1Button is Checked then 
     doInsertQuery
If option2Button is Checked then 
     doInsertQuery
If option3Button is Checked then 
     doInsertQuery
If option4Button is Checked then 
     doInsertQuery

我找不到有关如何执行“已检查”方法的任何文档。我来自 VB.net 的背景，而 VBA 绝对没有我习惯于做这类事情的玩具。

Answer 1

您应该获取 Option Group 的 Value 属性，而不是查询每个 Option Button 的状态 本身，即围绕选项按钮集的框架。

这将产生与所选选项按钮关联的选项值。

由于在选项组中只能选择一个选项按钮，我建议在测试所选值时使用 VBA Select Case 语句，例如：

Select Case YourFrameControl
    Case 1: Debug.Print "Option 1 Selected."
    Case 2: Debug.Print "Option 2 Selected."
    Case 3: Debug.Print "Option 3 Selected."
End Select

由于Value属性是控件返回的默认值，所以不需要明确说明。

---

如果选项按钮是独立并且不是选项组的成员，那么您可以查询选项按钮本身的Value 属性，这将为三态选项按钮生成 True (-1) 或 False (0) 值，或 True (-1)、False (0) 或 Null。

在这种情况下，我建议使用复选框而不是单选按钮，因为这对于允许选择多个选项的界面来说会更直观。

由于您声明用户可以选择“所有适用的选项”，您可能需要使用一系列单独的if 语句来评估每个选定选项的表达式。 p>

如果您只评估单个表达式，您可以将if 语句写成一行：

If YourOptionControl1 Then Debug.Print "Option 1 selected."
If YourOptionControl2 Then Debug.Print "Option 2 selected."
If YourOptionControl3 Then Debug.Print "Option 3 selected."

或者，作为单独的if 块：

If YourOptionControl1 Then
    Debug.Print "Option 1 selected."
End If
If YourOptionControl2 Then
    Debug.Print "Option 2 selected."
End If
If YourOptionControl3 Then
    Debug.Print "Option 3 selected."
End If

同样，由于Value 属性是控件返回的默认值，因此无需明确说明；对于上述情况，我假设您没有使用三态选项按钮。