[Resolvido]Procurar Intervalos em campos Numérico

Prezados,
Boa Tarde!!

Qual comando uso para procurar intervalos em um campo de sequencia numérica, por exemplo,

Cod
1
2
3
4
6
No exemplo acima, preciso que um comando ou um módulo mostre o número 5 que está faltando na sequencia,

att; Ney

Meu amigo, veja esse exemplo aqui... https://www.maximoaccess.com/t26887-verificar-quais-codigos-da-lista-nao-estao-da-tabela-contar-certo-caracter-e-remover-newline

Dá pra saber dessa forma... Porém não sei se é a forma mais inteligente a se fazer... Mas serve para ter uma ideia do que precisa.

Caso alguém tenha outra ideia compartilhe favor!!!

Olá...

Tenho este exemplo a tempos, me desculpe o fórum não lembro o autor.
Só lembro que foi retirado do fórum

Em um módulo cole

Código:

Function numeroLivre(argTabela As String, argCampo As String) As Long

    Dim i As Long
   
    'Atribui o valor zero à variável de contagem, assim
    'o valor inicial do resultado será 1. Para modificar o
    'início da contagem basta alterar o valor desta variável.
    i = 0
   
    Do
        'Incrementa o valor da variável
        'de contagem
        i = i + 1
       
        'Verifica se existe no campo e tabela informados o valor
        'atual da variável de contagem.
        If IsNull(DLookup(argCampo, argTabela, argCampo & "=" & i)) Then
            'Se não existir retorna o valor
            numeroLivre = i
            Exit Function
        End If
    Loop

End Function

E no evento antes de atualizar do form cole este e corrija o nome
do campo para o seu

Código:

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

Espero que ajude

Bom dia Ney...

Deu certo??

Abraços