单击VBA选项按钮时未保持选中状态？

我一直在为设置点击时被选中的选项按钮而苦恼

下面是我的代码

Private Sub frame_membershiptype_Click()
On Error GoTo Err_frame_membershiptype_Click

Select Case frame_membershiptype
    Case option_standard.Value
        option_standard.SetFocus
        Me.MembershipType = "Standard"

    Case option_concession.Value
        option_concession.SetFocus
        Me.MembershipType = "Concession"


    Case option_concession.Value
        option_lifetime.SetFocus
        Me.MembershipType = "Lifetime"

End Select

Exit_frame_membershiptype_Click:
    Exit Sub

Err_frame_membershiptype_Click:
    MsgBox Err.Description
    Resume Exit_frame_membershiptype_Click

End Sub

我在一个选项组中有3个选项按钮。我想说，如果选择了这些选项按钮中的一个（通过引用其Value属性），我将在该特定选项按钮上设置焦点，并更新其后面的基础表记录

但是出现的错误是，您没有为这些选项按钮指定值。这让我很困惑，因为根据having optionbutton.value属性，将告诉我是否选择了option按钮。我发现很多在线教程都告诉我这对我很有效，他们这样做。。。但这对我不起作用

---

为什么?？我对此感到非常困惑。实现一个简单的按钮复选框检查肯定不会这么难。

在访问表单中处理

选项按钮

控件的常规方法是将它们设为

选项组

（又称

帧

）控件的子控件。您可以从

选项组

控件的

值

属性中检索所选选项，如下所示：

选项比较数据库
选项显式
专用子btnSave_Click（）
作为字符串的Dim msg
如果为空（Me.frame\u membershiptype.Value），则
msg=“未选择任何成员资格类型。”
其他的
msg=“已选择成员资格类型：”
选择Case Me.frame\u membershiptype.Value
案例1
msg=msg&“标准”
案例2
msg=msg&“特许权”
案例3
msg=msg&“寿命”
其他情况
msg=msg&“未知”
结束选择
如果结束
MsgBox味精
端接头

@awongCM您可以下载一个工作示例。谢谢Gord！有机会的时候我会看一看。这可能解释了为什么我没有完全理解选项组的属性函数