[Resolvido]Buscar Produto tanto pelo código ou pelo nome.

Bom dia Amigos !!!

Gostaria de saber como se faz o código vba para buscar em uma caixa de listagem um produto, tanto pelo nome ou pelo próprio código do produto.

Ex:
Caixa de texto do código e tem a caixa de texto do Nome.

Ao digitar ele carregue a caixa de listagem do referido produto.

Alguém aí pra me dar uma luz??

Att, Diamantino.

Ah! aproveito para desejar a todos um feliz natal e próspero ano novo.

Bom vamos lá então....um passo a passo.

Código:

Private Sub txtfiltro_Change() ' no evento ao alterar da tua caixa de texto
Dim C As String, x As String

x = Me.txtfiltro.Text ' altere aqui para o nome de tua caixa de texto...me.suacaixadetexto

C = " where codped like '*" & x & "*' or dataped like '*" & x & "*' "
'altere codped para nome do teu protudo
'altere dataped para o produto que deseja

Me.LstBP.RowSource = " SELECT codped, datapedFROM tblpedido " & C
'altere de LstBP para o nome de sua caixa de listagem
'altere os campos: codped, dataped para os campos que estão em tua caixa de listagem
'altere Tblpedido para a tabela ou consulta onde se baseia a tua listbox.

End Sub

Bons estudos e bom trabalho.

Abraços.

Amigo !!

Segue as imagens do Formulário e  do Código que estou usando.

Está funcionando da seguinte maneira.

Se digitar o código ele busca de boa, mas quando digito o nome do material aí já não busca.

Alguém por favor poderia me ajudar??

Abaixo o código.
[img][/img]

Private Function fncCarregalista(filtro As String)
Dim strSql As String
strSql = "SELECT CODIGO_MATERIAL, DESCRICAO, UNIDADE "
strSql = strSql & "FROM CMatCli "
strSql = strSql & "WHERE CODIGO_MATERIAL like  ""*" & filtro & "*"" "
strSql = strSql & "ORDER BY DESCRICAO;"
Me!ListaMat.RowSource = strSql
End Function

Experimente assim:

strSql = strSql & "WHERE CODIGO_MATERIAL like  '*" & filtro & "*' "

Tem """"""" a mais ali no Filtro!

Obs: Eu não vi no código onde vc aplicou o Valor na Variável Filtro

Private Function fncCarregalista(filtro As String)
Dim strSql As String
strSql = "SELECT CODIGO_MATERIAL, DESCRICAO, UNIDADE "
strSql = strSql & "FROM CMatCli "
strSql = strSql & "WHERE CODIGO_MATERIAL like  ""*" & filtro & "*"" "
strSql = strSql & "ORDER BY DESCRICAO;"
Me!ListaMat.RowSource = strSql
End Function

Sim amigo, é uma Função (fncCarregalista) que tem uma variável chamada Filtro...

Quero saber como esta chamando a Função, pois ela deve ser chamada informando o Nome da caixa de texto onde tem o Valor a ser comparado com os dados da tabela.

Particularmente eu, afirmo eu, ficaria apenas uma caixa de texto para as duas funções de busca ( código e descrição ) o que facilita muito e torna a estética mais agradável também aos olhos.

Mas....cada um é cada um.

Amigo, eu acho que é esse código aí que chama a função.


Private Sub Texto4_GotFocus()
Me!Texto4.SelStart = Len(Me!Texto4 & "")
Call fncCarregalista(Me!Texto4.Text)
End Sub

Olá, Bom dia, Pessoal!!!

Eu quero dizer que foi resolvido aqui, esse tópico.

Consegui aqui quebrando a cabeça.

Mas mesmo assim obrigado por aqueles que de uma forma acabou ajudando.

Abraços a todos.

Bacana amigo...
Agora, assim como muitos disponibilizaram seu tempo para lhe ajudar, Ajude o próximo que passar por esse mesmo problema...

Nos Conta a solução!

Boa tarde amigos,

Eu tentei enviar o arquivo pra que Todos aqueles que precisar possam ver mas não consegui.
Alguém poderia me dar uma ideia de como proceder??

Aguardo.

Att,

Diamantino.

O arquivo deve estar zipado no formato .zip, ter no maximoa 4Mb.

Apos localizar o aquivo, deve clicar em enviar... E somende depois clicar em enviar mensagem!

Olá, Amigo, Fábio Paes!!

Segue em anexo o arquivo para que os amigos possam adaptá-los em seus aplicativos.

Abraços a todos.

Att,

Diamantino.