[Resolvido]Verificar e Listar Sequencia Numerica que falta

Colaboradores, estou tentando listar uma quebra de sequancia numérica em um formulario, mas não estou conseguindo. Poderiam me ajudar, anexo o BD access 2003
Obrigado a quem puder me ajudar

Aqui vai o código que estou tentando mas não está listando todas os número que faltam, abrigado
Private Sub cmdVerificar_Click()
Dim i As Integer
i = DMin("NotaFiscal", "tblDados")


For i = DMin("NotaFiscal", "tblDados") To DMax("NotaFiscal", "tblDados")



i = i + 1


If IsNull(DLookup("NotaFiscal", "tblDados", "NotaFiscal" & "=" & i)) Then

CurrentDb.Execute ("Insert into tblNotasFiscaisConferencia (NotaFiscal) values (" & i & ")")


Me.Requery


End If

Next i


End Sub
[/code]

Boa tarde, Junior
Private Sub cmdVerificar_Click()
'código criado por Alexandre Neves, do Fórum MaximoAccess
'em 2013-03-30 para Junior Meireles
'o código pode ser utilizado livremente, desde que mencionado este cabeçalho
Dim i As Integer, RstDados As DAO.Recordset, RstNotasFiscaisConferencia As DAO.Recordset

i = 0
Set RstDados = CurrentDb.OpenRecordset("SELECT NotaFiscal FROM tblDados ORDER BY NotaFiscal;")
Set RstNotasFiscaisConferencia = CurrentDb.OpenRecordset("SELECT NotaFiscal FROM tblNotasFiscaisConferencia;")

Do While Not RstDados.EOF
If i = 0 Then
i = RstDados(0)
Else
i = i + 1
If i <> RstDados(0) Then
RstNotasFiscaisConferencia.AddNew
RstNotasFiscaisConferencia(0) = i
RstNotasFiscaisConferencia.Update
End If
End If
RstDados.MoveNext
Loop
Set RstDados = Nothing
Set RstNotasFiscaisConferencia = Nothing
End Sub

Alexandre, boa noite, testei seu código mas na tabela tblNotasFiscaisConferencia, está me listando numeros de notas fiscais que já exitem na tabela dados, ou seja repetindo os numeros, o que eu preciso é que entre o primeiro e o ultimo numero da tabela dados, na tabela Notas fiscais conferencia me liste somente os numeros que estão faltando na tabela dados, e obrigado pela sua presteza.

Bom dia a todos;

Não desfazendo a ajuda do Grande Alexandre, veja se o atende;

Pressione o botão do seu form frmNotasFiscaisConferencia;

Valeu JPaulo era isso mesmo que eu precisava, muito obrigado a você e ao Alexandre e a todos que contribuiram para resolver meu problema

Obrigado pelo retorno o forum agradece.

Post é antigo mas gostaria de comentar; não sei até se vou falar alguma asneira.
procurando algo parecido cheguei a esse post e por curiosidade baixei o exemplo do JPaulo e olhando percebi um detalhe:
a tblDados tem 50 registros numerados de 1186 à 1242 e a tblNotasFiscaisConferencia registra a falta de 7 registros da tblDados.
1192,1193,1194,1197,1198,1202,1210. porém notei que na tblDados também falta o registro 1188.

será que estou vendo demais ou há um falha. ???

Realmente Alcides, não tinha percebido isso, o que será que está acontecendo?

Muitissimo bem visto.

Exemplo corrigido.

Oi JPaulo, "Exemplo corrigido" , onde ???

Alcides a correção está no Anexo acima,
obrigado J Paulo e Alcides

OK. não havia reparado a edição no link original.

Não funcina comingo
uma duas ou três vezes usando para de fucionar preciso muito de código pois verifico se alguma nf que importo par o banco de dados tá faltando