获取Access数据库中所有表或查询的方法

1. 使用Dao来获取

获取Access数据库中所有表列表

For Each tbl in Currentdb.TableDefs

Msgbox tbl.name

next

获取Access数据库中所有查询列表

For Each qdf in Currentdb.QueryDefs

Msgbox qdf .name

next

2.使用 系统表

获取Access数据库中所有表

SELECT MSysObjects.Name, MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Type)=1));