如何让Access中的选项组单选按钮实现组互斥功能（点击一个取消另一个）

当然可以用Access原生功能搞定，根本不用写VBA代码来控制，你之前的问题出在没给单选按钮做「分组归属」——直接拖的单选按钮默认都是独立控件，自然不会互相排斥。下面是具体操作：

• 最省心的方式：用选项组向导创建
  在表单设计视图里，找到控件工具箱里的「选项组」控件（图标是带单选按钮的方框），拖到表单上后会弹出向导：

  1. 跟着向导输入每个单选按钮的显示文本，比如“选项1”“选项2”；
  2. 可以选择是否绑定到数据表的字段（如果不需要存值就选「不绑定」）；
  3. 最后设置每个选项对应的数值（默认1、2、3就行），完成后自动生成的单选按钮就自带互斥功能了，点一个另一个会自动取消选中。

• 手动改造已有的独立单选按钮
  如果已经手动加了一堆单选按钮不想重来，也能调整：

  1. 先在表单上插入一个空白的选项组控件；
  2. 选中你已有的单选按钮，右键「剪切」，然后选中刚才的选项组控件，右键「粘贴」——这样这些单选按钮就被归入这个选项组了；
  3. 可以检查每个单选按钮的属性：找到OptionGroup属性，确保它的值是你这个选项组的名称（比如选项组叫Frame0，那所有单选按钮的OptionGroup都要设成Frame0），这样就保证它们属于同一组，会互斥。

另外补充个小细节：选项组的Value属性会返回当前选中单选按钮的OptionValue值，比如你给第一个按钮设OptionValue=1，选中它时选项组的值就是1，后续要判断选中状态直接读选项组的值就行，比单独判断每个单选按钮方便多了。

内容的提问来源于stack exchange，提问作者user9807817