[Resolvido]Enviar dados para Bloco de Notas

Caro ahteixeira, desculpe na tinha percebido que estava no repositório de exemplo.
Tenho 2 consulta, ou seja: Consulta_1 e Consulta_2, estou conseguindo gerar os dados em txt de uma,
esse e parte do código que cópia os dados: strSql = "SELECT Chr(34) & uf, mun, data & Chr(34) FROM Consulta_1 ORDER BY uf;"
tentei fazer assim:
strSql = "SELECT Chr(34) & uf, mun, data & Chr(34) FROM Consulta_1 ORDER BY uf;"
strSql = "SELECT Chr(34) & uf, mun, data & Chr(34) FROM Consulta_2 ORDER BY uf;"
O vb só reconhece o 1º código, tentei também, colocar ¨&" entre os dois, mas não deu certo.
Segue o BD_TESTE.
Desde já grato!

Olá, acontece, também não tinha reparado, no entanto verificamos o erro e foi rectificado.
Vamos ver se o administrador apaga o tópico errado.

Relativamente à sua questão, estive a ver o seu código e desconhecia a forma aplicada, com o MaximoAccess estamos sempre aprender

Acho que resolve com o código abaixo, apenas fiz uma consulta UNION e adaptei o código do tópico que tinha postado o link.

Substitua o código do botão por este:

Código:

Public Sub fConexao()
'Alvaro Teixeira 2015
ficheiro = Forms!frm_exportar!Diretorio & "\" & Forms!frm_exportar!Combinação3 & ".txt" 'caminho e ficheiro

   Open ficheiro For Output As #1 'abrir ficheiro para escrita
                
        Dim db As Database, RS As Recordset
        Dim strSQL As String
        Set db = CurrentDb
            strSQL = "TABLE [Consulta1] UNION ALL SELECT *  FROM Consulta2;" 'origem dos dados, neste caso consulta União
            Set RS = db.OpenRecordset(strSQL)
            With RS
                Do While Not .EOF 'vai correr e adicionar linha a linha
                    Print #1, Chr(34) & RS.Fields(0) & """;""" & RS.Fields(1) & """;""" & RS.Fields(2) & Chr(34)
                    .MoveNext
                Loop
            End With
        
        RS.Close
        db.Close

    Close #1

    MsgBox "Arquivo gerado com sucesso!", vbInformation, "Exportação"
End Sub

Abraço

Muito Obg. ahteixeira, ficou perfeito exatamente o que precisava,      
Seria possível inserir um texto fixo no cabeçalho do bloco de notas, ou seja:
UF; MUNICIPIO; DATA
"PB";"JOAO PESSOA";"14/06/2014"
"CE";"FORTALEZA";"15/06/2015"
"RN";"NATAL";"14/06/2015"
"PE";"RECIFE";"17/06/2015"

Olá, obrigado pelo retorno.
Relativamente à questão, não sei se estudaste o código, mas será apenas usar:

Print #, ....

Na linha anterior onde tem:

With RS

Abraço