Botão exportar txt

Olá sou iniciante em access e precisava exportar os dados de uma tabela que criei para um arquivo em .csv ou .txt se não for possível.
Eu até assisti alguns tutoriais mas não solveram o meu problema.
Eu até consigo fazer o processo usando o assistente de exportação pra txt, aí eu só renomeio o arquivo pra .csv e configuro como eu quero.
Mas eu queria deixar o processo mais simples, criando algum botão ou macro sei lá que eu apenas clicasse e ele gerasse o arquivo.

Eu preciso que:
- o delimitador de campo seja a vírugla (,)
- o qualificador de texto seja as aspas (")
- e o símbolo decimal seja arroba (@)
o resultado final da linha teria que sair exatamente como os 3 registros de exemplo abaixo:

"1",,"1","1",,,,,,,,,,,"1",,,,,,,,,,,,,,,,,"1","1",,,,,,,,,,,,"20000","4",,,,"AddHp(10)",,,,,,,,,,,,"cpsw01",,,"0"
"2",,"1","2",,,,,,,,,,,"1",,,,,,,,,,,,,,,,,"1","1",,,,,,,,,,,,"40000","8",,,,"AddHp(20)",,,,,,,,,,,,"cpsw01",,,"0"
"3",,"1","3",,,"1",,,,,,,,"1",,,,,,,,,,,,,,,,,"1","1",,,,,,,,,,,,"60000","12",,,,"AddHp(30)",,,,,,,,,,,,"cpsw01",,,"0"

Isso é possível?

Obrigado pela atenção!
Em anexo um exemplo do meu banco

Amigo, aqui no Forum tem Varios Exemplos! Mas lhe recomendo esse que montei para Exportar Vendas.

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

Pegue como Base, mude o formato e o Delimitador, pois no Exemplo usei o | como delimitador.

Parece ser pefeitamente o que eu preciso, mas estou totalmente perdido no meio desse monte de códigos

Entao, poste seu Aplicativo.

So um agravante no seu Caso, esse qualificador "" e complicado, pois ele é caracter especial... Eu desconheço como utilizar ele... Pode ser outro?

Oi Fabio, fico grato pelo suporte e atenção!
Está no anexo o banco que preciso montar.
É o seguinte, precisa ser as aspas duplas porque em algumas colunas vai haver vírgulas
por exemplo:
"Foi procurado, mas não foi encontrado",
Dentro da coluna tem uma vírgula e o programa que vai rodar os arquivos só usa o aspas duplas pra delimitar nesse caso. :/
Será que existe solução ou vou ter que fazer sempre manualmente a exportação?

Faltou so falar o que vc quer Exportar! rererererere

https://www.dropbox.com/s/hc78le9ek6h96m2/Editor.zip?dl=0
Aqui esta uma previa do que eu acho que vc quer exportar, nao esta completo... Basta vc editar o codigo e add os campos que precisa exportar...

Como são muito ne... e nem sei se é essa tabela mesmo que quer exportar, deixei pra vc completar!


Obs: Ao abrir com Excel o Arquivo exportado, ele OMITE a primeira aspa do primeiro Campo ". Mas ela está la... Basta abrir com o Notepad que vc a verá!

Exemplo com alguns Campos:

"1","","1","20000","AddHp(10)","cpsw01"
"10","","7","180000","","cpsw01"
"100","","13","15000","","ic_iu009"
"10000","","10000","3000","","cpsw01"
"10001","","10001","3000","","ic_buff_stun"
"10002","","10002","10000","","cpsw01"

Perfeito Fabio! Creio que foi resolvido!!! E perdão por não detalhar bem o que eu precisava! rsrsrs
Agora é paciência pra por os campos, eu preciso de todos eles na verdade, não tem uma expressão que faça
ele exportar todos os campos direto? Ou vou ter que colocar um por um?
Eu tenho uma tabela aqui que são 125 campos!

A relaxa, sao so 125 campos!


rererererere

Fala Fabião, depois de mais de um mês e tirando um pouco de tempo cada dia, consegui cadastrar todos os campos de todas as tabelas
e formulários e elas estão exportando perfeitamente! Obrigado!

Agora só tem mais um problema, eu preciso que o título da coluna seja exportado também! E até tentei cadastrar os títulos
mas eles aparecem só no final da tabela, eles precisam estar no topo!

Desde já agradeço brother!!!

Feliz dia dos pais!!! rsrsrs

Amigo, para isto basta colocar a linha antes do Loop (Do While Not rs.EOF)



Veja como ficou no exemplo postado por mim...

Código:

'------------------------------------------------------'
'Criado por Fabio Paes em 12/07/2016   '
'Para o Maximo access                             '
'------------------------------------------------------'
Dim strArquivo As String
Dim DB As Database
Dim rs As DAO.Recordset
Dim F As Integer

strArquivo = Application.CurrentProject.Path & "\Exportacao.CSV" 'Caminho e Nome do Arquivo
Set DB = CurrentDb()
F = DCount("ID", "Effect")
Set rs = DB.OpenRecordset("SELECT * FROM effect")

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

'CABEÇALHO COM OS NOMES DOS CAMPOS AQUI
Print #1, "NOMECAMPO1" & "," & "NOMECAMPO2" & "," & "NOMECAMPO3" & "," & "NOMECAMPO255"

Do While Not rs.EOF 'Inicia o Primeiro Loop para gravar os dados do primeiro registro da tabela tbVendas
'Coloque aqui os campo na ordem da exportação. """" para Imprimir a aspa "noiniciocampo e repita no final tambem
Print #1, """" & rs("ID") & """" & "," & """" & rs("Name") & """" & "," & """" & rs("m_Type") & """" & "," & """" & rs("LoadingTime") & """" & "," & """" & rs("LoadingSelf") & """" & "," & """" & rs("icon") & """"

rs.MoveNext
Loop

'Fecha as conexoes
rs.Close
DB.Close
Close #1
    
MsgBox "Foram Exportados " & F & " Registros para o Aquivo: " & vbNewLine & strArquivo, vbInformation, ""

Perfeito Fábio!
Agora sim 100% resolvido, é normal em determinadas situações o código ter que ser gigante assim?
Ou com o tempo a gente vai aprendendo formas de encurtar o código?

Abraço!

Nesse caso especifico, nao ha como encurtar... infelizmente... Mas nesse caso nao ficou grande... ficou muito repetitivo devido a qndt de campos, mas as instruçoes em si ficaram pequenas...