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

currentdb.execute "INSERT INTO Таблица1 SELECT * FROM " & TableName"

select * into some_table from
(
select field1, field2, ... fieldn from table1
union
....
select field1, field2, ... fieldn from tablen
) as a

Dim rst As ADODB.Recordset
Dim strSQL As String
Set rst = New ADODB.Recordset
strSQL = "SELECT MSysObjects.Type, MSysObjects.Name........"
rst.Open strSQL, CurrentProject.Connection
rst.MoveFirst
Do While Not rst.EOF
If Not rst!Name = "Таблица1" Then
CurrentDb.Execute "INSERT INTO Таблица1 SELECT * FROM " & rst!Name
End If
rst.MoveNext
Loop
rst.Close
set rst=nothing

select * into some_table from
(
select field1, field2, ... fieldn from table1
) as a

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы