(Resolvido) localizar registro

[tito13]

boa tarde

quando uso essa sub me retorna erro dizendo"o conjunto de linhas não oferece suporte para rolagem regressiva"

Private Sub LocalizarRegistro()

Dim ProcuraCodigo As String

Set rsSelecao = cnnCetecInfServiços.Execute("Select * From Oficina1")

ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")

rsSelecao.Find "Numero_OS = " & ProcuraCodigo

If rsSelecao.EOF = True Then

MsgBox "Registro não Encontrado", vbExclamation

rsSelecao.MovePrevious

End If

Mostrar

End Sub

sinaliza na linha sublinhada

já uso esse tipo de sub no form anterior e não me retona erro. procurei em site de busca mas não consegui identificar o erro, se alguém puder me ajudar

agradeço

Editado Agosto 19, 2009 por tito13

[gabrieldb]

O erro não está no & da sintaxe & ProcuraCodigo ?

Editado Agosto 17, 2009 por gabrieldb

[tito13]

beleza Gabriel

Testei sem o & e me retorna erro solicitando end da linha

[gabrieldb]

O que receberia a variavel ProcuraCodigo ?

[tito13]

buscaria o numero da Ordem de Serviço em uma tabela access com todos os dados nela, tipo data, produto, obs.....

[gabrieldb]

Tenta troca isso:

rsSelecao.Find "Numero_OS = " & ProcuraCodigo

por isso

rsSelecao.Open "Numero_OS = " & ProcuraCodigo

e posta ai o que deu.

[tito13]

Bom dia

Gabriel , valeu pela dica,

mas para esse caso eu preciso usar o método find ou seek

o metodo find no outro form funcionou numa boa e agora nesse outro form deu na trave, me retornando

esse erro que não consigo resolver.

se alguém puder me dar outra opiniao, agradeço.

[gabrieldb]

Posta todo código do form pra mim dar uma olhada.

[tito13]

resolvido fiz pequenas correções

código ficou assim

Private Sub LocalizarRegistro()

Dim ProcuraCodigo As String

ProcuraCodigo = InputBox("Digite o Codigo a ser Consultado")

rsSelecao.Find "Numero_OS = " & ProcuraCodigo

If rsSelecao.EOF = True Then

MsgBox "Registro não Encontrado", vbExclamation

rsSelecao.MovePrevious

End If

Mostrar

TxtNumOS.SetFocus

End Sub

e ficou 10

Valeu

t+

[gabrieldb]

Que bom que conseguiu resolver, Parabéns.

qualquer coisa posta ai.