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]Linha SQL para conlsulta, filtro

    Compartilhe
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  PauloMaia em 26/3/2017, 16:36

    bom dia

    estou tentando um filtro em uma consulta mas não esta retornando gostaria de saber se estou aplicando certo.


    Tabela Clientes e na coluna Histórico -

    Procuro pela palavra "VENDA À VISTA"
    e
    Procuro pela palavra "VENDA CARTÃO DÉBITO"
    e
    Procuro pela palavra "VENDA CARTÃO CRÉDITO"



    Código:
    Private Sub opFiltro_AfterUpdate()
        Set dbs = CurrentDb
        If opFiltro = 1 Then
            strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '%VENDA À VISTA%'"
        End If
        If opFiltro = 2 Then
            strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '%VENDA CARTÃO DÉBITO%'"
        End If
        If opFiltro = 3 Then
            strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '%VENDA CARTÃO CRÉDITO%'"
        End If
        
        
        Set rst = dbs.OpenRecordset(strSQL)
        Me.RecordSource = strSQL
        
        If rst.RecordCount = 0 Then
            opFiltro = 0
            Beep
            MsgBox "Não há registros que atendem a este filtro!", vbInformation, "Filtro"
            'Mostra todos
            strSQL = "SELECT * FROM viewClientes"
            Me.RecordSource = strSQL
        End If
        
        CalculaSubTotal
        Me.Requery
    End Sub

    ----------------------------------------------------------------------------------------------------------
    no load do form uso

    Private Sub Form_Load()
       Dim Filtro As String
       On Error Resume Next
       
       Me.KeyPreview = True
     
       opFiltro = 0
       Me.Requery
       CalculaSubTotal
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7030
    Registrado : 05/11/2009

    Re: [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  Alexandre Neves em 26/3/2017, 21:33

    Boa noite,
    Código:
        If opFiltro = 1 Then
            strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA À VISTA*'"
        End If
        If opFiltro = 2 Then
            strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA CARTÃO DÉBITO*'"
        End If
        If opFiltro = 3 Then
            strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA CARTÃO CRÉDITO*'"
        End If


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    Re: [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  PauloMaia em 26/3/2017, 21:49

    estou enviando o form aqui para verificação , pois ainda não esta filtrando

    cod. aberto


    verifique se esta certo
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7030
    Registrado : 05/11/2009

    Re: [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  Alexandre Neves em 26/3/2017, 22:22

    Enviou incompleto


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    Arquivo.......

    Mensagem  PauloMaia em 26/3/2017, 22:38

    OK , deu certo ,

    Código:
    strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA À VISTA*'"


    Mas preciso que essa consulta mostre entre data ini  e data final


    txtDatIni
    até
    txtDatFim


    exemplo = Todas as VENDAS À VISTA entre as datas ,   não todos os registros da tabela !


    Última edição por PauloMaia em 27/3/2017, 05:16, editado 1 vez(es)
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    entre datas

    Mensagem  PauloMaia em 27/3/2017, 04:01


    Entre Datas que estão inseridas nesses campos

    txtDatIni
    até
    txtDatFim


    Código:
    strSQL = "SELECT * FROM tbl_Clientes WHERE ccHistórico like '*VENDA À VISTA*'"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    Re: [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  PauloMaia em 27/3/2017, 16:53



    Alguém sabe como fazer isso ?

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4114
    Registrado : 20/04/2011

    Re: [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  Silvio em 27/3/2017, 17:32

    Boa tarde....

    Nova duvida....novo tópico. Não se "reusa" o tópico nem se altera o título do mesmo. Outros utilizadores, podem ter a mesma duvida que você.

    Fica aqui a dica !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 165
    Registrado : 02/05/2014

    Re: [Resolvido]Linha SQL para conlsulta, filtro

    Mensagem  PauloMaia em 27/3/2017, 17:45




    OK...............................

      Data/hora atual: 16/11/2018, 10:16