【Access源码示例】-遍历窗体获取组合框和列表框行来源-金宇
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access源码示例】-遍历窗体获取组合框和列表框行来源

发表时间:2022/4/26 9:24:59 评论(0) 浏览(3527)  评论 | 加入收藏 | 复制
   
摘 要:遍历窗体获取组合框和列表框行来源。
正 文:

      有时我们需要获取整个项目中所有窗体中的组合框和列表框的行来源,可以使用以下代码实现:

    Dim fm    As AccessObject
    Dim ctl   As Control
    
    Me.txtNotes = ""
    For Each fm In CurrentProject.AllForms      '遍历所有窗体
        If fm.Name <> Me.Name Then
        Debug.Print fm.Name
            DoCmd.OpenForm fm.Name, acDesign
            For Each ctl In Forms(fm.Name).Form.Controls   '遍历窗体控件
                If ctl.ControlType = 111 Then  '如果窗体上有控件111组合框或110列表框
                    Me.txtNotes = Me.txtNotes & fm.Name & " " & ctl.Name & "组合框 行来源:" & ctl.RowSource & vbCrLf '取组合框和列表框的行来源
                End If
                If ctl.ControlType = 110 Then  '如果窗体上有控件111组合框或110列表框
                    Me.txtNotes = Me.txtNotes & fm.Name & " " & ctl.Name & "列表框 行来源:" & ctl.RowSource & vbCrLf '取组合框和列表框的行来源
                End If
            Next

            DoCmd.Close acForm, fm.Name, acSaveYes
        End If
    Next
    MsgBox "完成"

示   例:

点击下载此附件


演   示:

点击图片查看大图


Access软件网交流QQ群(群号:198465573)
 
 相关文章
遍历窗体控件,检测每个组合框和文本框是否设置了值  【  2009/6/30】
遍历窗体控件  【Aaron  2011/6/17】
遍历窗体全字段模糊查询  【一杯绿茶  2013/7/1】
如何遍历ACCESS中的窗体  【lzk  2015/12/24】
遍历组合框中所有值  【易勋  2019/1/24】
用For Each遍历表字段名及值  【  2019/8/22】
Access遍历窗体组合框或列表框获取行来源  【欧志华  2021/12/22】
常见问答
技术分类
相关资源
文章搜索
关于作者

金宇

文章分类

文章存档

友情链接