[ACCESS VBA] Как добавить таблицы с циклом?

Question

Я хотел бы добавить несколько таблиц в одну таблицу, в которой все таблицы имеют одинаковые поля.

Я попытался ниже коды:

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 & ";" 

Пожалуйста, некоторые основные отладки в следующий раз!