USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  ME AJUDEM POR FAVOR!
Jaba
SÃO PEDRO DA ALDEIA
RJ - BRASIL
Postada em 02/05/2004 16:24 hs            
Como faço para que o localizar de meu programa faça uma busca no Banco de Dados do Access 97 e, encontre o itêm desejado e mostrando-os no formulário, e depois sem fechar o formulário de localizar fazer uma outra busca com o mesmo itêm só que pulando o que já foi encontrado,isso até  que chegue o fim da Tabela e mostre a mensagem de Pesquisa concluida !.
Eu tentei fazer isso deu certo,porém,na hora de alterar o itêm encontrado ele altera outro,ou seja,ele mostra os itens que eu encontrei mas a tabela esta em outro lugar.
Eu fiz usando o do while e é + ou - assim:
 
No botão que eu chamo o Localizar eu Mando a tabela ir para o Primeiro.
No Form do Localizar eu fiz assim:
 
do while TBCADASTRO.EOF = False
 
if TBcadastro("nome")=txtnome then           ' txtnome do localizar
form1.MostraDados                    'Form1 --> o que tem o botão que chama o localizar
msgbox "Encontrado"
tbcadastro.MoveNext
exit sub
end if 
TBcadastro.MoveNext
Loop
TBcadastro.MoveLast
msgbox "Pesquisa Concluida"
End sub
 
Se puderem quebrar esta pra mim eu ficarei muito grato e concerteza ficarei devendo essa!
                                          Até,Tchau!!!
  
     
Jaba
SÃO PEDRO DA ALDEIA
RJ - BRASIL
Postada em 02/05/2004 20:50 hs            
Por favor, me ajudem! Ou então, se tiverem um código de botão localizar e puderem me passar, eu agradeço muito.
 
Valeu! Emoções
     
Vaughyman
RIO DE JANEIRO
RJ - BRASIL
Postada em 02/05/2004 21:33 hs            
do while not TBCADASTRO.EOF 
TBcadastro.findfirst "nome=" & txtnome            ' txtnome do localizar
if not TBCADASTRO.eof then
form1.MostraDados     'Form1 --> o que tem o botão que chama o localizar
msgbox "Encontrado"
tbcadastro.MoveNext
endif
Loop
msgbox "Pesquisa Concluida"
End sub
 
Estou sem recurso de teste no momento. Tenta e ve se da certo!
Se não poste de novo e nos diga o erro que deu
elseif Bloqueie o post
 
Abraços
     
Chuck_NewBie
Pontos: 2843
VILA VELHA
ES - BRASIL
Postada em 02/05/2004 21:47 hs            

Eu faria assim:

With TBCADASTRO
    .FindFirst "nome=" & txtnome
    While Not .NoMatch
        Form1.MostraDados
        MsgBox "Encontrado!"
        .FindNext "nome=" & txtnome
    Wend
    MsgBox "Pesquisa concluída!"
End With

aguardo resposta Emoções


Grato! Chuck_NewBie
DDoS(Distrubuted Denial of Service) -> Quem domina possui a arte da destruição

Me encontre em:
ICQ: 289609955
MSN: ChuckMaia@HotMail.com

-> irc.brasnet.org - Rede BrasNET de IRC
@#HackerZ @#Hacker_Brasnet @#VBWorld @#SimienS @#VBJ @#Defacers @#Wetico
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página