Exportação em TXT

Boa tarde

Novamente preciso da ajuda de voces.

Preciso fazer uma exportação para TXT de uns dados de minha tabela separados pelo caractere PIPE |. Até aí normal. Clico com o botão direito sobre a tabela e faço exportação em TXT.

O problema é que essa exportação deve ser por linhas, sendo que na 1a. linha vai informado os dados totais da NF e na linha debaixo tem que ir os dados constantes dessa NF. Na tabela já tenho os dados totais e os dados individualizados

Exemplificando:

Tabela registro tem os campos abaixo:

NF - No. da NF (01 numero para cada linha)
VRTOTAL - valor total da NF (valor total para cada linha)
ITEM - itens constantes da nf (são varios itens constantes da NF e devem ficar abaixo da linha de totais)

O arquivo deve ficar mais ou menos assim:

|20||1234|850,00| 'Total da NF 1234
|21|arroz|120,00| 'Item da NF 1234
|21|feijao|250,00| 'Item da NF 1234
|21|carne|480,00| 'Item da NF 1234
|20|1235|100,00| 'Total da NF 1235
|21|arroz|60,00| 'Item da NF 1235
|21|macarrao|40,00| 'Item da NF 1235

Será que alguem pode me ajudar?

Dê uma pesquisada por "exportar txt" no fórum. Temos vários tópicos com técnicas diferentes.

Criquio

Consegui um código mas está dando erro. Será que voce pode me ajudar?

O erro está dando nas linhas Print#N

Private Sub Comando186_Click()

Dim N As Integer
Dim rs As Recordset
Dim Caminho As String

N = FreeFile
Caminho = "c\dados_de\arquivo.txt"
Set rs = CurrentDb.OpenRecordset("inventario")


Do While Not rs.EOF

Print #N, rs!codigo & rs!mercadoria
Print #N, rs!QTDE & rs!VRUNIT

rs.MoveNext
Loop

rs.Close
Set rs = Nothing

End Sub

Valeu

Que erro que dá? Qual a mensagem?

Criquio

Estava faltando o ":" na frente do "c" no nome do arquivo para exportar. Já corrigi.

Continua dando erro 52 Nome ou numero do arquivo incorreto

Está faltando abrir o arquivo para inclusão de linhas:

Private Sub Comando186_Click()

Dim N As Integer
Dim rs As Recordset
Dim Caminho As String

N = FreeFile
Caminho = "c\dados_de\arquivo.txt"

Open Caminho For Output As #N

Set rs = CurrentDb.OpenRecordset("inventario")

Do While Not rs.EOF

Print #N, rs!codigo & rs!mercadoria
Print #N, rs!QTDE & rs!VRUNIT

rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Close #N

End Sub

Criquio

Perfeito. Agora só preciso formatar os campos pois está saindo sem a formatação que preciso.

Valeu e desculpe perturbar num final de semana e ainda por cima perto do Natal.