MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Exportação Txt Personalizada

    Compartilhe

    douglascioffi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 20/01/2016

    Exportação Txt Personalizada

    Mensagem  douglascioffi em Qua 06 Abr 2016, 19:33

    Prezados, boa tarde!

    Pesquisei no fórum mas não consegui encontrar nada que me atendesse na plenitude. Até peço desculpas se algo neste teor já tenha sido abordado e eu não localizei.

    Tenho uma tabela ("Tbl01") onde tenho registros de vendas, sendo a estrutura conforme exemplo abaixo:

    Nome_Vendedor | Produto | Qtde
    Vendedor 1...........P01.........01
    Vendedor 2...........P01.........05
    Vendedor 3...........P02.........05
    Vendedor 1...........P01.........03
    Vendedor 2...........P03.........01
    Vendedor 3...........P03.........01
    Vendedor 1...........P02.........02
    Vendedor 2...........P02.........01
    Vendedor 3...........P01.........02

    Preciso salvar arquivos .txt separando por vendedor. Ou seja, conforme este exemplo acima, seriam gerados 3 arquivos txt com os dados de cada vendedor separados (vendedor1.txt, vendedor2.txt e vendedor3.txt).

    O que dificulta o processo (pra mim Razz) é que nem sempre serão os mesmos vendedores e a mesma quantidade de vendedores. Pode ser que num outro momento apareça uma tabela com 4 vendedores sendo todos diferentes desses do modelo acima. Ou seja, a quantidade de arquivos .txt gerados vai variar conforme a quantidade de vendedores diferentes que tiver na tabela.

    Eu comecei a fazer seguindo o seguinte raciocínio:

    Criei uma consulta ("Consulta01") agrupando o nome dos vendedores (resultando em uma tabela secundária com 3 linhas) e rascunhei o seguinte código:

    Código:

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim contagem As Integer

    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Consulta01")
    contagem = rs.RecordCount

    Mas travei aqui. Acredito que seja através de DoCmd.TransferText, mas não estou conseguindo continuar o processo para gerar os "n" arquivos diferentes necessários.

    Alguém consegue me ajudar, por favor?

    Muito obrigado desde já.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: Exportação Txt Personalizada

    Mensagem  ahteixeira em Ter 12 Abr 2016, 12:29

    Olá, poste a base de dados com o que já tem.
    Assim fica mais fácil para ajudar.

    Numa primeira analise será simples:
    1) Faz uma consulta agrupar por "Nome_Vendedor" (assim obtem o numero de ficheiros e nome que tem que gerar).
    2) Abre o recordset, para correr registo a registo
    3) Cria consulta exportar como pretendido, usando o filtro "Nome_Vendedor" do recordset actual.

    Fica a dica.
    Abraço

    douglascioffi
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 20/01/2016

    Re: Exportação Txt Personalizada

    Mensagem  douglascioffi em Ter 19 Abr 2016, 17:07

    Boa tarde!

    Desculpe a demora em responder.

    Fui envolvido em outro projeto na empresa e precisei parar com este.

    Mas assim que possível, vou testar a sua dica e retorno com a resposta.

    Muito obrigado!

    Abs.,

    DC

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: Exportação Txt Personalizada

    Mensagem  ahteixeira em Ter 26 Abr 2016, 15:06

    Olá Douglas, obrigado pelo retorno.
    Fica a dica, qualquer coisa estamos por aqui.
    Abraço

      Data/hora atual: Qui 08 Dez 2016, 00:05