office交流網--QQ交流群號

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

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

Access勾選復選框對應標簽添加到文本框

2018-11-20 15:49:00
tmtony8
原創
3857

在以前發布的文章《Access 復選框多選添加到文本框》中。我們講到把勾選的復選框內容添加到文本框。

用的是遍歷窗體上所有復選框控件,但是有的網友說窗體上個人信息選擇,有多組不相關的復選框。


下面分享一個示例,勾選復選框,把對應的標簽標題添加到文本框



這里注意控件命名即可。復選框控件命名為 chk1到chk5,同理對應的標簽也命名為label1到label5



詳細代碼:

Public Sub chkTXT()
    Dim strChk As String
    For i = 1 To 5
     Debug.Print Me.Controls("chk" & i)
        If Me.Controls("chk" & i) <> 0 Then
            strChk = strChk & Me.Controls("label" & i).Caption & ";"
        End If
    Next
    If strChk <> "" Then
        txt1 = Left(strChk, Len(strChk) - 1)
    Else
        txt1 = ""
    End If
End Sub



通過循環該組控件名。把控件對應的標簽標題添加到文本框。最后把多余的分號“;”去掉。



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