[Resolvido]Incluir e cancelar até chegar em um código de inclusão

Pessoal boa tarde.

Estou com um problema e não sei se dá para fazer no formulário.

Tenho uma tabela 'CAD_USUARIO' nela o campo (COD) é auto númeração e não permite duplicidade.
A minha tabela indexou errado estou no número 17000 e ele voltou como se a inclusão começasse na 9000.
Dai quando dou gravar dá erro e não grava.
dai a cada nova inclusão ele aumenta um número.

Tem como criar um forme que faça isso sozinho.
Exemplo quando preencho o campo nome com 1 e pressiono ESC ele cancela a inclusão, dai aperto o 1 novamente e cancelo de novo.

Tem como criar isso e quando usando apenas os dois campos, e quando a inclusão for COD=16999 ele pare um antes do 17000 e fecha.

Alguém pode me ajudar nisso, pois to corrigindo um a um.

Agradeço a enorme ajuda.

Não entendi bem a questão. Talvez fosse melhor criar uma nova tabela e exportar os dados para essa nova tabela.

Eu pensei nisso.

Porém existem falha por exclusão de dados e o campo COD alimenta outras tabelas se mudar ele vai embaralhar.

Não sei o que fazer, seria um comando adicionar registro. Porém que tivesse um outro que alimenta-se o campo NOME = 1 e em seguida desse um desfazer como o Esc, voltasse para o campo Nome e ficasse nesse loop até chegar no 17000.

to fazendo isso mas na mão.

Esse campo do 17000 é AutoNumeração? Coisa estranha!

Sim.

Nem acreditei quando isso aconteceu.

estou no número 17770 e voltou para o 9000.

nunca tinha visto isso.

Estou tentando criar uma macro, mas estou meio perdido.

Não estou sabendo como fazer isso.

Uma saída que eu vislumbro de momento, é criar uma nova tabela com a chave primária tipo Número ao invés de AutoNumeração e depois importar os registros da tabela antiga para essa nova. Depois, na hora de gravar os registros, usar um DMax("Código", "NomeDaTabela") + 1 para ir adicionando os código sempre um a mais do maior.

Certo então ao invés de usar auto numeração, deixo COD Tipo número.
E no formulário nesse campo COD ele vai abrir em branco e quando clicar no botão salvar em procedimentos eu coloco.

Private Sub Comando20_Click()
On Error GoTo Err_Comando20_Click

DMax("COD", "CAD_USUARIO") + 1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


Exit_Comando20_Click:
Exit Sub

Err_Comando20_Click:
MsgBox Err.Description
Resume Exit_Comando20_Click

End Sub

Desculpe colocar o código não sei bem ainda como usa-los, estou aprendendo com vcs.

Vamos tentar o seguinte: crie uma cópia do seu aplicativo para o caso de ocorrer erro, não danificar o original e passe a trabalhar na cópia. Se tudo der certo ao final, coloca a cópia no lugar do original. Você pode carregar o código máximo mais um direto no campo código do formulário usando =Dmax("Código", "NomeDaTabela") + 1
Só vamos lembrar que você deve colocar seu formulário para abrir direto em Novo registro e não em modo de edição. Para isso, na estrutura do formulário, aba Dados das propriedades, coloque Entrada de dados=Sim. Caso seu formulário esteja em modo de edição e queira continuar assim, duplique ele e faça essas modificações na cópia e deixe essa cópia para novos cadastros. Pode tirar os controles de navegação.

OK.


Só uma dúvida, mais de uma pessoa faz inclusão, fica na rede tem algum problema?