附加到联合查询

Question

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

df2[ ~df2.isin(df1)].dropna()

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

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

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

谢谢

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存储在某个地方。