Renumerando Uma Tabela

[Pilantra]

Olá pessoal

Na tabela Cadastro existe 955 cadastros e o usuário decide excluir o usuário nº 23!! A ordem vai ficar 20, 21, 22, 24, ...!! Isso não pode acontecer, então tentei esse código pra atualizar a tabela inteira:

Do Until Tabela.EOF

Tabela.Edit

Tabela!cod = mcodigo

Tabela.Update

mcodigo = mcodigo + 1

Tabela.MoveNext

Loop

O código funciona quase perfeitamente, o defeito disso é que quando ele atualiza a tabela começando do 0 até 953 e não pode isso, ele tem que começar do 1 até o 954!!! alguém teria uma rotina pra isso!??!

Agradeço muito

Abraços

Pilantra :ph34r:

[Decio]

Se o seu código para atualizar a tabela funciona, não era só definir "mcodigo=1" antes de começar a atualizar? Se você não definir, mcodigo começa com zero.