Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间:2022-04-26 09:24:59
作 者:金宇   ID:43  城市:江阴
摘 要:遍历窗体获取组合框和列表框行来源。
正 文:

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

    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交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助