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]Filtrar igual ao digitado numa caixa de texto

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4063
    Registrado : 06/11/2009

    [Resolvido]Filtrar igual ao digitado numa caixa de texto Empty [Resolvido]Filtrar igual ao digitado numa caixa de texto

    Mensagem  Assis em Sab 22 Fev 2020, 06:46

    Bom dia Amigos

    No alterar o código abaixo para filtrar igual ao digitado na caixa "txtpesq"

    Por exemplo, se tiver-mos
    - Gás
    - Gasoleo

    Obrigado


    Private Sub txtpesq_Change()
    Dim strSql As String
       strSql = "SELECT Historico, Rubrica, Entidade, idmovimento, jalinhaqry(LançamentosVer.valordebito,14,'Currençy',3),
         jalinhaqry(LançamentosVer.valorcredito,14,'Currençy',3),LançamentosVer.ano FROM LançamentosVer WHERE " & _
         "strConv(Historico, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
         "OR strConv(Rubrica, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*'" & _
         "OR strConv(Entidade, 2, 1042) like '*" & StrConv(Me!txtpesq.Text, 2, 1042) & "*';"
                 Me!clista.RowSource = strSql


    End Sub

    [Resolvido]Filtrar igual ao digitado numa caixa de texto Sem_t124


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1595
    Registrado : 21/11/2016

    [Resolvido]Filtrar igual ao digitado numa caixa de texto Empty Re: [Resolvido]Filtrar igual ao digitado numa caixa de texto

    Mensagem  DamascenoJr. em Sab 22 Fev 2020, 09:56

    A culpa é dos asteriscos. Eles são caracteres coringas.

    filtrar
    *amor*

    retorna
    > amora
    > namorada

    ou seja, caracteres tanto na frente quanto atrás. Retire os asteriscos que então o código passa a trazer somente os valores exatos informados em txtpesq.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4063
    Registrado : 06/11/2009

    [Resolvido]Filtrar igual ao digitado numa caixa de texto Empty Re: [Resolvido]Filtrar igual ao digitado numa caixa de texto

    Mensagem  Assis em Sab 22 Fev 2020, 11:40

    Obrigado Amigo

    Mas assim funciona perfeito:

    strSql = "SELECT Historico, Rubrica, Entidade, idmovimento, jalinhaqry(LançamentosVer.valordebito,14,'Currençy',3), jalinhaqry(LançamentosVer.valorcredito,14,'Currençy',3),LançamentosVer.ano FROM LançamentosVer WHERE " & _
    "strConv(Historico, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
    "OR strConv(Rubrica, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*'" & _
    "OR strConv(Entidade, 2) like '*" & StrConv(Me!txtpesq.Text, 2) & "*';"
    Me!clista.RowSource = strSql


    .................................................................................
    *** Só sei que nada sei ***
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1595
    Registrado : 21/11/2016

    [Resolvido]Filtrar igual ao digitado numa caixa de texto Empty Re: [Resolvido]Filtrar igual ao digitado numa caixa de texto

    Mensagem  DamascenoJr. em Sab 22 Fev 2020, 11:57

    Fique atento que assim os acentos serão considerados em suas filtragens. Buscar "oleo" não retornará "óleo". Buscar "gas" não retornará "gás".


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Filtrar igual ao digitado numa caixa de texto Empty Re: [Resolvido]Filtrar igual ao digitado numa caixa de texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Dom 05 Abr 2020, 09:14