MAIS UMA DÚVIDA, AFORA COM O FIND...tá quase 100%


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: MAIS UMA DÚVIDA, AFORA COM O FIND...tá quase 100%

SRick

LAVRAS
MG - BRASIL

ENUNCIADA !

Postada em 30/03/2011 20:38 hs

Olá amigos, obrigado pela ajuda com o commondialog. Agora estou precisando que vocês me ajude a resolver esse problema.

No meu sistema faço uma pesquisa usando o inputbox, coforme codigo abaixo, SÓ QUE NÃO CONSIGO ENCONTRAR O PRIMEIRO REGISTRO DA TABELA, QUANDO DIGITO O NOME QUE ESTÁ NO PRIMEIRO REGISTRO O SISTEMA ME RETORNA QUE NÃO ENCONTROU. ALGÚEM PODERIA ME AJUDAR, QUEM SABE O AMIGO JUAN CARLOS.

ABAIXO O CODIGO, FUNCIONA 99%, SÓ NÃO CONSIGO ENCONTRAR O PRIMEIRO REGISTRO DA TABELA, MESMO SABANDO QUE EXISTE O DADOS SOLICITADO NA PESQUISA.

Private Sub Command4_Click()
On Error GoTo erradogo
Dim Localiza As String
rst.MoveMin 'mova oponteiro para o inicio da tabela
Localiza = InputBox("Digite o Nome ou parte do nome do cliente...", "Localizar Cliente")
rst.Find "Nome like '*" & Localiza & "*'", adSearchForward 'localiza quaquer parte do nome
If rst.EOF Then ' se for final do arquivo então ...
MsgBox "FRACASSO! Não encontrei o cliente que contem o nome ... " & Localiza
Else
   MsgBox "SUCESSO! Cliente encontrado que contem o nome... " & Localiza
   load_rec 'carrega dados do cliente no formulario
End If
   On Error GoTo 0
     Exit Sub
erradogo:
    MsgBox "Cancelado pelo Usuário"
End Sub

obrigado

Henrique

Treze
não registrado

Postada em 30/03/2011 23:07 hs

Tente isso Henrique

rivate Sub Command4_Click()
On Error GoTo erradogo
Dim Localiza As String
Localiza = InputBox("Digite o Nome ou parte do nome do cliente...", "Localizar Cliente")
rst.Find "Nome like '*" & Localiza & "*'", adSearchForward  'localiza quaquer parte do nome
rst.MoveFirs_t
If rst.EOF Then ' se for final do arquivo então ...
MsgBox "FRACASSO! Não encontrei o cliente que contem o nome ... " & Localiza
Else
   MsgBox "SUCESSO! Cliente encontrado que contem o nome... " & Localiza
   load_rec 'carrega dados do cliente no formulario
End If
   On Error GoTo 0
     Exit Sub
erradogo:
    MsgBox "Cancelado pelo Usuário"
End Sub

bom vc ja deve saber que o site muda o nome movefirs_t para movemin, então lembre de tirar o underline de MoveFris_t

Treze

SÃO VICENTE
SP - BRASIL

Postada em 30/03/2011 23:17 hs

vc está usando DAO ou ADO?

Treze

SÃO VICENTE
SP - BRASIL

Postada em 30/03/2011 23:18 hs

vc está usando DAO ou ADO?

SRick
não registrado

Postada em 31/03/2011 09:18 hs

Olá Marcelo estou usando o ADO.

Vou testar o código, OK, depois posto se funcionou ou não.

Obrigado.

Henrique

SRick

LAVRAS
MG - BRASIL

Postada em 31/03/2011 09:46 hs

Marcelo, testei o codigo e ficou certinho, obrigado. A próposito, como faria para se caso houvesse outro registro com dados igauis, ou seja, se tivesse outro registro que contem o item de pesquisa, como faria para percorrer a tabela (próximo -- anterior) ?? Tem como fazer isso usando o inputbox??? Se puder me ajudar ficarei grato. Obrigado, do amigo

Henrique

Página(s): 1/3 PRÓXIMA »

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR