Access 複選框多選添加到文本框

有這樣一箇題庫設計，多選題，考試者勾選複選框的答案，勾選後自動填充到答案文本框中

如下圖，勾選複選框，在文本框中顯示勾選的選項

我們這裡不能用選項組。因爲選項組控件是互斥的。所有要遍歷所有的複選框。判斷哪箇被選中。然後穫?cè)难}選框名

在此窗體中，添加6箇複選框，複選框分彆命名爲“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)建效果圖：