Office中国论坛/Access中国论坛

标题: [求助]查询、窗体和报表的文件名称列表怎么取呢？ [打印本页]

作者: yufei6789 时间: 2006-9-3 18:12
标题: [求助]查询、窗体和报表的文件名称列表怎么取呢？
想把查询、窗体和报表中所做的查询、窗体和报表文件的名称列表取出来！

文档管理器中可以打出来，但打出来的不仅是文件名。我只想要一个名称列表，不要内容。请大侠们帮帮我！

[此贴子已经被作者于2006-9-3 10:28:34编辑过]

作者: andymark 时间: 2006-9-3 18:30
请查看AllQueries、AllForms 、AllReports相关帮助:

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

作者: yufei6789 时间: 2006-9-3 18:53
谢谢版主，俺是菜鸟，这段语句怎么用啊？能再指教一下吗

可能会太过分了，能请版主给个示例吗？这个问题困扰俺很久了，一直没解决

[此贴子已经被作者于2006-9-3 11:18:58编辑过]

作者: andymark 时间: 2006-9-3 19:17
把查询报表添加到listbox的，可参考一下

http://www.office-cn.net/forum.php?mod=viewthread&tid=38265&replyID=&skin=1

作者: xjlzfz 时间: 2009-5-20 11:38
学习

作者: submit732 时间: 2009-5-26 19:12

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