Numeração Automatica

[DiegoCipriano]

bom pessoal quero saber como fazer reposição com numeração automatica por ex:

Se tenho uma sequencia de registro de 1 a 10 e excluir o registro de numero 5 quando eu for fazer um novo registro quero que ele reponha o numero 5 e não me de o numero 11

[Alexandre Neves]

Tente assim:

1-Crie esta função

Function PrimeiroLivre(strTabela as string,strCampoNumerado as string)as boolean

dim Rst as dao.recordset,N AS INTEGER

set rst=currentdb.openrecordset("SELECT [" & strcamponumerado &"] FROM [" & strtabela &"] ORDER BY [" & strcamponumerado &"];"

N=1

DO WHILE NOT RST.EOF

IF RST(0)<>N THEN EXIT DO

N=N+1

RST.MOVENEXT

LOOP

PRIMEIROLIVRE=N

END FUNCTION

2-Como origem da numeração coloque PrimeiroLivre("NomeTabela","NomeCampo")

[DiegoCipriano]

se puder da essa força como ficaria se minha tabela fosse CADASTRO e o campo onde eu quero a numeração For Codigo

obrigado des de agora

[Alexandre Neves]

No formulário para cadastro, na caixa de texto da numeração, coloque no valor predefinido: =PrimeiroLivre("Cadastro","Codigo")