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

    Gerar sequencia de registro entre inicial e final

    Compartilhe

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 06/03/2013

    Gerar sequencia de registro entre inicial e final

    Mensagem  mfendesa em Qua 08 Jun 2016, 17:49

    Prezados, boa tarde!

    Estou precisando de uma ajuda dos amigos.

    Tenho uma tabela "tbdados" com registros NCInicial = 564242 e NCFinal = 564959, gostaria de saber como faço para gerar uma nova tabela com todas as sequencia entre estes dois registro, tipo:

    564242
    564243
    564244
    564245
    ...
    564959

    Desde já agradeço.

    Atenciosamente,

    Marcos Fábio

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5890
    Registrado : 05/11/2009

    Re: Gerar sequencia de registro entre inicial e final

    Mensagem  Alexandre Neves em Qua 08 Jun 2016, 21:09

    Boa noite,
    Crie uma tabela tbDadosSequenciais com campo NC
    Cole o código num módulo e execute-o
    Código:
    Sub PreencheSequencia()
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '  código criado por Alexandre Neves, do Fórum MaximoAccess                                                '
        '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        Dim Rst1 As DAO.Recordset, Rst2 As DAO.Recordset, L As Long
       
        Set Rst1 = CurrentDb.OpenRecordset("SELECT * FROM tbDados")
        Set Rst2 = CurrentDb.OpenRecordset("SELECT * FROM tbDadosSequenciais")
        Do While Not Rst1.EOF
            For L = Rst1("NCInicial") To Rst1("NCFinal")
                Rst2.AddNew
                Rst2!NC = L
                Rst2.Update
            Next
            Rst1.MoveNext
        Loop
        Set Rst1 = Nothing: Set Rst2 = Nothing
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    bigfill
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 27/03/2015

    Re: Gerar sequencia de registro entre inicial e final

    Mensagem  bigfill em Qua 08 Jun 2016, 21:28

    mfendesa, Boa tarde!

    Achei também este exemplo na Mensagem Nº 9, e criei um exemplo (Em anexo).


    [Você precisa estar registrado e conectado para ver este link.]
    Anexos
    GerarNumeração.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 10 vez(es)

      Data/hora atual: Sab 10 Dez 2016, 12:41