表和查询的名称列表可以分别通过TableDefs和QueryDefs对象集合来获取，先用count方法获取当前Access中表或者查询的数量：

                 CurrentDb.TableDefs.Count

                 CurrentDb.QueryDefs.Count

  然后使用For循环依次获取每个表或者查询的名称，使用对象集合中的Name属性：

CurrentDb.TableDefs([对象序号]).Name

CurrentDb.QueryDefs([对象序号]).Name

其中个的对象序号表示该集合中的第几个对象，从0开始计数。

 获得窗体和报表的列表使用：

                  CurrentDb.Containers("forms").Documents.Count

                 CurrentDb.Containers("reports").Documents.Count 

先获得当前Access中窗体和报表的个数，然后：

                 CurrentDb.Containers("forms").Documents([对象序号]).Name

                 CurrentDb.Containers("reports").Documents([对象序号]).Name

获得各个对象的名称。

附   件:

点击下载此附件