[Resolvido]Export "txt" file

Hello,

I would appreciate some help with a problem I am trying to solve.

I don't have much knowledge of creating macros and I need to create one to export a table in a “txt” file with some field properties:

- Each field need to be separated with a comma and a space (“, ”)
- Time:hh:mm:ss
- Total Value: €€€.cc
- Blanckfield: field with empty data
- Name:ClientName
- Finish with a comma “,”

Example of the input information:

Time:09:39:29 01/01/20222
TotalValue: 134,35
ClientName: Client01

Example of the output information in the text file:

09:39:29, 134.35, , Client01,

I already create a query trying to transform the input data but I really need some help...

Any suggestions would be greatly appreciated!

Thank you in advanced.

Hi Paula,

This forum is in Portuguese, so if possible please reply in this language.

As for the question, you can ask in a query:

1-Create a new query
2-Change the structure view to SQL view
3-Caste the code below and test

Código:

SELECT Format([Data],"hh\.nn:ss") & ", " & [Total] & ", , " & [ClientName] & "," AS [Output] FROM DataFile;

It is also possible to do in code, there is no lack of examples in the forum, it will be to do a search.
See this one for example where I helped colleague to delimit with PIPE:
https://www.maximoaccess.com/t21821p9-resolvidoexportar-para-ficheiro-txt-delimitado-por-pipe

Best regards

Boa tarde ahteixeira,

Adicionei o código que me indicou depois de alterar a vista para SQL e o output da informação parece estar correto!
No entanto, depois de várias tentativas para exportar a consulta final para um ficheiro com o formato "txt" não estou a conseguir.
Utilizei a opção criar uma macro com o evento "ExportarComFormataçao" com o formato de exportação "Ficheiros de texto txt" e também a opção de guardar uma exportação de um ficheiro txt, utilizando várias opções na janela de dialogo que aparece (Delimitado, escolhendo vários delimitadores dos campos, Tamanho fixo, etc) e não estou a conseguir obter no ficheiro final de "txt" o formato:

09:39:29, 134.35, , Client01,

Desculpe estar a incomodar novamente, mas existe alguma opção que não esteja a considerar para obter este resultado no ficheiro de exportação em formato texto?

Muito obrigado pela ajuda.

Cumprimentos,

Olá Paula,

Pensei que fosse para utilização unica, com a consulta podia fazer Control+C (das linhas todas) e no no ficheiro TXT (no Notepad) Control+V.

Caso seja para várias utilizações, recomendo que veja o link da mensagem nr 2 e tem exemplo.

No seu caso o código ficaria assim:

Código:

Private Sub Comando0_Click()
'Alvaro Teixeira 2021
ficheiro = Application.CurrentProject.Path & "\exportacao.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 = "SELECT Output.* FROM Output;" 'origem dos dados, aqui pode configurar filtros do pretendido
            Set RS = db.OpenRecordset(strSQL)
            With RS
                Do While Not .EOF 'vai correr e adicionar linha a linha
                    Print #1, RS.Fields(0)
                    .MoveNext
                Loop
            End With
        
        RS.Close
        db.Close
    
    Close #1
    
    MsgBox "Efetuado para: " & ficheiro, vbInformation, ""
End Sub

Abraço

Bom dia Paula,

Hoje verifico que na mensagem nº 2, por lapso o separador da horas para os minutos ficou um ponto.
Segue o correcto:

Código:

SELECT Format([Data],"hh:nn:ss") & ", " & [Total] & ", , " & [ClientName] & "," AS [Output] FROM DataFile;

Relativamente à minha mensagem anterior, se tiver dificuldades estamos cá para ajudar.

Abraço

Boa tarde ahteixeira,

Lamento a demora na minha resposta, contudo estive a realizar vários testes no meu access original com o código que me indicou.

O código funciona na perfeição, o resultado é exatamente o que necessitava aplicar na minha base de dados.

Muito obrigado pela sua ajuda!

Olá Paula,

Fico feliz por ter ajudado.

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Bom dia ahteixeira,

Obrigado mais uma vez pela ajuda! o tópico ficou resolvido.

Cumprimentos,