[Resolvido]Numerador que aproveita numeros deletados

Boa tarde
Tenho este exemplo que ao inserir dados numera os registo automaticamente, aproveitando os numeros deletados.
Mas eu queria por a funcionar utilizando o metodo que está no Botao de gravar, isto é com campos independentes e não estou conseguindo.

http://dl.dropbox.com/u/8169944/Incrementar%20Numero.mdb
Obrigado

Abri o teu exemplo mas não entendi o que pretende...

Há funcões para numeros deletados mais simples que a esta utilizar...

Veja este:

http://dl.dropbox.com/u/26441349/AutoNum_em%20falta.zip

Ele checa na tabela e adiciona diretamente o numero na caixa texto no form atraves do código

'Verifica se o campo codFunc está nulo. Se estiver
'significa que é um novo registro.
If IsNull(CampoCodigoNoFOrm) Then
'Atribui ao campo o próximo número livre dentro
'do campo codFunc na tabela Funcionario.
CampoCodigoNoFomr.Value = numeroLivre("Tabela", "CampoCodigoNaTabela")
End If

Obrigado Hary

Parte Função do Botão de Gravar
Set BancoDeDados = CurrentDb
Set TabLançamentos = BancoDeDados.OpenRecordset("tblvendas")
With TabLançamentos
.AddNew
!ID = numeroLivre("Tblvendas", "id")
!Data = Me.Data
!Despesa = Me.Despesa
!Para = Me.Para
!Vlr = Me.Vlr
!CodigoControle = Me.CodigoControle

.Update
End With

Seu exemplo a vermelho

Valeu Amigão...

Bom trabalho!