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]filtrar subformulário com dois critérios de datas

    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 27/05/2016

    [Resolvido]filtrar subformulário com dois critérios de datas Empty [Resolvido]filtrar subformulário com dois critérios de datas

    Mensagem  Helden Qui 12 Maio - 17:53

    Boa noite pessoal, preciso de uma ajuda, como coloco mais um critério de data e contas vencidas nesse código?

    sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar,BancoDespesa "
    sSQL = sSQL & " FROM tbl_Despesas "
    sSQL = sSQL & " WHERE (((DataPagamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
    sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
    sSQL = sSQL & " AND ValorPago > 0"

    sSQL = sSQL & " ORDER BY tbl_Despesas.DataPagamento ASC;"


    aqui ele mostra contas pagas (valorPago >0) entre dataPagamento
    Gostaria de acrescentar no código contas entre DataVencimento e a Apagar >0 (contas vencidas)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3533
    Registrado : 21/04/2011

    [Resolvido]filtrar subformulário com dois critérios de datas Empty Re: [Resolvido]filtrar subformulário com dois critérios de datas

    Mensagem  Marcelo David Sex 13 Maio - 7:12

    Bom dia,
    tente:

    Código:
    sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar,BancoDespesa "
    sSQL = sSQL & " FROM tbl_Despesas "
    sSQL = sSQL & " WHERE (((DataPagamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
    sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
    sSQL = sSQL & " AND ValorPago > 0 "
    sSQL = sSQL & " AND DataVencimento BETWEEN #" & Format(Me.txtDataInicialVencimento, "YYYY/mm/dd") & "# "
    sSQL = sSQL & " AND #" & Format(Me.txtDataFinalVencimento, "YYYY/mm/dd") & "#)) "

    sSQL = sSQL & " ORDER BY tbl_Despesas.DataPagamento ASC;"

    txtDataInicialVencimento deve ser o campo com a data inicial do vencimento
    txtDataFinalVencimento deve ser o campo com a data final do vencimento


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]filtrar subformulário com dois critérios de datas Marcel11
    avatar
    Helden
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 27/05/2016

    [Resolvido]filtrar subformulário com dois critérios de datas Empty Re: [Resolvido]filtrar subformulário com dois critérios de datas

    Mensagem  Helden Sex 13 Maio - 9:23

    Perfeito Marcelo, como a pesquisa era para o mes anterior criei quatro campos de txt Datas preenchidos automaticamente para o mes anterior (primeiro e ultimo dia do mes) colocando para os codigos de DataPagamento e outro para DataVencimento.
    Muitissimo obrigado!!!

    'Primeiro dia do mês anterior
    Me.comb_inicio = DateSerial(Year(Date), Month(Date) - 1, 1)
    Me.txtDataInicial = DateSerial(Year(Date), Month(Date) - 1, 1)


    'O último dia do mês anterior:
    Me.Comb_data = DateSerial(Year(Date), Month(Date), 0)
    Me.txtDataFinal = DateSerial(Year(Date), Month(Date), 0)

    sSQL = "SELECT DataLancamento,Mes,Proveniente,Descricao,Qtd,ValorUnt,SubTotal,ValorPago,Apagar,DataVencimento,DataPagamento,DataReferencia,Parcelas,Quitar,BancoDespesa "
    sSQL = sSQL & " FROM tbl_Despesas "
    sSQL = sSQL & " WHERE (((DataPagamento) BETWEEN #" & Format(Me.txtDataInicial, "YYYY/mm/dd") & "# "
    sSQL = sSQL & " AND #" & Format(Me.txtDataFinal, "YYYY/mm/dd") & "#)) "
    sSQL = sSQL & " AND ValorPago > 0 "
    sSQL = sSQL & " AND DataVencimento BETWEEN #" & Format(Me.comb_inicio, "YYYY/mm/dd") & "# "
    sSQL = sSQL & " AND #" & Format(Me.Comb_data, "YYYY/mm/dd") & "#)) "
    sSQL = sSQL & " AND APagar > 0"
    sSQL = sSQL & " ORDER BY tbl_Despesas.DataPagamento ASC;"

    Marcelo David gosta desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3533
    Registrado : 21/04/2011

    [Resolvido]filtrar subformulário com dois critérios de datas Empty Re: [Resolvido]filtrar subformulário com dois critérios de datas

    Mensagem  Marcelo David Sex 13 Maio - 11:28

    Gratos pelo retorno!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]filtrar subformulário com dois critérios de datas Marcel11

      Data/hora atual: Qua 18 Maio - 18:33