[Resolvido]Mostrar registros que foram deletados.

Boa tarde senhores.
Tenho uma tabela com numeração automática.
O que preciso é, algum jeito de conferir essa tabela e retornar os numeros sequenciais que foram deletados.
Ex:
Numero do registro: 1023, 1024, 1025, 1027, 1028, 1030.
Nesse caso foram deletados os numeros: 1026 e 1029.
São esses dois que eu preciso saber que foram deletados.
Existe algum jeito?
Obrigado a todos.

Veja "Mostra numeração em falta numa Tabela" em 102 códigos VBA para Access do grande mestre JP.

Da uma olhada

https://www.maximoaccess.com/t12497-resolvidoverificar-e-listar-sequencia-numerica-que-falta

Bom dia Senhores.
Tentei adaptar o código sugerido pelos amigos no meu projeto mas não obtive resultado esperado.
Estou enviado um exemplo da tabela do meu banco onde consta os dados que eu preciso que seja informado para ver se alguém pode me ajudar.
neste exemplo note que o que falta são os registros de nºs: 100031865, 100031866, 100031868, 100031885 e 100031888.
São esses dados que preciso listar, ou seja: esses numeros faltantes.
Agradeço antecipadamente a ajuda.

Estude o que foi feito. Sucesso.

A chamada

Código:

NumeracaoEmFalta("[CódigoDoDetalheDoPedido]", "[Detalhes do Pedido]", False)

O Código

Código:

Public Function NumeracaoEmFalta(strCampo As String, strTabela As String, Optional booDoPrimeiro As Boolean = True) As String

    'By JPaulo ? Maximo Access
    Dim rst As DAO.Recordset
    Dim intNumeracao As Long
    Dim strRetornaResultado As String
   
    If booDoPrimeiro Then
        intNumeracao = 1
    Else
        intNumeracao = DMin(strCampo, strTabela)
    End If
   
    Set rst = CurrentDb.OpenRecordset("SELECT " & strCampo & " FROM " & strTabela & " ORDER BY " & strCampo & ";", 8, 4)
   
    While Not rst.EOF
   
        If rst.Fields(strCampo) = intNumeracao Then
            rst.MoveNext
        Else
            strRetornaResultado = strRetornaResultado & ", " & intNumeracao
      End If
     
      intNumeracao = intNumeracao + 1
   
    Wend
   
    rst.Close: Set rst = Nothing
   
    NumeracaoEmFalta = Mid(strRetornaResultado, 3)

End Function

Muito obrigado ao amigo e xará IvanJr.
Conforme sugerido e sendo de praxe, vou estudar e procurar entender a forma que foi feita, pois assim sendo poderei aplicar a função em outras tabelas minhas.
Excelente até mais que o esperado.
Sucesso em tudo o que faças.