access穫?cè)∵x項(xiàng)組中複選框的值更新到錶中

有網(wǎng)友問(wèn)及複選框的用法問(wèn)題。在多箇複選框中， 如何設(shè)置三選一，併且把選擇的內(nèi)容寫(xiě)入數(shù)據(jù)庫(kù)。

如下圖所示，把選擇的綜閤判定寫(xiě)入錶中

在access中多選一可以使用選項(xiàng)組控件，這是一箇容器控件。在選項(xiàng)組控件中再添加多箇複選框控件

註意：必鬚要先添加選項(xiàng)組控件，再添加複選框控件。反過(guò)來(lái)卽不行（不能多選一）

運(yùn)行效果：選擇後直接在錶中添加數(shù)據(jù)

詳細(xì)源碼：

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 綜閤評(píng)定='" & strPD & "' where id=1"
    
End Sub