Access勾選復(fù)選框?qū)?yīng)標(biāo)簽添加到文本框

在以前發(fā)布的文章《Access 復(fù)選框多選添加到文本框》中。我們講到把勾選的復(fù)選框內(nèi)容添加到文本框。

用的是遍歷窗體上所有復(fù)選框控件，但是有的網(wǎng)友說窗體上個(gè)人信息選擇，有多組不相關(guān)的復(fù)選框。

下面分享一個(gè)示例，勾選復(fù)選框，把對應(yīng)的標(biāo)簽標(biāo)題添加到文本框

這里注意控件命名即可。復(fù)選框控件命名為 chk1到chk5，同理對應(yīng)的標(biāo)簽也命名為label1到label5

詳細(xì)代碼：

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

通過循環(huán)該組控件名。把控件對應(yīng)的標(biāo)簽標(biāo)題添加到文本框。最后把多余的分號“；”去掉。