[Resolvido]Acrescentar Critério SQL pesquisa de texto

Boa tarde!

tenho uma caixa de texto onde faço uma pesquisa dentro de um subformulário

preciso acrescentar no critério abaixo que ao alterar o texto mantenha meu campo baixa como falso, pois alguns registro ja foram registrados ou seja baixados e não quero que retorne para o usuário somente os "Pendentes".

Baixa = 0 (tipo sim/não)

Código:

Private Sub txtPesquisa_Change()

Dim C As String, X As String

X = Me.txtPesquisa.Text

C = " where Desenho like '*" & X & _
"*' or Descricao like '*" & X & _
"*' or id like '*" _
& X & "*'"

Me.frm_Mapeamento_Sub.Form.RecordSource = " select * from tbl_Mapeamento " & C

Me.frm_Mapeamento_Sub.Requery

End Sub


Can you try?

Código:

Private Sub txtPesquisa_Change()
    Dim C As String, X As String
        X = Me.txtPesquisa.Text
        C = " where Desenho like '*" & X & _
            "*' or Descricao like '*" & X & _
            "*' or id like '*" & X & "*'" & _
            " And Baixa=False"
        Me.frm_Mapeamento_Sub.Form.RecordSource = " select * from tbl_Mapeamento " & C
        Me.frm_Mapeamento_Sub.Requery
End Sub

não funcionou

Boa tarde,


Tente com o 0em vez do False,

Caso não der, disponibilize parte da sua base de dados, por gentileza.

Ou teste dessa forma:

Código:


Private Sub txtPesquisa_Change()
    Me.frm_Mapeamento_Sub.Form.RecordSource = "SELECT * FROM tbl_Mapeamento " & _
        "WHERE strConv(tbl_Mapeamento.Desenho, 2, 1042) Like '*" & StrConv(Me.txtPesquisa.Text, 2, 1042) & "*' " & _
        "OR strConv(tbl_Mapeamento.Descricao Like '*" & StrConv(Me.txtPesquisa.Text, 2, 1042) & "*' " & _
        "OR strConv(tbl_Mapeamento.id Like '*" & StrConv(Me.txtPesquisa.Text, 2, 1042) & "*' AND tbl_Mapeamento.Baixa=False"
    Me.frm_Mapeamento_Sub.Requery
End Sub

*Teste o False e o 0
*Seu ID não é numérico? Se sim, deve-se remover as aspas simples, ficando apenas: " & StrConv(Me.txtPesquisa.Text, 2, 1042) & "

também não funfou

criei uma consulta e fiz dessa forma e funcionou, se tiver outra sugestão por codigo

Código:

Dim C, X, Z, Y As String

X = Me.txtPesquisa.Text


    C = " WHERE " & _
            " Codigo like '*" & _
            X & "*' or Desenho like '*" & _
            X & "*' or Descricao like '*" & _
    X & "*'"


    Z = " select * from cns_Mapeamento_Estoque " & C
    
    Me.frm_Mapeamento_Sub.Form.RecordSource = Z

Boa tarde,

Bom, se funfou... [Resolvido]

Bons estudos!