安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

Access勾选复选框对应标签添加到文本框

2018-11-20 15:49:00
tmtony8
原创
1252

在以前发布的文章《Access 复选框多选添加到文本框》中。我们讲到把勾选的复选框内容添加到文本框。

用的是遍历窗体上所有复选框控件,但是有的网友说窗体上个人信息选择,有多组不相关的复选框。


下面分享一个示例,勾选复选框,把对应的标签标题添加到文本框



这里注意控件命名即可。复选框控件命名为 chk1到chk5,同理对应的标签也命名为label1到label5



详?#22797;?#30721;:

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



通过循环该组控件名。把控件对应的标签标题添加到文本框。最后把多余的分号“;”去掉。



    分享
    ? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:3
    内存?#21152;茫?b>4.50MB
    PHP 执行时间:0.08
    双色球大奖2000年
    安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假