adding a footer to an export

[nhylan]

Hello,

I need to add a static footer ("limited access") to a query I export. Is there a simple way to do this given the code I'm using?

Private Sub Command58_Click()
DoCmd.OutputTo acOutputQuery, "Query Union", "ExcelWorkbook(*.xlsx)", "\\mflccg02\lib\stevez\Blackrock\Trade Processing Team\foreign exchange\FX Files\BBH_Foreign_Exchange " & Format(Date, "mm-dd-yyyy") & ".xlsx", True, "", , acExportQualityPrint
DoCmd.SetWarnings False
DoCmd.OpenQuery "AppendNonAgent", acViewNormal, acEdit
DoCmd.SetWarnings False
DoCmd.OpenQuery "AppendAgent", acViewNormal, acEdit
End Sub

[pbaldy]

The first way that comes to mind is to export a UNION query that adds the footer line to the end of the existing query.

[nhylan]

Thanks, is there a way to do that using SQL? I have very limited experience using access so any help is greatly appreciated.

[pbaldy]

A UNION query is SQL:

SELECT Field1, Field2
FROM OneSource
UNION ALL
SELECT Field1, Field2
FROM AnotherSource