MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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á.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4280
    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: Qua 16 Ago 2017, 16:16