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

    [Resolvido]Atualizar numeração sequencial

    cy_rangel
    cy_rangel
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 47
    Registrado : 18/01/2018

    [Resolvido]Atualizar numeração sequencial Empty [Resolvido]Atualizar numeração sequencial

    Mensagem  cy_rangel 28/2/2021, 19:34

    Olá pessoal,

    Boa-tarde.

    Gostaria de saber se tem como fazer uma consulta atualização ou VBA que possa atualizar a númeração sequêncial de uma tabela?. Eu achei um conteúdo semelhando no site, mas é de 2017 e o download ou link não funcionam mais.

    O campo de númeração da tabela não está definido como auto númeração pois é gerado por uma VBA (cód abaixo), acontece que quando excluo um registro esse nº sequencial fica alternado.

    Exemplo - Registros: 1 / 2 /3 / 4

    Excluo o registro 2, então ficará 1 / 3 / 4, gostaria que o access atualizasse novamente e deixasse a sequência correta (1 / 2 / 3).


    Segue o código da VBA que estou usando atualmente no Form para criar a sequência dos registros e alimentar a tabela:

    Código:
    'Insere número sequencial a cada registro CAMPO "CodSegReg"
    Private Sub Form_BeforeInsert(Cancel As Integer)

    If DCount("*", "TBL_9_1_DOM_") < 1 Then
        Me.CodSeqReg = 1

    Else
        Me.CodSeqReg = DMax("CodSeqReg", "TBL_9_1_DOM_") + 1
    End If

    End Sub




    Desde já agradeço.
    Anexos
    [Resolvido]Atualizar numeração sequencial AttachmentAutorodenar Registros.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (11 Kb) Baixado 3 vez(es)
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Atualizar numeração sequencial Empty Re: [Resolvido]Atualizar numeração sequencial

    Mensagem  Noobezinho 28/2/2021, 21:14

    Olá Cinthia

    Parece de primeira vista, que manter a sequencia de um código (ID) , deixa as tabelas em ordem.

    Vou mostrar um cenário  de um projeto de uma financeira, e um dos cliente com [ID_Cliente 2] terminou de pagar um parcelamento.
    Ao quitar o parcelamento, o cliente é deletado e o numero do código dele fica órfão, sem registro.
    Então deleta-se esse cliente do sistema e reutiliza o código e cadastra outro cliente nesse mesmo código (2).
    Só que na tabela de pagamentos consta que  o cliente com  com esse código  já pagou todos as parcelas.
    Isso é  só um cenário simples do que pode acontecer , tem outros muito mais complexos, que trará tremada
    dores de cabeça por ter reaproveitado a numeração do código.
    Sugiro que não ligue pra isso, se te incomoda, deixa a tabela em ordem crescente.

    { }'s

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    cy_rangel
    cy_rangel
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 47
    Registrado : 18/01/2018

    [Resolvido]Atualizar numeração sequencial Empty Re: [Resolvido]Atualizar numeração sequencial

    Mensagem  cy_rangel 28/2/2021, 22:13

    Olá Noobezinho.

    Na verdade eu realmente não me incomodaria, mas essa é uma tabela sem relacionamento com qualquer outra, a função dela é gerar um txt para que eu possa fazer o upload em um programa, mas para isso preciso que a numeração seja sequêncial, se não o arquivo da erro.

    Tem alguma ideia de como atualizar esses números, caso alguém exclua algum intervalo?

    Desde já agradeço.
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Atualizar numeração sequencial Empty Re: [Resolvido]Atualizar numeração sequencial

    Mensagem  Noobezinho 28/2/2021, 22:52

    Cinthia

    Eis aí o exemplo.

    Esse exemplo tirei dos meus alfarrábios .

    Uso MSAccess 2010 e está funfando  legal.

    No formulário que se abre tem as instruções.

    Lembre que  é um código antigo, as versões das referências são as atuais.

    Divirta-se  Razz

    Balem
    Anexos
    [Resolvido]Atualizar numeração sequencial AttachmentAutoNum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (39 Kb) Baixado 19 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cy_rangel gosta desta mensagem

    cy_rangel
    cy_rangel
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 47
    Registrado : 18/01/2018

    [Resolvido]Atualizar numeração sequencial Empty Re: [Resolvido]Atualizar numeração sequencial

    Mensagem  cy_rangel 1/3/2021, 03:01

    Olá Noobezinho,

    Muito obrigada pelo retorno.

    Eu olhei o que me mandou e achei muito bom! Será muito útil.

    Enquanto aguardava a sua resposta, eu também achei uma outra maneira bem interessante. Como havia comentado, o meu objetivo é gerar um .txt e para isso eu preciso que todas as vezes cada arquivo tenha um número sequencial iniciado em 1 até o final da última linha.

    Então, encontrei um artigo na internet que ensina a criar um módulo dentro do VBA e depois usamos esse módulo como uma função em uma consulta de adição. Assim, todas as vezes que incluímos novas linhas a consulta faz a contagem e já adiciona o nº sequencial para cada registro. Porém existe um detalhe importante, em "If Now - LastCall > 4 / 60 / 60 / 24" significa que se a query de adição for executada várias vezes em menos de 4 segundos, será adicionado uma númeração continua para todos os registros inseridos, após esse tempo a função reiniciará novamente em 1.


    Alt+F11 > Inserir Módulo

    Código:
    Global seqNumber As Long
    Global lastcall As Date

    Function wAutoNumber(i) As Long
        If Now - lastcall > 4 / 60 / 60 / 24 Then
            lastcall = Now
            seqNumber = 0
        End If
        seqNumber= seqNumber+ 1
        wAutoNumber = seqNumber
    End Function


    Após adicionar o módulo, crie uma consulta (qry) de adição e em uma das colunas coloque: Nome: wAutoNumber([QualquerCampoDaTabela])


    Deixo o link abaixo com o artigo completo, pois achei muito interessante. A autora(o) menciona ainda que esse tempo de 4 segundos, poderá ser alterado conforme a necessidade.

    https://access-excel.tips/add-auto-number-in-access-query/


    Agradeço novamente a todos vocês!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4121
    Registrado : 29/06/2012

    [Resolvido]Atualizar numeração sequencial Empty Re: [Resolvido]Atualizar numeração sequencial

    Mensagem  Noobezinho 1/3/2021, 10:34

    Legal Cinthia!

    Parabéns!

    Já deu pra ver que é uma guerreira!

    E corre atrás do que precisa!

    Boa sorte, Maninha!

    Balem


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    cy_rangel gosta desta mensagem


      Data/hora atual: 16/6/2021, 14:55