MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Qui 22 Dez 2016, 09:22

    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.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3613
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 22 Dez 2016, 10:18

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Qui 22 Dez 2016, 14:11

    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][Você precisa estar registrado e conectado para ver esta imagem.][/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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3330
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 22 Dez 2016, 14:19

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Qui 22 Dez 2016, 14:34

    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3330
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 22 Dez 2016, 14:39

    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.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3613
    Registrado : 20/04/2011

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

    Mensagem  Silvio em Qui 22 Dez 2016, 15:16

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Ter 27 Dez 2016, 14:25

    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

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Ter 03 Jan 2017, 09:52

    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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3330
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Ter 03 Jan 2017, 16:39

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Qui 05 Jan 2017, 16:42

    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.
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3330
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 05 Jan 2017, 16:47

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Diamantino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 08/04/2013

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

    Mensagem  Diamantino em Dom 08 Jan 2017, 12:22

    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.
    Anexos
    PeloCodigoouProduto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 26 vez(es)

      Data/hora atual: Sex 22 Set 2017, 10:19