请教：如何能把表、查询、报表清单打出来？

一点通

以下是引用yufei6789在2006-1-18 14:53:00的发言：


可是俺就会使用向导，不会编程啊。青青教的这段写到哪里去啊？俺就这水平编个管理方面的东西，六十多M呢，也不知道其中有多少垃圾，唉，真羞死人了。请再指点一下好吗？俺纯自学的[em04]

如果没有图片，这个容量可说是天文数字了，你试下用系统自带的工具压缩一下

hi-wzj

Access 系统表 MsysObjects 包含了数据库对象列表, 尽管未在文档中记载, 你仍可通过查询它来获取你想要的.

查询:
SELECT Name FROM MsysObjects WHERE Left$([Name],1)<>"~" AND Type=5 ;
窗体:
SELECT Name FROM MsysObjects WHERE (Left$([Name],1)<>"~" AND Type=-32768;
表:
SELECT Name FROM MsysObjects WHERE Left$([Name],1)<>"~" AND Left$([Name],4) <> "Msys") AND Type=1;
报表:
SELECT Name FROM MsysObjects WHERE Left$([Name],1)<>"~" AND Type= -32764 ;
模块:
SELECT Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32761;
宏:
SELECT Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32766;

yufei6789

感谢几位大侠！