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

    Gerar sequencia de registro entre inicial e final

    Compartilhe

    mfendesa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    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
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6312
    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
    avatar
    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 13 vez(es)

      Data/hora atual: Dom 20 Ago 2017, 18:27