[Resolvido]Campo de consulta como extensao de arquivo

Ola !
Temos uma consulta que possui dados conforme abaixo.Precisamos que na exportacao de dados um arquivo seja gerado com a extensao .000001, ou seja , agrupando todos os registros da mesma e mantendo os dados. No exemplo abaixo teriamos um arquivo como nomeado de "vendas.000001". Como poderia fazer via vb no access?

Id Venda - Cliente - Referencia - Valor
000001   - Leo     - 103456677  - 99,00
000001   - Leo     - 103456678  - 99,00
000001   - Leo     - 103456677  - 99,00
000001   - Leo     - 103456675  - 99,00
000001   - Leo     - 103456673  - 99,00
000001   - Leo     - 103456671  - 99,00

Obrigado a todos !! Leo Lobo

Não entendi bem. Você quer exportar como um arquivo para uma pasta no computador? Que tipo de arquivo seria? Um aquivo de texto tipo txt?

isso mesmo exportar para txt. Preciso que o arquivo siga a nomenclatura do ID Venda como extensao e nao com txt pois nosso sistema de retaguarda entende que na importacao do mesmo ele precisa do ID Venda como extensao. Na verdade o ID Venda eh o numero do atendimento da venda realizada ao nosso cliente.Por exemplo hoje dia 14.10 se fizermos 10 atendimentos teremos 10 IDs Venda diferentes
Dai teriamos que aproveitar os ids internos conforme tabela da dados que exemplifiquei anteriormente.
Teriamos um arquivo assim venda.000001
Do segundo atendimento ao decimo teriamos arquivos exportados assim e dentro de cada arquivo teriamos o dados comprados em cada atendimento
venda.000002
venda.000003
venda.000004
venda.000005
venda.000006
venda.000007
venda.000008
venda.000009
venda.000010

Como não sei como está a estrutura do sistema e a se vai exportar os dados de um formulário ou de uma tabela bem como a forma que os dados devem ficar no arquivo, vou postar um genérico para ver se consegue adaptar:

Dim N As Integer ' 1

N = FreeFile ' 2

Open CurrentProject.Path & "Venda." & Me.ID For Output As #N ' 3

Print #N, Me.Campo1 & " - " & Me.Campo2 & " - " & Me.Campo3 ' 4

Close #N ' 5

1 - Criamos uma variável que irá representar o aquivo a ser criado;
2 - Associamos a variável criada a um tipo de arquivo livre;
3 - Abrimos o arquivo passando o caminho da aplicação + "Venda." + o campo aonde tem a ID;
4 - O comando Print inicia a escrita de uma linha, na qual passamos os nomes dos campos a serem escritos nessa linha e, no exemplo aqui mostrado, separando os valores dos campos com um " - ". Se precisar colocar cada um em linha, basta repetir o esquema para cada linha;
5 - Fechamos o arquivo.

Obrigado pelo exemplo e vou usar tambem.
O que estou precisando eh exportar os dados de uma tabela para um diretorio c: por exemplo nome do arquivo venda.000001 para o atendimento 1 , venda.000002 para o atendimento 2 e assim por diante.
So que o arquivo a ser exportado tem que utilizar dados de um dos campos como citei por exemplo.
O campo ID VENDA possui varios numeros e estes numeros eh que queremos usar como as extensoes do arquivos.
Se eu nao conseguir me fazer entender peco desculpas pois sou iniciante e comecando a aprender.

Posta um exemplo de como está essa tabela. Tem várias linhas para uma mesma id ou cada linha será um arquivo diferente? Por exemplo, seria assim?

000001
000002
000003
000004
000005
...

ou pode estar assim?

000001
000001
000001
000002
000002
000003
000003
000003
...

De qualquer forma, o princípio é exatamente o mesmo. Só muda de campos do formulário para campos da tabela.

Usando o exemplo do criquio, e considerando que a consulta está ordenada pelo campo [Id Venda] (numérico):

Código:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SuaConsulta")

Dim varVenda As String
Dim arq As Integer

Do While Not rs.EOF
    arq = FreeFile
    varVenda = rs![Id Venda]
    Open CurrentProject.Path & "\Venda." & Format$(varVenda, "000000") For Output As #arq
    Print #arq, "Id Venda - Cliente - Referencia - Valor"

    Do While varVenda = rs![Id Venda]
        Print #arq, Format$(rs![Id Venda], "000000") & " - " & rs!Cliente & " - " & rs!Referencia & " - " & Format$(rs!Valor, "0.00")
        rs.MoveNext
        If rs.EOF Then Exit Do
    Loop

    Close #arq
Loop

rs.Close

Pessoal tudo funcionou na parte da exportacao. Mas existe algo que nao consigo fechar que é a parte do valor que deveria estar correndo formatado como 0.00 e está entrando 0,00. Alguma saida !!

Poste o código completo que está usando para vermos melhor.

Public Function Lobao()
DoCmd.SetWarnings False
DoCmd.OpenQuery "qry prepara dados exportacao", acViewNormal
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Qry gera usuario pedido")
Dim varVenda As String
Dim arq As Integer
Do While Not rs.EOF
arq = FreeFile
varVenda = rs![npedido]
Open CurrentProject.Path & "\10000Pedido." & Format$(varVenda, "000") For Output As #arq
Do While varVenda = rs![npedido]
Print #arq, Format$(rs![npedido], "000") & "|" & rs![cnpjcpf] & "|" & rs![datavenda] & "|" & rs![Hora] & "|" & rs![tipoitem] & "|" & rs![codcondicao] & "|" & rs!Format$(rs![numeroitens], "0.00") & "|" & Format$(rs![totalitens], "0.00")
rs.MoveNext
If rs.EOF Then Exit Do
Loop
Close #arq
Loop
rs.Close

Tente Replace() junto com, ou no lugar de Format$(), na parte de totalitens.

Claudio , Criquio

Nao consegui sucesso com o Replace e nao estou conseguindo vizualizar o que temos que fazer. Fiz um teste utilizando uma exportacao via wizard do access e troquei o simbolo decimal para ponto(.) e funcionou.
Alguma alternativa para fazer o que o wizard do access faz , em VBA

Grato !!

Tente trocar a linha:

Código:

rs!Format$(rs![numeroitens], "0.00")

por:

Código:

Format$(rs![numeroitens], "0.00")

ou:

Código:

Replace(Replace(Replace(rs![numeroitens], ",", "***"), ".", ","), "***", ".")

No último caso, utilizamos Replace três vezes porque precisamos mudar ou o ponto ou a vírgula por alguma outra coisa, senão fica tudo ponto ou tudo vírgula. Por isso, trocamos a "," por "***", depois trocamos o "." por "," e por último trocamos "***" por ",".

Criquio Boa Noite
Tentei todas a opcoes nao funcionou.
Pensei numa saida que voce poderia me passar se eh viavel:
Apos a criacao dos arquivos fazer via vba que o access abrar todos os arquivos comecados com pedido* e fazer o localizar e substituir o virgula (,) por ponto(.)por fora do access. Seria uma saida na minha opiniao pois via access estou ficando sem ideias , o que acha.
A outra saida seria alterar o campo decimal para ponto mas nao posso fazer pois temos outros sistemas rodando com virgula

Para confirmar, como deve ficar representado o valor 9.999,00 no txt?

Boa Noite !!
Tem que ficar 9999.00

Boa noite,

Tenta assim:

Código:

Replace(Format$(rs![numeroitens], "#.00"), ",", ".")

PESSOAL 2 DA MANHA NO BRASIL E GRACAS A TODOS VOCES CONSEGUIMOS RESOLVER. CLAUDIO FUNCIONOU ! TEM COMO DEIXAR SEU EMAIL DE CONTATO VIA MENSAGEM PRIVADA. OU SITE CASO TENHA EMPRESA.
CRIQUIO AGRADECO MUITO SUA ATENCAO E O PEDIDO DE EMAIL OU SITE TAMBEM SE DIRECIONA A VOCE !