access如何批量实现union合并所有表

Question

数据表的结构都一样 如何用UNION 批量合并所有表(有很多...)?
我是新建查询实现的：
SELECT * FROM 表1
UNION
SELECT * FROM 表2
UNION
SELECT * FROM 表3
UNION
SELECT * FROM 表4
......
UNION
SELECT * FROM 表N
请问我如何通过sql语句实现？？？

Answer 1

用vba生成sql字符串
然后docmd.runspl
大概语句：
sqlstring1=“”
sqlstring2=“SELECT * FROM 表"
for i=1 to 100
sqlstring1=sqlstring1 & sqlstring2 & i
if i<100 then
sqlsting1=sqlstring1 & " union "
end if
next

追问

问题是有很多表，我想让他自动判断有多少表 然后自动把表名加入代码中，请问怎么实现
比如我的表名如下
YDPOINT
LTPOINT
WTPOINT
DXPOINT
DSPOINT
TVPOINT
CSPOINT
RSPOINT
HSPOINT
YSPOINT
.......

追答

SELECT MSysObjects.Name into bm FROM MsysObjects WHERE (Left([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name;这个查询保存所有表名到bm表然后用for循环依次取表面和字符串组合吧