如何提取数据库中所有窗体的名称

jhzlzc29

同上

Roadbeg

用 forms 集合

竹笛

查zhuyiwen的中国access xp FAQ网，别说你从没去过啊？

Roadbeg

dim ad as object
for each ad in currentdb.forms
debug.print ad.name
next

jhzlzc29

我找了实在是找不到，谢谢Roadbeg可是我的目的是要把做为例表框 的数据源

Roadbeg

实例:
设有 ComboBox: cboA
则:
dim ad as object
dim Source as string
for each ad in currentdb.forms
source=source+","+ad.name
next
source=right(source,len(source)-1)

cboA.rowsourcetype="值列表"
cboA.rowsource=source

竹笛

通过查询返回数据库对象的名称


作    者：Dev Ashish  
发布日期：2002年11月13日
摘    要：怎样使用一个查询获得数据库对象的名称(查询/窗体/表/报表/模块/宏)

正    文：

(问): 怎样使用一个查询获得数据库对象的名称(查询/窗体/表/报表/模块/宏)?

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

注: 请不要有意或无意地修改任何ACCESS系统表,否则会出现不可意料的情况.

使用下列 SQL 语句来获取你想要的

查询:

1. SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=5 ORDER BY MSysObjects.Name;

复制代码

窗体:

1. SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)=-32768 ORDER BY MSysObjects.Name;

复制代码

表:

1. SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;

复制代码

报表:

1. SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32764 ORDER BY MSysObjects.Name;

复制代码

模块:

1. SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32761 ORDER BY MSysObjects.Name;

复制代码

宏:

1. SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (MSysObjects.Type)= -32766 ORDER BY MSysObjects.Name;

复制代码

翻译:  朱亦文

竹笛

这么好的网站不去，真是可惜：http://bcd.office-cn.net

jhzlzc29

谢谢，版主

bpchan

学习