Sql TE来自[Local T]，第二步：插入[Local T]并从[Table n]中选择*直到出现错误，第三步：从[Local T]中选择*。我将尝试这个解决方案。是的，很好的一点-只需继续附加到一个本地表，而不是将它们分开。好主意。此外，我不需要创建100

---

TE来自[Local T]，第二步：插入[Local T]并从[Table n]中选择*直到出现错误，第三步：从[Local T]中选择*。我将尝试这个解决方案。是的，很好的一点-只需继续附加到一个本地表，而不是将它们分开。好主意。此外，我不需要创建100个本地表。一张本地桌子就足够了。第一步：从[Local T]中删除，第二步：插入[Local T]中，从[Table n]中选择*直到出现错误，第三步：从[Local T]中选择*。我将尝试这个解决方案。是的，很好的一点-只是继续附加到一个本地表，而不是将它们分开。

SELECT * FROM [Table 1]
UNION ALL
SELECT * FROM [Table 2]
UNION ALL 
SELECT * FROM [Table 3]
....
SELECT * FROM [Table 100]

Dim db as DAO.Database
Dim wrk as DAO.Workspace
Dim tdf as DAO.TableDef

Set wrk = DBEngine.Workspaces(0)
Set db = wrk.OpenDatabase(databasePath, False, False, connection type/password)

For Each tdf in db.TableDefs
    'Add it to your query string here.
Next 

db.close
wrk.close
Set tdf = Nothing
Set db = Nothing
Set wrk = Nothing