[Resolvido]Enviar dados para txt com filtro

Caro amigos, ainda só iniciante no access, tenho que consultar os universitários ( ).
com ajuda do mestre ahteixeira, montei BD com envio dados para txt, funcionou tudo perfeito,
tentei inserir um filtro na data, para envio de dados para txt por data, o mesmo não deu certo ().
Como devo proceder? conto com ajuda de vcs, segue anexo o BD.
Desde já grato!

Olá Alberto, a propósito do seu tópico aproveitei para fazer uma questão aqui no fórum utilizando o seu exemplo (link)

Nos meus projectos também tenho várias consultas que depois resulta noutra que é a que utilizo no código (VBA).
Ora bem, temos (eu também) que aprofundar o conhecimento das instruções em SQL e assim fica mais fácil.
No seu caso tem duas consultas e no código VBA outra onde é efectuada a união e terá que ser efectuado aqui o "filtro".

Antes de responder à questão colocada, tenho uma questão a fazer em relação à sua tabela "Banco_dados"
A sua tabela está assim, existe alguma razão especial:


A modelagem de dados é muito importante e evitamos erros futuros, não acha que poderia ser assim:

Repare que tem a mesma informação e o "indentificador" (caso seja necessário) assim conseguimos obter os mesmo resultado através da tabela.

Bom, respondendo à sua questão, no campo data deve ser do tipo "data", altere, veja:


Nas consultas (1 e 2) coloque assim:


Abraço

Boa noite ahteixeira, obrigado pelo retorno, utilizo outro bd bem maior, fiz esse modelo só de exemplo,
o q não estou conseguindo é enviar os dados com filtro para txt, o mesmo gerar um erro na linha  
Set RS = db.OpenRecordset(strSQL), quando retiro os filtro da consulta1 e consulta1, ele funciona direitinho.

Olá ahteixeira, tentei modificar a origem dos dados de consulta1 e consulta2, para o formulário (frm_exportar) onde procedo o filtro nos dados, mas não deu certo, continua com erro (), segue o código, conto com ajuda de vcs.

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)
            Print #1, Chr(34) & "UF" & """;"""; "MUN" & """;"""; "DATA" & """;"""
            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

Olá Alberto,
1) Respondendo sua última questão o erro deve ser a instrução Sql, será melhor dizer qual o código do erro.

Verifico que está a colocar outra questão sem dar o retorno de como correu as indicações da mensagem nº 2, resolveu? Funcionou?
Além das questões ou assunto que abordei???
Como sabe este fórum é a interajuda de utilizadores, sem essa informação não podemos partilhar para outros utilizadores com a mesma situação.

No seguimento, pergunto:
2) Compreendeu a diferença da estrutura dos dados na tabela, não sei se é uma aplicação terceira que esta a gerar a tabela nesse formato ou se é de um projeto que está a construir.
Repare que ficava mais fácil e melhor estruturada (na minha opinião). Atenção que não quer dizer que esteja mal assim
Deve analisar o ponto de situação e o que é mais conveniente.

No aguardo
Abraço

ahteixeira, não consegui resolver , acho q me expressei mal no início, meu problema todo e q não consigo converter os dados para txt, com filtro utilizado no formulário (frm_exportar), pq a origem dos dados estão na consulta1 e consulta2 (strSQL = "TABLE [Consulta1] UNION ALL SELECT *  FROM Consulta2;"), queria modificar a origem dos dados para o formulário onde consta a list_consulta1 e list_consulta2, onde procedo o filtro por data; com relação a estrutura do BD tem q ser dessa forma, pois cadastro em cada linha do bd duas partes, ou seja, NOME1 e NOME2; vc baixou o anexo acima, ele já ta com filtro, mas gera um erro ao enviar os dados para txt (creio q seja devido a origem dos dados). obrigado pelo seu empenho em me ajudar.

Sim, mas no formulário ficou a filtar?
Alterou na tabela para o tipo data?

Conforme referi, deve ser efecuado tudo via instruçao sql.

Teste código abaixo:

strSQL = "SELECT UF1, Mun1, Data1 FROM Banco_dados WHERE " _
& "Banco_dados.Data1 >= #" & Format([Forms]![frm_exportar]![txtdatainicial], "mm/dd/yyyy") _
& "# And Banco_dados.Data1 <= #" & Format([Forms]![frm_exportar]![txtdatafinal], "mm/dd/yyyy") _
& "# UNION SELECT UF2, Mun2, Data2 FROM Banco_dados WHERE " _
& " Banco_dados.Data2 >= #" & Format([Forms]![frm_exportar]![txtdatainicial], "mm/dd/yyyy") _
& "# And Banco_dados.Data2 <= #" & Format([Forms]![frm_exportar]![txtdatafinal], "mm/dd/yyyy") & "#;"

Abraço

Muito obg. ahteixeira, tudo que precisava     ,
tentei várias formas montar o código, ñ cheguei nem perto do seu (),
segue o BD já modificado com filtro na data para estudo de todos do Forum.
OBRIGADO mais uma vez pelo seu empenho em me ajudar....
Abraço....

Alberto, obrigado pelo retorno, no entanto é melhor começar a estudar os exemplos e perceber o que estamos a fazer.
Volto a insistir, o retorno mais detalhado é muito importante para o enriquecimento do fórum.
Os utilizadores do fórum agradecem.
Abraço