MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Acrescentar Critério SQL pesquisa de texto

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  =>Nois 7/12/2018, 19:45

    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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  caiosouza 7/12/2018, 20:40

    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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  =>Nois 8/12/2018, 16:56

    não funcionou


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  caiosouza 8/12/2018, 18:10

    Boa tarde,


    Tente com o 0em vez do False,

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


    .................................................................................
    Caio Souza

    Engenheiro de Software
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  caiosouza 8/12/2018, 18:21

    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) & "


    .................................................................................
    Caio Souza

    Engenheiro de Software
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  =>Nois 10/12/2018, 16:04

    também não funfou


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  =>Nois 10/12/2018, 16:27

    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


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    caiosouza
    caiosouza
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 419
    Registrado : 05/12/2016

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  caiosouza 10/12/2018, 19:07

    Boa tarde,

    Bom, se funfou... [Resolvido]

    Bons estudos!


    .................................................................................
    Caio Souza

    Engenheiro de Software
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 917
    Registrado : 09/11/2012

    [Resolvido]Acrescentar Critério SQL pesquisa de texto Empty Re: [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  =>Nois 11/12/2018, 10:39

    santa


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 1/8/2021, 11:58