MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Pesquisa qualquer campo

    Compartilhe

    Robystanley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/12/2015

    [Resolvido]Pesquisa qualquer campo

    Mensagem  Robystanley em Qui 31 Mar 2016, 15:12

    Olá, venho mais uma vez solicitar um help de vocês; tenho um campo de pesquisa que ignora a acentuação, porém além disso, eu gostaria que esse código também efetuasse a pesquisa em qualquer parte da minha caixa de listagem, no momento ela faz a busca por apenas uma coluna, será que tem como acrescentar algo neste código para que ele faça essa busca? Estou enviando o código e o banco para maior visualização; desde já agradeço.

    Link Banco:

    [Você precisa estar registrado e conectado para ver este link.]


    Código:
    Dim strSql As String
    strSql = "SELECT CodGibi, HQ, Edição, Ano FROM gibis WHERE " & _
    "strConv(hq, 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*';"
    Me!caixahq.RowSource = strSql


    End Sub

    PS: O Formúlario que contém o campo de pesquisa é o "Gibis-2For"

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Pesquisa qualquer campo

    Mensagem  FabioPaes em Qui 31 Mar 2016, 16:28

    Mude para:

    Código:

    Dim strSql As String
    strSql = "SELECT CodGibi, HQ, Edição, Ano FROM gibis WHERE " & _
    "strConv(hq, 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
    "OR strConv([Edição], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*'" & _
    "OR strConv([Ano], 2, 1042) like '*" & StrConv(Me!txt_produto.Text, 2, 1042) & "*';"
    Me!caixahq.RowSource = strSql


    Veja se Resolve!

    Robystanley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 21/12/2015

    Re: [Resolvido]Pesquisa qualquer campo

    Mensagem  Robystanley em Qui 31 Mar 2016, 17:34

    Nossa essa foi no ninho da coruja hein kkkkk muito bommmmmmmmm, deu certinho, poxa falar oque neh Fabião, você manja muito...já fiz a adaptação e, aprendi mais essa; mais uma vez meu amigo, eu te agradeço por mais essa fantástica ajuda, que Deus continue te abençoe grandemente brother, fica na Paz do Senhor Jesus, abraçossssssssssssssssssssssss

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Pesquisa qualquer campo

    Mensagem  FabioPaes em Qui 31 Mar 2016, 19:26

    Valeu meu Amigo! Até a próxima!

      Data/hora atual: Sab 03 Dez 2016, 04:38