[Resolvido]Percorrer registro por registro - Tabela

Como posso percorrer uma tabela registro por registro comparando um valor meu , com dois valores cadastrados nessa tabela ? para saber se meu valor se encaixa no intervalo de algum registro .

Tabela... exemplo de um registro cadastrado === campo1 = valor registrado = 12659219 , e no campo2 = valor registrado = 12659238

campo1 | campo2

Meu valor...

valor = 12659222

Idéia

If valor == esta dentro do intervalo entre campo1 e campo2 then

...

eu preciso comparar meu valor lançado , com dois valores na tabela para descobrir a linha do registro .....

talvez com um loop registro por registro ou de alguma outra forma ,  não estou conseguindo ...

>>> deve me retornar o valor registrado no campo1 do registro encontrado ,  para eu usar esse valor do campo1 para uma consulta strSQL

ASSIM SERIA UMA IDEIA , mas em Excel ....... preciso em Access - VBA

Código:

ComandoSQL = "select * from tabela_registor"
Call Conecta
Set consulta = banco.OpenRecordset(ComandoSQL)
'On Error Resume Next

While Not consulta.EOF
If (MEU_VALOR >= consulta("CAMPO1") And (MEU_VALOR <= consulta("CAMPO2") Then
MSGBOX "MEU VALOR DENTRO DO INTERVALO"

End If
consulta.MoveNext
Wend
Call Desconecta

Estou tentando assim

Código:

   Dim Rs As DAO.Recordset
    
    Set Rs = CurrentDb.OpenRecordset("SELOSESTOQUE")
    
    NLancado = 12767357
    
    Do While Not Rs.EOF
        Teste = DLookup("[NumeroSelo]", "SELOSESTOQUE", "[NumeroSelo] <= " & NLancado & " And [SequencialFinal] >= " & NLancado & "")
        If Len(Teste) = 8 Then
            conta1 = Left(Teste, 5)
            conta2 = Left(NLancado, 5)
        End If
        If conta1 = conta2 Then
            MsgBox "Valor Encontrado = " & Teste
            Rs.Close
            Exit Sub
        End If
    Rs.MoveNext
    Loop
    Rs.Close
    MsgBox "Loop completado com sucesso."

Pois a linha
Teste = DLookup("[NumeroSelo]", "SELOSESTOQUE", "[NumeroSelo] <= " & NLancado & " And [SequencialFinal] >= " & NLancado & "")
já retorna o que eu preciso ...  

preciso ajustar o loop para verificar os registros ...

pois ele não esta repetindo quando essa linha não satisfaz

If conta1 = conta2 Then


esta caindo em

MsgBox "Loop completado com sucesso."

mas parece não estar repetindo o loop nos registros seguintes

OK... RESOLVIDO...

Boa noite,
Será

Código:

Dim Rs As DAO.Recordset
   
    Set Rs = CurrentDb.OpenRecordset("SELOSESTOQUE")
   
    NLancado = 12767357
    conta2 = Left(NLancado, 5)
    Do While Not Rs.EOF
        if Rs("NumeroSelo") <= NLancado And Rs("SequencialFinal") >= NLancado Then
            Teste = Rs("NumeroSelo")
            If Len(Teste) = 8 Then
                conta1 = Left(Teste, 5)
                If conta1 = conta2 Then
                    MsgBox "Valor Encontrado = " & Teste
                    Rs.Close
                    Exit Sub
                End If
            End If
        End If
        Rs.MoveNext
    Loop
    Rs.Close
    MsgBox "Loop completado com sucesso."