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


    Select filtrando um único ou vários registro

    avatar
    carniel.ass.info
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 14/09/2012

    Select filtrando um único ou vários registro Empty Select filtrando um único ou vários registro

    Mensagem  carniel.ass.info em 9/8/2019, 19:36

    Boa tarde;

    Como posso "filtrar" registros com uma select com os seguintes critérios:

    1 - Se no Campo "FiltroNome" eu informar "JOSE CARLOS CARNIEL" eu consigo filtrar esse registro especifico na tabela;
    2 - Se no Campo "FiltroNome" eu informar "JOSE CARLOS*" eu consigo filtrar:
        JOSE CARLOS AMARAL
        JOSE CARLOS BARBOSA
        JOSE CARLOS CALDAS
        JOSE CARLOS CARNIEL etc...

    Estou usando o seguinte código:

    'Instrução SQL que irá carregar os dados

    Dim mOrigem, Filtro

    Filtro = "Like ('" & Me.FiltroNome & "*')"

    mOrigem = "Select * From TB01_Clientes Where TB01_NMRS... daqui pra frente tentei de todas as formas usar como critério a String "Filtro" sem sucesso


    Lembrando que o formulário é desvinculado, e os dados filtrados virão de uma conexão ADO com a base de dados abrigada como backend no projeto (informação incluída após postagem original).

    Grato

    Carniel


    Última edição por carniel.ass.info em 9/8/2019, 23:51, editado 3 vez(es)
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 26/11/2013

    Select filtrando um único ou vários registro Empty Re: Select filtrando um único ou vários registro

    Mensagem  delsonk em 9/8/2019, 20:46

    Boa tarde!

    Veja a sintaxe correta:

    Private Sub txCliente_Change()
    Dim filtro As String
    If Len(Me!txCliente.Text & "") = 0 Then

       'Se não há nada digitado, remove o filtro
       Me!sfrmClientes.Form.Filter = ""
       Me!sfrmClientes.Form.FilterOn = False
       Exit Sub
    End If
    filtro = "[NomeDoCliente] like '*" & Me!txCliente.Text & "*'"
    Me!sfrmClientes.Form.Filter = filtro
    Me!sfrmClientes.Form.FilterOn = True
    End Sub

    Boa sorte!

    Delson
    avatar
    carniel.ass.info
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 14/09/2012

    Select filtrando um único ou vários registro Empty Re: Select filtrando um único ou vários registro

    Mensagem  carniel.ass.info em 9/8/2019, 23:45

    Boa noite;

    Agradeço a ajuda, mas preciso que a filtragem fique a cargo da "Select" conforme postei na dúvida.
    avatar
    delsonk
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 132
    Registrado : 26/11/2013

    Select filtrando um único ou vários registro Empty Re: Select filtrando um único ou vários registro

    Mensagem  delsonk em 14/8/2019, 18:43

    Boa tarde!
    Conseguiu resolver o seu problema? Caso ainda não haja resolvido, poste o BD para eu dar uma olhada!
    Grato, Delson
    avatar
    carniel.ass.info
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 43
    Registrado : 14/09/2012

    Select filtrando um único ou vários registro Empty Re: Select filtrando um único ou vários registro

    Mensagem  carniel.ass.info em 15/8/2019, 14:54

    Bom dia;

    Desculpe a demora na resposta, trabalhos rs...;

    Vou postar sim o BD hj a tarde;

    Obrigado;

    Carniel

    Conteúdo patrocinado

    Select filtrando um único ou vários registro Empty Re: Select filtrando um único ou vários registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/9/2019, 16:07