AllModules集合

来源:网上转载 点击数:6010 　 | 收藏 | 复制

时　间:2008-04-19 08:14:50
作　者:金宇整理 ID：43 城市：江阴
摘　要:AllModules 集合包含对应于 CurrentProject 或 CodeProject 对象中每个模块（模块：存储在一起作为一个命名单元的声明、语句和过程的集合。有两种类型的模块：标准模块和类模块。）的 AccessObject 对象。
正　文:

AllModules 集合
全部显示
全部隐藏
AllModules 集合包含对应于 CurrentProject 或 CodeProject 对象中每个模块（模块：存储在一起作为一个命名单元的声明、语句和过程的集合。有两种类型的模块：标准模块和类模块。）的 AccessObject 对象。
说明

CurrentProject 或 CodeProject 对象具有一个 AllModules 集合，其中包含描述由 CurrentProject 或 CodeProject 指定的所有 Module 对象的实例的 AccessObject 对象。例如，可以在 Visual Basic 中列举 AllModules 集合来设置或返回该集合中单个 AccessObject 对象的属性值。

可以按照名称或对象在集合中的索引来引用 AllModules 集合中的单个 AccessObject 对象。如果要引用 AllModules 集合中特定的对象，最好按照名称引用模块，因为模块的集合索引可能会更改。

AllModules 集合的索引是从零开始的。如果使用索引来引用模块，则第一个模块是 AllModules(0)，第二个模块是 AllModules(1)，依此类推。

  注释
要列出数据库中所有打开的模块，请使用 AllModules 集合中每个 AccessObject 对象的 IsLoaded 属性。然后，可使用各个 AccessObject 对象的 Name 属性返回模块的名称。

不能在 AllModules 集合中添加或删除 AccessObject 对象。

示例

下面的示例打印 AllModules 集合中每个打开的 AccessObject 对象的名称。

Visual Basic for Applications
Sub AllModules()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllModules collection.
    For Each obj In dbs.AllModules
        If obj.IsLoaded = True Then
            ' Print name of obj.
            Debug.Print obj.Name
        End If
    Next obj
End Sub

Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】