附加到联盟查询

Question

是否可以使用VBA向Union查询添加另一个查询？例如，union查询的sql：

select Max(qryTRInputPriorityList_SS.DT1) AS MaxOfDT1
From qryTRinputPriorityList_SS
UNION ALL select Max(qryTRInputPriorityList_MB.DT1) AS MaxOfDT1
From qryTRinputPriorityList_MB;

并使用VBA我想向上面的sql添加另一个选择查询：

select Max(qryTRInputPriorityList_SS.DT1) AS MaxOfDT1
From qryTRinputPriorityList_SS
UNION ALL select Max(qryTRInputPriorityList_MB.DT1) AS MaxOfDT1
From qryTRinputPriorityList_MB
UNION ALL select Max(qryTRInputPriorityList_GS.DT1) AS MaxOfDT1
From qryTRinputPriorityList_GS;

任何代码示例或任何有用的东西，

谢谢

Answer 1

是：

Dim Sql As String

Sql = Replace(CurrentDb.QueryDefs("Query1").SQL, ";", vbCrLf)
CurrentDb.QueryDefs("Query1").SQL = Sql & CurrentDb.QueryDefs("Query2").SQL

Query1现在保存两个查询的组合SQL。

对于重复使用，将Query1的原始SQL存储在某处。