[ACCESS VBA]如何用循环附加表？

Question

我想将多个tabke附加到一个表中，所有表都有相同的字段。

我试过以下代码：

Sub tr1()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strSQL As String
Set db = CurrentDb


db.Execute "Delete * From Grouping"

For Each tdf In db.TableDefs
If (tdf.Name Like "ab*" Or tdf.Name Like "cd*") Then
strSQL = "INSERT INTO Grouping " & " SELECT * FROM" & tdf.Name & ";"
db.Execute strSQL

End If
Next
End Sub

但是，我对这些代码有误，我不知道如何修复它。

有人可以帮忙吗？

Answer 1

使用您的代码：

strSQL = "INSERT INTO Grouping " & " SELECT * FROM" & tdf.Name & ";"

FROM和表名之间没有空格。 它应该是：

strSQL = "INSERT INTO Grouping " & " SELECT * FROM " & tdf.Name & ";"

下次请做一些基本调试！