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]Acrescentar Critério SQL pesquisa de texto

    Compartilhe
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Acrescentar Critério SQL pesquisa de texto

    Mensagem  =>Nois em 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  caiosouza em 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


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

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

    não funcionou


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  caiosouza em 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.


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  caiosouza em 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) & "


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

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

    também não funfou


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  =>Nois em 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


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  caiosouza em 10/12/2018, 19:07

    Boa tarde,

    Bom, se funfou... [Resolvido]

    Bons estudos!


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

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

    santa


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: 16/12/2018, 11:22