Notifications
Clear all

Busca Personalizada VBA

6 Posts
2 Usuários
0 Reactions
1,635 Visualizações
(@gabrielsb)
Posts: 15
Active Member
Topic starter
 

Boa noite pessoal,
Gostaria de tirar uma dúvida com vocês novamente, quem puder interagir para solucionar esse erro ficarei grato. Enviarei por Anexo uma Planilha simples de Pesquisa Personalizada através de ListBox. O erro é que em alguns campos de pesquisa o SpinButton trava, existe alguma forma de resolver isso ?
OBS: a Planilha em questão vem de um site onde foi disponibilizada, Excel do seu jeito. E a pesquisa é feita por qualquer Palavra-Chave que contenha na Planilha

 
Postado : 30/12/2015 7:39 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Em que situação o spin trava? Aparentemente está normal.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/12/2015 7:45 am
(@gabrielsb)
Posts: 15
Active Member
Topic starter
 

Pesquise por Férias, ele te dará mais de 1 Resultado. Quando Clicar no SpinButton seta para próximo Registro ele trava.
Então eu Clico no <-(seta direita - registro anterior) para depois ele destravar o ->(seta esquerda- próximo registro)

 
Postado : 31/12/2015 12:17 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como disse, aqui aparentemente tudo normal, nas diversas simulações que fiz não houve o "travamento"; inclusive com seu exemplo.
"Pesquisei" tambem por "de", retorno 5 itens, navegação sem problemas. Porem se estiver no ultimo registro, e clicar para avançar nada ocorre. O mesmo se estiver no primeiro registro e clicar para o anterior; tambem nada ocorre

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 31/12/2015 1:26 pm
(@gabrielsb)
Posts: 15
Active Member
Topic starter
 

Testou fazer uma pesquisa e só apagar o campo e fazer outra ?como travou assim agora, refiz o teste.
Pesquisei Ativo me deu 6 resultados, apaguei o campo e pesquisei por Férias mudou o Resultado para 2 mas não moveu para o próximo registro no SPinButton

 
Postado : 31/12/2015 1:57 pm
(@gabrielsb)
Posts: 15
Active Member
Topic starter
 

Acredito que quando eu faço outra pesquisa o SpinButton fica contido com a pesquisa anterior, utilizo do botão limpar que limpa todos os campos e coloca o cursor devolta no campo de pesquisa mas ele não limpa o Spinbutton,acredito que colocando para limpa-lo isso se resolve.
Pode me informar como isso seria feito?
Código do Botão de Limpar Registros encontrados e disponibilizados

Private Sub CommandButton3_Click()
Me.txt_Procurar = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
Me.Label_Registros_Contador = ""
Me.txt_Procurar.SetFocus
End Sub

 
Postado : 31/12/2015 2:40 pm