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

更多的access源码请关注office交流网