Access 復(fù)選框多選添加到文本框

有這樣一個題庫設(shè)計，多選題，考試者勾選復(fù)選框的答案，勾選后自動填充到答案文本框中

如下圖，勾選復(fù)選框，在文本框中顯示勾選的選項

我們這里不能用選項組。因為選項組控件是互斥的。所有要遍歷所有的復(fù)選框。判斷哪個被選中。然后獲取它的復(fù)選框名

在此窗體中，添加6個復(fù)選框，復(fù)選框分別命名為“A，B，C，D，E，F(xiàn)”。答案文本框命名為“答案”。

在此窗體的中，添加下面自定義代碼。

Public Sub SelectChk()
    
    Dim ctrl  As Control

    Me.答案 = Null
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acCheckBox Then
            If Controls(ctrl.Name).Value = True Then
                Me.答案 = Me.答案 & ctrl.Name
'
            End If
        End If
    Next
End Sub

各個按鈕調(diào)用該函數(shù)，如“A”的單擊事件。

Private Sub A_Click()
    SelectChk
End Sub

創(chuàng)建效果圖：