Добавить запрос - несколько таблиц в одну таблицу - PullRequest
Новая
       38

Добавить запрос - несколько таблиц в одну таблицу

0 голосов
/ 29 ноября 2018

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

Есть ли способ с помощью кода VBA или, возможно, UNION сделать это? 

SELECT tbl_SCCMQ.CONTRACT_ACCOUNT_NUMBER, tbl_SCCMQ.BP_Partner, tbl_SCCMQ.CONTRACT_NUMBER, tbl_SCCMQ.BILL_TO_DATE, tbl_SCCMQ.CONTRACT_START_DATE, tbl_SCCMQ.AGEING_DATE, tbl_SCCMQ.DateDiff, tbl_SCCMQ.PAYMENT_TYPE, tbl_SCCMQ.BP_Type, tbl_SCCMQ.[Next Bill Due Date], tbl_SCCMQ.[BAND], tbl_SCCMQ.RAG, tbl_SCCMQ.BILL_STATUS INTO tbl_01_Resi_CCQ_R1_4_Never_Billed_NoSS
FROM tbl_SCCMQ
WHERE (((tbl_SCCMQ.BP_Type)="B2C") AND ((tbl_SCCMQ.RAG) Like "R*") AND ((tbl_SCCMQ.BILL_STATUS)="First") AND ((tbl_SCCMQ.BILL_BLOCK) Is Null) AND ((tbl_SCCMQ.BILL_LOCK) Is Null) AND ((tbl_SCCMQ.INVOICE_LOCK) Is Null));

Вот две таблицы, 

qry_01_Resi_CCQ_R1_4_Never_Billed_NoSS

qry_02_SME_CCQ_R1_4_Never_Billed_NoSS

, и они хотели бы импортировать их вОсновная таблица «Данные»

Я совершенно новичок в Access, VBA и т. д.

1 Ответ

0 голосов
/ 30 ноября 2018

ваш вопрос выглядит так, как будто вы знаете, как решить проблему.

Примечание: запросы с 1 по 8 должны иметь одинаковое количество полей, а типы данных должны быть согласованы для порядковой позиции каждого поля (как указано в вашем вопросе.)

Синтаксис SQL для создания новой таблицы (данных) из запросов: 

select *
INTO Data
from (
select * from query1
union all
select * from query2
union all
...
union all
select * from query8
) as queryData

или синтаксис SQL для добавления данных в существующую таблицу: 

INSERT INTO Data
select *
from (
select * from query1
union all
select * from query2
union all
...
union all
select * from query8
) as queryData

VBAсинтаксис для выполнения запроса в коде: 

dim db as dao.database: set db = Currentdb
dim strSQL as string

strSQL = "...." ' as above
db.execute strSQL
...