Erro Na Consulta Db

[Lello]

Estou com problema na consulta , quando faço a consulta a primeria vez funcionada mas se eu tentar novamente so me traz o que esta para frente não traz o que esta anterior o que esta errado aqui ?

estou usando o ADO com Acess

o codigo

TBclientes.MoveFirst

TBclientes.Find "Codigo= '" & Val(TxtCodigo.Text) & "'", adSearchForward

If TBclientes.EOF Then

MsgBox "Registro Não Encontrado", vbCritical, "Atenção"

TBclientes.MoveFirst

Else

AtualizaText

TxtCodigo.SetFocus

End If

obrigado

[Graymalkin]

so me traz o que esta para frente não traz o que esta anterior o que esta errado aqui ?

Mas é exatamente isso que você pede ao fazer:

 TBclientes.Find "Codigo= '" & Val(TxtCodigo.Text) & "'", adSearchForward

adSearchForward = "Search", procurar e "Forward", para frente, ou seja, "procurar para frente".

Abraços,

Graymalkin

[Lello]

Graymalkin não sube me explicar

Supomos q eu vou procurar o codigo 3

1º posiciono o ponteiro no primerio registro

2º Procuro o codigo

3º Encontro

Tento procurar o Codigo 2 não encontro so vou encontrar o 4 5 e ai por diante

Se Fechar a Tabela e abrir novamente Funciona ? mas não esta certo correto.

você conhece um modo de procura mais facil q funcione ?

[Graymalkin]

Eu sempre usei o Find e nunca tive esse tipo de problema. Em geral não utilizo o segundo parâmetro (no qual você está colocando o adSearchForward), porém sempre faço o MoveFirst como você faz.

Abraços,

Graymalkin

[Lello]

Eu já Descobri , na Verdade o Find não retorna o Registro q eu Estou Posicionado

então eu Verifico o Registro Atual ,Se não For eu Procuro ..

Muito Obrigado.