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]Pesquisa qualquer campo

    Compartilhe

    Robystanley
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    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"
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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 : 41
    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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: Qui 19 Out 2017, 13:44