Notifications
Clear all

Botão de Pesquisa não funciona

8 Posts
3 Usuários
0 Reactions
2,316 Visualizações
(@mylton)
Posts: 59
Trusted Member
Topic starter
 

Boa noite e páscoa a todos
Alguém poderia dizer porque o Botão de Pesquisa não funciona no form deste aplicativo?
Desejaria que o mesmo quando clicado mostrasse na tela o nome escolhido.
Obrigado mais uma vez.

 
Postado : 29/03/2013 2:55 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Qual botão de pesquisa e em que formulário??? Não vi nenhum botão de pesquisa...

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 29/03/2013 7:20 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na verdade, não é um botão de pesquisa, mas sim um Combobox,o ultimo sem identificação, no rodape do formulario.
A duvida é a mesma que foi postada no topico viewtopic.php?f=10&t=7434&p=39573#p39573
Porem como o usuari mudou de formulario tem que mudar tb os criterios.
No active do form, deve ser alterado:

Private Sub UserForm_Activate()
    StatusBar1.Panels(1).Text = Format(Now, "[$-F800]dddd, mmmm dd, yyyy")
    lsLocalizaRegistroStudent (Worksheets("Assistente").Cells(2, 1).Value)
    Sheets("Menu").Activate
AtualizaComboBox_Pesquisa
End Sub

Tambem o evento change do combo

Private Sub ComboBox_Pesquisa_Change()
If ComboBox_Pesquisa.ListIndex = -1 Then
    Exit Sub
End If
DadosLinha = ComboBox_Pesquisa.ListIndex + 1
lsLocalizaRegistroStudent (DadosLinha)
End Sub

O "carregamento" dos dados no Combo tambem deve ser alterado

Sub AtualizaComboBox_Pesquisa()
TotalRegistros = Sheets("Assistente").Cells(Rows.Count, 1).End(xlUp).Row
If TotalRegistros > 1 Then
    With ComboBox_Pesquisa
            .Enabled = True
            .RowSource = "Assistente!B2:B" & TotalRegistros
    End With
Else
    With ComboBox_Pesquisa
            .Enabled = False
    End With
End If
End Sub

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

 
Postado : 30/03/2013 5:59 am
(@mylton)
Posts: 59
Trusted Member
Topic starter
 

Boa tarde reinaldo
A título de aprendizado, porque + 1 e não + 2, na linha abaixo?
DadosLinha = ComboBox_Pesquisa.ListIndex + 1

 
Postado : 30/03/2013 12:52 pm
(@mylton)
Posts: 59
Trusted Member
Topic starter
 

Boa noite Reinaldo e amigos
Fiz a modificação que vc orientou e mais algumas perfumarias na aparência.
Mas ficaram algumas coisas:
1) Quando vou excluir dada erro.
2) A combo de pesquisa não atualiza na "hora". ´É preciso fechar e reabrir o form para atualizar. Teria como resolver?
Na combo estado podemos impedir as pessoas de digitarem nela?
Obrigado

 
Postado : 30/03/2013 7:25 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

A título de aprendizado, porque + 1 e não + 2, na linha abaixo?
DadosLinha = ComboBox_Pesquisa.ListIndex + 1

O combobox "lista" os valores partindo do 0 (zero) e não do 1(um); então o primeiro registro da range que vc utiliza (B2 = ISTO É UM TESTE) no listindex do combo é 0.
a Pesquisa que utiliza o valor (DadosLinha), procura o valor numerico na coluna A (Código); então é necessario "igualar/compatibilizar" o numero "fornecido" pelo listindex , com o numero existente na coluna; ou seja valor Zero não será localizado, somando-se 1(0+1=1), então é retornado o valor.
No outro caso, a pesquisa é feita pelo numero da llinha em que o registro se encotra, como a range inicia em B2, soma-se 2 para "suprir" essa diferença (0+2=2 -->B2)

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

 
Postado : 31/03/2013 7:40 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

1) Quando vou excluir dada erro.
2) A combo de pesquisa não atualiza na "hora". ´É preciso fechar e reabrir o form para atualizar. Teria como resolver?
3) Na combo estado podemos impedir as pessoas de digitarem nela?
Obrigado

1) Não experimentei qualquer tipo de erro, exclui normalmente.
2) Para que a combo seja atualizada, é preciso que mande o comando para atualização.
Então na rotina de exclusão e/ou inclusão acrescente a linha:= --> AtualizaComboBox_Pesquisa
3) Veja a resposta do colega Morel em viewtopic.php?f=10&t=7373

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

 
Postado : 31/03/2013 7:49 am
(@mylton)
Posts: 59
Trusted Member
Topic starter
 

Ok.
Obrigado.

 
Postado : 31/03/2013 8:15 am