office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

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

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

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


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

在此窗體中,添加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

創建效果圖:



    分享
    北京十一选五基本走势