[Resolvido]Duvida sobre numeração automática

Olá!
A dúvida é a seguinte, tenho um formulário que gera um código por numeração automática mas estive observando a base e percebi que as vezes pula algum numero por ex: tem cod 10, 11, 12, 14 ou seja pulou o cod 13.
Está normal acontecer isso ou pode ser algum problema no meu formulário?


Desde já obrigado!

A numeração automática tem tendência a nos deixar ficar mal e criar buracos sem o sabermos porquê.

Porque não utiliza outra autonumeração? Existem códigos para isso que substituem este problema

Isso é normal. Quando se começa a digitar um registro em formulário acoplado, você deve ter percebido que o código auto numeração já é atribuído automaticamente. Isso significa que aquele código já está reservado para o registro que você começou a digitar. Se por algum motivo você não grava o registro, o código se perde. O Access deixa o código assim reservado porque se tiver alguem mais inserindo um registro via rede, esse número não pode ser usado pelo outro usuário, pois isso poderia acarretar em corrompimento do banco.

veja por exemplo esta alternativa


1 - ALTERNATIVA PARA O TIPO AUTO-NUMERAÇÃO COM A FUNÇÃO DMAX

Como o Campo do tipo autonumeração que vem com o Access é muito útil
mas tem seusinconvenientes, veja aqui uma alternativa para ele.

Esta alternativa somente funciona em formulários únicos no
Formulário principal.

- Abra o formulário no modo estrutura
- Selecione o campo chave primária da tabela em que o form se baseia
- Abra a janela de propriedades.
- Agora vá até a propriedade Valor padrão (aba Dados) e digite:

Nz(DMax("[Código do Cliente]", "Cliente")) + 1

O Nz previne valores nulos. [Código do Cliente] é o nome do Campo Chave.
Clientes é o nome da Tabela.

Para um controle mais sofisticado use a função abaixo no evento No atual
do Formulário:

Private Sub Form_Current()
If Me.NewRecord Then
On Error Resume Next 'Apenas por segurança...
Me![Código do Cliente].DefaultValue = Nz(DMax("[Código do Cliente]", "Cliente"), 0) + 1
End If
End Sub

Tem esse exemplo da autoria do Rogério Carlos Silva,

O VBA tá trancado, mas, o Autor se preocupou em deixar explicito o código.

veja o que ele faz é só adaptar:

Em um formulário ao disparar um botão ele vai reordenar sua numeração automática, acho que vai te servir:

http://dl.dropbox.com/u/8080696/FMA/AcertarAutoNumera%C3%A7%C3%A3o.rar

Dilson nesse exemplo a questão passa de grave a muito grave.

Na maoioria dos bancos, existem relações pelo autonumber,

O DoCmd.RunSQL "alter table agenda drop ordem", vai apagar o campo autonumber

E o DoCmd.RunSQL "alter table agenda add column ordem autoincrement" vai de novo adicionar, para ficar seguido.

Agora imagine as centenas de bancos a darem o estoiro, rsrsrsrsrs

Aconselho vivamente a utilizarem este exemplo do Grande Plinio;

http://dl.dropbox.com/u/771097/AutoNum_em%20falta.rar

utilizei uma vez esse exemplo (postado pelo Dilson) e não deu certo, nunca me preocupei em averiguar o porquê, agora já sei.

Existem inúmeros exemplos válidos como o que postei encima ou outros mais como estes

Public Function Contador(strCampo As String, NomeTabela As String) As Long
Dim strSQL As String, rkt As DAO.Recordset

strSQL = "SELECT Max" & "(" & strCampo & ")" & " As MaxValor"
strSQL = strSQL & " FROM " & NomeTabela
Set rkt = DBEngine(0)(0).OpenRecordset(strSQL, dbOpenForwardOnly)

Contador = Nz(rkt("MaxValor")) + 1

rkt.Close: Set rkt = Nothing
End Function


Para chamar a função, no evento do antes de inserir do seu formulário:

Me.MeuCampo = Contador(“MeuCampoContador”, “MinhaTabela”)

Para chamar a função, no evento corrente do seu formulário:

Private Sub Form_Current()
'Se está em um novo registro gera o número de serie
If Me.NewRecord Then
Me.SeuCampoContador = ContadorSimples("SeuCampo","SuaTabela")
End If
End Sub

2) Função Alfanumérica

Public Function ContaRegistro(strCampo As String, NomeTabela As String) As String
Dim strMax As String
strMax = DMax(strCampo, NomeTabela)
ContaRegistro = "AM-" & Right(strMax, Len(strMax) - InStr(1, strMax, "-")) + 1
End Function

Função Contador Simples

Public Function ContadorSimples(strCampo As String, NomeTabela As String) As Long
Dim strMax As Long
strMax = DMax(strCampo, NomeTabela)
ContadorSimples = Nz(strMax) + 1
End Function

Caracas ... João Paulo, é verdade, só raciocinei em tabela única.

Bem visto amigo.

David, Se sua tabela está relacionada, esse exemplo não é de forma alguma indicado, irá desordenar a ligação dos registros e será um desastre total.

Ele só serve com tabela única, não relacionada.

Vieira,

é a primeira vez que publico esse exemplo, nunca o utilizei, tinha ele guardado aqui no acervo.

Mas, para tabelas não relacionadas ele é funcional.

Eu também tenho esse exemplo à uns anos. Usei-o uma vez e não funcionou, realmente não me preocupei na altura em explora-lo pois tinha outras alternativas que uso regularmente como aquelas que postei e funcionam bem.

Aqui mais do mesmo ou....

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=9560

Muito bom pessoal, gostei muito desses exemplos que vcs passaram...
Testei um exemplo que o Jpaulo passou e funcionou perfeitamente. Vou testar todos os outros até mesmo para que eu possa entender cada um deles...

Muitissímo obrigado a todos pela a ajuda!

Obrigado pelo retorno o fórum agradece