Office中国论坛/Access中国论坛

标题: 如何得到所有报表的名称？ [打印本页]

作者: chengyi 时间: 2004-7-23 17:34
标题: 如何得到所有报表的名称？
如何得到所有报表的名称？

我要把报表的名称放到一个组合框中。

作者: hi-wzj 时间: 2004-7-23 17:51
帮助中的例子：

AllReports 集合示例以下示例打印在 AllReports 集合中打开的 AccessObject 对象的名称。

Sub AllReports()

Dim obj As AccessObject, dbs As Object

Set dbs = Application.CurrentProject ' 在 AllReports 集合中搜索打开的 AccessObject 对象。 For Each obj In dbs.AllReports

      If obj.IsLoaded = TRUE then          '打印对象的名称。

         Debug.Print obj.Name

      End If

Next obj

End Sub

更简单的方法：列表框的数据源中输入：

SELECT Name FROM MSysObjects WHERE Type=-32764;

[此贴子已经被作者于2004-7-23 9:55:55编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)