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

2018-04-26 08:29:00
黄善超
原创
1175


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

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



在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

    分享