[Resolvido]Exporta Consultar para TXT

Pessoal, bom dia

Estou com uma pequena dificuldade, criei um consulta "ConsVT-Importacao" com critério de filtro, porem quando vou exportar o mesmo através do menu  do access DadosExterno\Arquivo de Texto o mesmo me da um erro "Paramentro Insuficiente. Eram esperados 1", pois neste arquivo de exportação eu preciso que o mesmo contenha o filtro e que as colunas sejam separados atraves de Ponto e Virgula, pois este arquivo será exportado para um sistema de compra de vale Transporte.

Preciso muito da ajuda de vcs.

Ficarei no aguardo

Esta exportando pela consulta?

Caio, estou fazendo a exportação direto para da consulta, logo apos quando der certo estarei colocando um comando em um formulario.

Faz assim:

Coloque nos criterios da consulta do form os termos de busca. e os mesmos em uma consulta desvinculada, no evento "ao clicar" do Botão exportar crie uma macro para exportarComFormatação dai lá vc escolhe o tipo de documento a ser exportado.

se caso não funcionar, mandar para o e-mail: caio.fabio91@gmail.com

Caio,

Não consegui fazer conforme descrito, seria possivel me ajudar! Passei para o seu email.

Att

Amigo, na certa nao deu uma pesquisada aqui no Fórum nao foi? Pois existem vários Exemplos sobre o assunto!

Recomendo esse exemplo aqui:https://www.maximoaccess.com/t26818-exportar-vendas-notas-fiscais-com-delimitador-para-txt

Crie um Formulario para a Exportação, igual a imagem a baixo:



Agora o comando do btExportar coloque isso, ao clicar:

Private Sub btExportar_Click()

'------------------------------------------------------'
'Criado por Fabio Paes em 15/09/2016                   '
'Para o Maximo access                                  '
'------------------------------------------------------'

Dim strArquivo As String
Dim DB As Database
Dim rs As DAO.Recordset

strArquivo = Application.CurrentProject.Path & "\Vendas.txt" 'Caminho e Nome do Arquivo
Set DB = CurrentDb()

Set rs = DB.OpenRecordset("SELECT CadVTTomador.CadVTT, CadVTTomador.DataCompra, CADASTRO_FUNC.CODIGO, CADASTRO_FUNC.NOME, CadVTFuncionario.Valor " & _
"FROM CADASTRO_FUNC INNER JOIN (CadVTFuncionario INNER JOIN (CADASTRO_TOMADOR INNER JOIN CadVTTomador ON CADASTRO_TOMADOR.CODTOMADOR = CadVTTomador.Tomador) ON CadVTFuncionario.CodVTF = CadVTTomador.CadVTT) ON CADASTRO_FUNC.CODFUNC = CadVTFuncionario.CadFunc " & _
"WHERE CadVTTomador.CadVTT = " & [Forms]![Formulário1]![cboVTT] & "") '[Forms]![Formulário1]![cboVTT] é a combo onde seleciono o VTT

Open strArquivo For Output As #1 'Abre o arquivo para iniciar a escrita

Do While Not rs.EOF 'Inicia o Primeiro Loop para gravar os dados do primeiro registro da Consulta
Print #1, ";" & rs("CadVTT") & ";" & rs("DataCompra") & ";" & rs("CODIGO") & ";" & rs("NOME") & ";" & Format(rs("Valor"), "##.00") & ";"
'Vai para a Proxima linha para gravar no arquivo Texto
rs.MoveNext
Loop

'Fecha as conexoes
rs.Close
Set rs = Nothing
DB.Close
Set DB = Nothing
Close #1
MsgBox "Dados Exportados para o Arquivo: " & vbNewLine & strArquivo, vbInformation
End Sub



Mensagem editada!

Fabio,

Fiz conforme me passou, porem esta dando erro na ligação entre o banco de dados, certo que o mesmo esta vindo de uma consulta.

Abaixo a imagem

Veja se atente a sua necessidade.

E como o nosso amigo FabioPaes mencionou... procure antes!
E o exemplo dele é ótimo.

Pessoal,

Venho agradecer muito a ajudar de vcs..... ficou muito bom... otimizou o meu tempo para comprar de Vale Transporte na Empresa em até 7 hs de trabalho a qual tinha q lançar um por um.

Muito Obrigado!

O forum agradece.

Não esquece de dar como resolvido.

Bacana amigo, marque o tópico como resolvido! assim facilita a pesquisa!

OK, Obrigado a todos! Sempre a disposição!