PESQUISA EM VBA. CÓDIGO MODELO...

CÓDIGOS MODELOS... FUNÇÃO PESQUISAR

Visitem meu novo blog:

https://programacaopassoapasso.wordpress.com/

Dando continuidade aos posts CÓDIGOS MODELOS... hoje vou ensinar a fazer o código que irá pesquisar as informações cadastradas...

Vejam o resultado esperado ao fim deste post....

Veja Links dos post relacionados a esse...

http://excelamador.blogspot.com.br/2013/03/funcao-vba-para-cadastros-parte-ii.html

Para começarmos  vou abrir 
a pasta criada nos post
anteriores e cadastrar umas 
quatro informações...


______________________________________________________

Irei inserir 1 rótulo e uma 
caixa de texto para digitarmos 
o que vamos pesquisar...

rótulo = PESQUISAR

caixa de texto = TXT_PESQUISA

_________________________________________________________________________________

Inserir também um ListBox 
que é onde serão exibidas as 
informações pesquisadas... 
vamos alterar a propriedade
 (Name) dela para
 LIST_PRODUTO...

_________________________________________________________________________________

Inserir três rótulos também 
para servir de título para o 
ListBox...

_________________________________________________________________________________
Alterar as propriedades do ListBox... 

Definir a quantidade de colunas 
e a largura de cada uma delas...

_________________________________________________________________________________
Bom o código modelo é esse vou marcar as partes que devemos atribuir os nossos objetos...



Function NOMEDAFUNÇÃO()

    Dim i As Integer
    Dim BANCO As Database
    Dim TABELA As Recordset
    Set BANCO = OpenDatabase(ThisWorkbook.Path & "/" & ThisWorkbook.Name, False, False, "EXCEL 8.0")
    
    Set TABELA = BANCO.OpenRecordset("SELECT * FROM [NOME_DA_PLANILHA$] WHERE PESQUISAR_EM_QUAL_CAMPO LIKE '" & FORMULARIO.OBJETO_DA_PESQUISA & "*';")
    
    FORMULARIO.OBJETOLISTBOX.Clear
    
    Do Until TABELA.EOF
   
    FORMULARIO.OBJETOLISTBOX.AddItem TABELA("CAMPO")
    FORMULARIO.OBJETOLISTBOX.List(i, 1) = TABELA("CAMPO")
    
    
    i = i + 1
    TABELA.MoveNext
    Loop
    BANCO.Close
End Function

_______________________________________________________________________

Bom então 
vamos copiar o 
código acima e colar 
dentro do nosso módulo...








____________________________________________________
Agora vamos alterar as 
partes marcadas no código...
Function NOMEDAFUNÇÃO()
____________________________________________________
* FROM [NOME_DA_PLANILHA$] WHERE


Vejam que esse nome é referente ao nome da nossa aba na planilha... que criamos nos post anteriores...
____________________________________________________
WHERE PESQUISAR_EM_QUAL_CAMPO LIKE

Vamos pesquisar o nome do produto então o campo da pesquisa deve ser o PRODUTO que se encontra na planilha...
____________________________________________________
LIKE '" & FORMULARIO.OBJETO_DA_PESQUISA & "*';")

Nessa parte temos que informar a partir de qual objeto o código irá buscar as informações... no caso é o objeto TXT_PESQUISAR... já o formulário é o UserForm1...
____________________________________________________
FORMULARIO.OBJETOLISTBOX.Clear
Esse código (Clear) serve para limpar o ListBox, antes de inserir os dados da pesquisa, para não inserir novamente dados repetidos...

Então
FORMULARIO = UserForm1



OBJETOLISTBOX = LIST_PRODUTO...
____________________________________________________

FORMULARIO.OBJETOLISTBOX.AddItem TABELA("CAMPO")

Aqui o formulário e o objeto listbox nós já sabemos quais são, falta dizer qual campo da planilha será pesquisa e inserido na coluna 1 do ListBox, esse campo é o NUMERO...
____________________________________________________
List(i, 1) = TABELA("CAMPO")


O numero 1 após a "," no pedaço de código acima, indica que é a segunda coluna do ListBox e temos que informar qual será o campo de onde iremos puxar as informações... 

Vamos por o segundo campo da planilha (PRODUTO)...
____________________________________________________
Como na nossa planilha temos três campos (NUMERO|PRODUTO|VALOR) irá faltar uma coluna para ser pesquisada, nesse caso vamos copiar a linha:

FORMULARIO.OBJETOLISTBOX.List(i, 1) = TABELA("CAMPO")

e a coluna vamos trocar para 2, sendo que será a terceira, já deu para perceber que o numero das colunas no ListBox começa do 0...






____________________________________________________

Agora para finalizar vamos chamar essa  função criada dentro do objeto TXT_PESQUISA...






____________________________________________________

Ainda dentro do objeto TXT_PESQUISA vamos por o código que converte tudo o que é digitado para maiúsculo... pois a pesquisa difere o formato das letras... e como o nosso cadastro será feito todo em  maiúsculo...
____________________________________________________

Vamos agora executar nosso projeto e fazer uma pesquisa...

Bom galera espero sinceramente que estejam gostando. Estou muito feliz com os comentários postados por vocês leitores. Continuem lendo e comentando que continuarei postando rsrsrsrsrs...

Abraços a todos e até a próxima postagem...

Edivan cabral....