如何在MS Access子窗体中设置单选选项组，仅选中一条子记录为默认

要实现客户地址子窗体中仅能选中一条默认地址的功能，可按以下步骤操作：

1. 数据表准备 #

在你的地址表中添加一个IsDefault字段，数据类型选择「是/否」（Access的布尔类型），用来标记该地址是否为当前客户的默认邮寄地址。

2. 子窗体控件设置 #

• 打开子窗体的设计视图，将IsDefault字段拖入窗体，生成一个复选框控件，建议命名为chkIsDefault。
• 可将复选框的标题修改为「设为默认」，或隐藏标题仅保留复选框，让界面更直观。

3. 编写VBA代码实现单选逻辑 #

在子窗体的代码编辑器中，为chkIsDefault复选框添加AfterUpdate事件代码，确保勾选某条地址为默认时，自动取消当前客户其他地址的默认标记：

Private Sub chkIsDefault_AfterUpdate()
    Dim db As DAO.Database
    Dim customerID As Variant
    Dim strSQL As String
    
    If Me.chkIsDefault = True Then
        ' 获取主窗体中的当前客户ID（替换为你实际的客户主键字段名）
        customerID = Me.Parent!CustomerID
        
        ' 构建SQL，将当前客户的所有地址默认标记设为False
        strSQL = "UPDATE 地址表 SET IsDefault = False WHERE CustomerID = " & customerID
        ' 若CustomerID是文本类型，需改为：
        ' strSQL = "UPDATE 地址表 SET IsDefault = False WHERE CustomerID = '" & customerID & "'"
        
        Set db = CurrentDb()
        db.Execute strSQL, dbFailOnError
        
        ' 重新勾选当前记录的默认标记（因上面的UPDATE会把当前条也改为False）
        Me.chkIsDefault = True
        ' 刷新子窗体显示最新状态
        Me.Requery
    End If
End Sub

注意：替换代码中的地址表、CustomerID为你实际的表名和客户主键字段名。

4. 可选优化：确保每个客户至少有一个默认地址 #

如果需要保证每个客户打开主窗体时都有一个默认地址，可在主窗体的Current事件中添加代码：

Private Sub Form_Current()
    Dim rs As DAO.Recordset
    Dim subformCtrl As Control
    
    Set subformCtrl = Me!子窗体控件名称 ' 替换为你的子窗体控件名
    Set rs = subformCtrl.Form.RecordsetClone
    
    ' 查找当前客户是否已有默认地址
    rs.FindFirst "IsDefault = True"
    If rs.NoMatch And Not rs.EOF Then
        ' 若无默认地址，将第一条地址设为默认
        rs.MoveFirst
        rs.Edit
        rs!IsDefault = True
        rs.Update
        subformCtrl.Form.Requery
    End If
    
    rs.Close
    Set rs = Nothing
    Set subformCtrl = Nothing
End Sub

5. 界面细节调整 #

• 若想让控件更像单选按钮，可将复选框的「样式」属性改为「选项按钮」，但需注意Access子窗体中每条记录的单选按钮是独立的，仍需依赖代码实现全局单选逻辑。
• 可根据需求设置复选框的Enabled属性，控制是否允许用户修改默认地址。

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