[Resolvido]Atualizar Numeração após excluir algum registro

Bom dia,

Como poderia fazer o seguinte:
Tenho uma chave primária do Tipo Número(Não numeração automática). Tenho 120 registros no meu Formulário, e supondo que eu tenho que excluir um registro, digamos o 9º registro, então para não deixar falha na numeração, gostaria de saber se existe alguma rotina, que eu possa renumerar os registros, de forma que se tiver que excluir, não fique falha, e sim, na sequência, 123456... e assim por diante.

Obrigado.

Bom dia...

Veja se o link abaixo te ajuda..


https://www.maximoaccess.com/t9251-aproveita-auto-numeracao-em-falta-filtragem

Sílvio, obrigado, mas não está mais disponível o link.

Eita....

Crie um novo tópico ( link quebrado - Error 404 ). Coloque o link nele para que possam avisar o JPaulo.

O banco é compartilhado? Se sim, dará problema se outros usuários estiverem usando a tabela ou tabelas relacionadas à esta primeira.

Outra coisa, você gostaria que a um novo registro fosse adicionado a numeração faltante ou que no momento da exclusão de um registro a numeração se refizesse?

Boa noite DamascenoJr

o BD não é compartilhado, e a ideia seria essa mesmo, ao deletar um registro, já refizesse a numeração.

Veja esse exemplo usando macros de dados. Entre na tabela e exclua um registro.

DamascenoJr,

Obrigado,

Vou adaptar aqui.

Resolvido.

O fórum agradece o retorno. Sucesso.

Companheiro teria como postar novamente o anexo sobre excluir registro atualizando numeração???


Att,


AMarcos

Em uma tabela que possui um campo chamado "id", e tal campo não é do tipo autonumeração (isto é, é possível de ser editado), basta na macro de dados "após excluir" usar a macro conforma abaixo: (macros de dados só existem do access 2010 em diante)

Amigo Damasceno obrigado pela rápida resposta à minha solicitação.  Mas apesar de ter feito as mudanças necessárias, não consegui êxito ao excluir um item do Formulário Cadastro de Motoristas. A Tabela não reordena a numeração.

No botão Excluir criado no formulário, eu adaptei um código VBA mas mesmo assim dar erros e não reordena os registros.  Por exemplo se eu excluir o 17, no Formulário a sequência fica do 16 para 18 e pior no Relatório além da sequência errada, o valor total de motorista não atualiza. Se eu exclui um motorista e não inseri nenhum, o certo é diminuir a quantidade que existia.

Código usado:

Private Sub Excluir_Click()
If Not IsNull(Me.Código) Then
   Call excluirMotorista(Me.Código)
 End If
End Sub

______________________________________________________________________________________________________________

Sub excluirMotorista(Código)

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Motoristas WHERE Código=" & Código)
If MsgBox("Tem certeza que quer excluir o motorista [" & rs!Código & "]?", vbCritical + vbYesNo, "Exclusão de motorista") = vbYes Then
 rs.Delete
End If
rs.Close
End Sub


Preciso do seu direcionamento meu amigo.


Att,


AMarcos

Não explorei o projeto. Já fui direto na macro de dados e vi esse erro. A variável local é criada como "motorista" e depois é chamada de "motoristas".

O amigo tem razão. Já foi corrigido. Mesmo assim a reordenação não acontece. Nem na tabela e nem no Relatório.

Acabei de excluir o motorista 9 e a sequência na Tabela ficou do 8 pra 10. E no Relatório a quantidade total mesmo excluindo um item, o valor não diminui.


AMarcos

Veja a mensagem de nº 11 deste tópico.

-------------------------------
Em uma tabela que possui um campo chamado "id", e tal campo não é do tipo autonumeração (isto é, é possível de ser editado), basta na macro de dados "após excluir" usar a macro conforma abaixo: (macros de dados só existem do access 2010 em diante)
-------------------------------

Olhei sua tabela e vi que o campo Código que você quer que seja reordenado é do tipo Autonumeração, ou seja, não pode ser editado. Tem que ser um campo do tipo número (não numeração automática).

Certíssimo!!!

Obg Damasceno pela ajuda. era realmente o que faltava e eu estava cego em ver.


Att,



AMarcos