Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) localizar registro


tito13

Pergunta

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 por tito13
Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

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.

Link para o comentário
Compartilhar em outros sites

  • 0

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+

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...