access获取选项组中复选框的值更新到表中

有网友问及复选框的用法问题。在多个复选框中， 如何设置三选一，并且把选择的内容写入数据库。

如下图所示，把选择的综合判定写入表中

在access中多选一可以使用选项组控件，这是一个容器控件。在选项组控件中再添加多个复选框控件

注意：必须要先添加选项组控件，再添加复选框控件。反过来即不行（不能多选一）

运行效果：选择后直接在表中添加数据

详细源码：

Private Sub Frame0_Click()
     If Me.Frame0 = 1 Then
        
        strPD = "ok"
    ElseIf Me.Frame0 = 2 Then
        
        strPD = "ng"
    End If
    CurrentDb.Execute "update 表1 set 综合评定='" & strPD & "' where id=1"
    
End Sub