MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Gerar sequencia de registro entre inicial e final

    avatar
    mfendesa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Gerar sequencia de registro entre inicial e final Empty Gerar sequencia de registro entre inicial e final

    Mensagem  mfendesa 8/6/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
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Gerar sequencia de registro entre inicial e final Empty Re: Gerar sequencia de registro entre inicial e final

    Mensagem  Alexandre Neves 8/6/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
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Gerar sequencia de registro entre inicial e final Empty Re: Gerar sequencia de registro entre inicial e final

    Mensagem  bigfill 8/6/2016, 21:28

    mfendesa, Boa tarde!

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


    https://www.maximoaccess.com/t22764-resolvidogerar-registros-em-sequencia-atraves-de-um-intervalo-de-valores
    Anexos
    Gerar sequencia de registro entre inicial e final AttachmentGerarNumeração.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 29 vez(es)

    Conteúdo patrocinado


    Gerar sequencia de registro entre inicial e final Empty Re: Gerar sequencia de registro entre inicial e final

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:40