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

2017-12-21 15:45:00
tmtony8
原創
3013

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

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


我們這裡不能用選項組。因爲選項組控件是互斥的。所有要遍歷所有的複選框。判斷哪箇被選中。然後穫取牠的複選框名

在此窗體中,添加6箇複選框,複選框分彆命名爲“A,B,C,D,E,F”。答案文本框命名爲“答案”。

在此窗體的中,添加下麵自定義代碼。

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

各箇按鈕調用該函數,如“A”的單擊事件。

Private Sub A_Click()
    SelectChk
End Sub

創建效果圖:



    分享