[Resolvido]Colocar registros separados

Boa tarde, pessoal tem um tabela com os seguintes registros assim:

Func Dt E E-L S-L E-LD S-LD Fim
teste 08/06/2011 07:00 08:00 08:10 09:20 09:30 18:00


Preciso criar um aconsulta que retorne desta forma:
Teste 08/06/2011 07:00
Teste 08/06/2011 08:00
Teste 08/06/2011 08:10
Teste 08/06/2011 09:20
Teste 08/06/2011 09:30
Teste 08/06/2011 18:00
e depois crie um arquivo .TxT Há como fazer isso tentei fazer pela tabela de referencia cruzada mais não consegui

Se você precisa disso apenas para exportação, pode fazer direto, sem consulta. Dê uma olhada no Repositório de Códigos VBA ou pesquise por exportação para txt que você encontra a solução.

vou pesquisar

Existem outras maneiras tambem. Uma delas, seria criando um relatório à partir da tabela com apenas um campo, e nesse campo, colocar assim:

=[NomeTabela.NomeCampo1] & " " & [NomeTabela.NomeCampo2] & " "[NomeTabela.NomeCampo3]

Depois, usar uma macro para exportar para txt.

Pesquisei encontrei o seguinte código quase me atendeu :
'Inicio++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'Constantes
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8
'Declarando variáveis
Dim fso As Object
Dim ts As Object
'Reerencia o endereço dos objetos nas variáveis
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\ExportaçãoIPASGO.txt", FOR_WRITING, True)
'Percorre os registros da ListBox
For i = 0 To Lista.ListCount - 1
ts.WriteLine Lista.Column(1, i)
ts.WriteLine Lista.Column(2, i)
ts.WriteLine Lista.Column(3, i)
Next
'Fim+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
até descobri como inserir mais linhas preciso que fique neste padrão:
11111111111|2011-05-02 07:37:02.670|||

Talvez seja assim:

'Inicio++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'Constantes
Const FOR_READING = 1
Const FOR_WRITING = 2
Const FOR_APPENDING = 8
'Declarando variáveis
Dim fso As Object
Dim ts As Object
'Reerencia o endereço dos objetos nas variáveis
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\ExportaçãoIPASGO.txt", FOR_WRITING, True)
'Percorre os registros da ListBox
For i = 0 To Lista.ListCount - 1
ts.WriteLine Lista.Column(1, i) & " " & ts.WriteLine Lista.Column(2, i) & " " & ts.WriteLine Lista.Column(3, i)
Next
'Fim+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

nesta linha que modifiquei está aparecendo erro de Sintaxe

Pessoal tentei montar uma consulta referencia cruzada e não consegui meu probelma é montar so dados desta forma:
Func Dt E E-L S-L E-LD S-LD Fim
teste 08/06/2011 07:00 08:00 08:10 09:20 09:30 18:00


Preciso criar um aconsulta que retorne desta forma:
Teste 08/06/2011 07:00
Teste 08/06/2011 08:00
Teste 08/06/2011 08:10
Teste 08/06/2011 09:20
Teste 08/06/2011 09:30
Teste 08/06/2011 18:00
em um relatório consigo fazer, mas como exporto depois em txt?

Tente:

DoCmd.OutputTo acOutputReport, "NomeDoRelatório", "MS-DOSText(*.txt)", "C:\Arquivos\rel.txt", True, "", 0, acExportQualityScreen

apareceu argumento inválido

Inválido aonde? Em qual linha?

Nesta linha DoCmd.OutputTo

este comando que aparece com erro OutputTo, alguma idéia do que pode estar errado?

Alguém pode me ajudar não consegui identificar o erro no código

Mostre toda a instrução para vermos onde está o erro.

este éo código para exportar um relatório para Txt.


DoCmd.OutputTo acOutputReport, "NomeDoRelatório", "MS-DOSText(*.txt)", "C:\Arquivos\rel.txt", True, "", 0, acExportQualityScreen

Não visualizo o porquê de estar a dar erro, pois parece-me tudo certo com o código. Se possível, disponibilize uma cópia do seu aplicativo seguindo as dicas abaixo ↓↓↓

Caros amigos consegui identificar o erro, segue abaixo o código correto:

DoCmd.OutputTo acReport, "IPASGO", "MS-DOSText(*.txt)", "", True, ""


Obrigado a todos

Esqueceu o resolvido.

Bom dia, pessoal estou reabrindo este tópico pois os registros que estou exportando para Txt estão saindo todos desconfigurados gostaria que saissem todos alinhados, está saindo assim:

319.100.411-49 | 01/02/2011 06:45

319.100.411-49 | 01/02/2011
319.100.411-49 |
01/02/2011
319.100.411-49 | 01/02/2011 13:03:00

quando deveriam sair assim:
319.100.411-49|01/02/2011 06:45
319.100.411-49|01/02/2011
319.100.411-49|01/02/2011
319.100.411-49|01/02/2011 13:03:00

Este código que estou utilizando para exportar.

DoCmd.OutputTo acReport, "Teste", "MS-DOSText(*.txt)", "", True, "", acExportDelim

Como não retornou, o tópico está resolvido. Qualquer coisa reabra, por favor.

Caso o amigo ainda não tenha resolvido essa pendenga, procure pelo forum que tem tópicos já resolvidos com exemplos de exportação por vba, que é mais prático e sai exatamente como definirmos.

É isso Criquio. Obrigado.