获取当前Access表、查询、窗体或者报表的名称列表

时　间:2015-07-12 00:45:18
作　者:逍遥小子   ID：34546  城市：防城港
摘　要:快速获取当前Access中的表、查询、窗体、报表对象的清单
正　文:

  表和查询的名称列表可以分别通过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

获得各个对象的名称。

附   件:

点击下载此附件