[Resolvido]Atualizar numeração sequencial

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.

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

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.

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  

Balem

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!

Legal Cinthia!

Parabéns!

Já deu pra ver que é uma guerreira!

E corre atrás do que precisa!

Boa sorte, Maninha!

Balem