[求助]查询、窗体和报表的文件名称列表怎么取呢？

yufei6789

想把查询、窗体和报表中所做的查询、窗体和报表文件的名称列表取出来！

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

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

andymark

请查看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 11:18:58编辑过]

andymark

把查询报表添加到listbox的，可参考一下

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

xjlzfz

学习

submit732