Mostrar Faturas Vendidas separadas por mês

Senhores,

Preciso demostrar em um formulário, as faturas vencidas na seguinte forma, a partir de uma data:

Data base:

até 30 dias               valor
de 31 a 60 dias         valor
de 61 a 90 dias         valor
de 91 a 120 dias       valor
de 121 a 150 dias     valor
de 151 a 180 dias     valor
mais de 180 dias       valor


No exemplo em anexo tenho essas informações, porém em um "select case", no formulário "frmteste" do BD em anexo.

Gostaria que, quando o usuário escolhesse uma data, no formulário já demostrasse conforme o formulário "frmfaturasvencidas"

Alguém poderia dar uma ajuda?

Agradeço.

Bom dia
Queria que já demostrasse conforme o formulário "frmfaturasvencidas"?
Neste formulário não vejo que demonstre

Bom dia Alexandre,

Agradeço pelo retorno.

Na questão do formulário "frmfaturasvencidas", gostaria que fossem retornados os valores conforme está disposto nesse formulário, quando o usuário escolher uma data base. Ou seja, quando fosse escolhida a data base, que o formulário já fosse preenchido automaticamente, de acordo com os rótulos. É esse o código que preciso, pois, no formulario "frmteste", a informação vem conforme é selecionado no "quadro".

O que preciso é quando o usuário escolhesse a data base, que o formulário "frefaurasvencidas" já fosse totalmente preenchido, sem a necessidade de escolher, conforme está no "frmteste".

Espeto ter explicado claramente!

Obrigado.

Prezados,

Alguma ideia?

Grato.

JSomm, boa noite!

Formulário: [frmTeste]
     O objetivo deste formulário é demonstrar dentro das Faturas já vencidas quais são as datas e valor acumulado por data. Certo?
     O comportamento é que ele vá mostrando dentro das categorias de vencimento, quais datas estão inclusas e distribua nos campos. Certo?

Formulário: [FrmfaturasVencidas]
    Neste formulário você deseja demonstrar o valor acumulado por Categorias de Vencimento (30, 60, 90 etc... ), correto?

Ao invés de montar sua consulta conforme abaixo:

Código:

SELECT *
FROM qryValoresReceber
WHERE Dinamico;


Experimente montar a consulta, aonde {Dinamico}, você substitui pela lógica que você deve considerar no filtro.

Código:

SELECT
     SUM(V.ValorReceber) AS [Valor]
    ,IIF(Datediff("d", DataVencimento, Date()) <= 30, 30, IIF( Datediff("d", DataVencimento, Date()) >= 31 AND Datediff("d", DataVencimento, Date()) <= 60, 60, IIF( Datediff("d", DataVencimento, Date()) >= 61 AND Datediff("d", DataVencimento, Date()) <= 90, 90, IIF( Datediff("d", DataVencimento, Date()) >= 91 AND Datediff("d", DataVencimento, Date()) <= 120, 120, IIF( Datediff("d", DataVencimento, Date()) >= 121 AND Datediff("d", DataVencimento, Date()) <= 180, 180, "+180"))))) AS [Categoria Vencimento]
FROM qryValoresReceber AS V

WHERE {Dinamico}

GROUP BY
IIF(Datediff("d", DataVencimento, Date()) <= 30, 30, IIF( Datediff("d", DataVencimento, Date()) >= 31 AND Datediff("d", DataVencimento, Date()) <= 60, 60, IIF( Datediff("d", DataVencimento, Date()) >= 61 AND Datediff("d", DataVencimento, Date()) <= 90, 90, IIF( Datediff("d", DataVencimento, Date()) >= 91 AND Datediff("d", DataVencimento, Date()) <= 120, 120, IIF( Datediff("d", DataVencimento, Date()) >= 121 AND Datediff("d", DataVencimento, Date()) <= 180, 180, "+180")))));



Assim será montado uma matriz, conforme print abaixo:


A partir dai bastar percorrer o recordset e preencher o campo conforme deseja.
PS.: No formulario vc possui tres colunas, como não ha legenda nao sei que informaçao a mais desejaria. Mas basta adptar a consulta incluindo campo no select e clausula group by, lembrando de separar por virgula.

Espero ter ajudado.

Prezado Philipp,

Agradeço pela resposta.

Realmente as suas colocações estão corretas. No "frmfaturasvencidas", gostaria que fossem colocados os valores nas caixas de texto, conforme o tempo de vencimento: 30 dias, 60 dias, etc, como demonstrados na consulta que você fez. A outra coluna desse formulário é para demonstrar o percentual do total vencido, por categoria. Exemplo:


Até 30 dias 100,00 20%
de 31 a 60 dias 100,00 20%
de 61 a 90 dias 300,00 60%

total 500,00 100%

Qual é o código para eu colocar essas informações no formulário?

Obrigado!

Crie uma função para o(s) campo(s) de percentual diretamente no construtor de função ( Minha opinião: pois aqui, não é necessário VBA ).

Para colocar o percentual, não há problemas. A minha dúvida é qual o código para que o formulário demonstre os valores dentro das caixas de texto. Ou seja, como transportar os valores da consulta para o formulário.

Preencha o recordset, percorra ele, setando os respectivos valores aos seus campos. Como você fez no outro form!

Prezado,

Fiz conforme sua orientação. E funcionou perfeitamente sem o filtro da data.

O que preciso agora é fazer que seja demonstrado os valores cujos vencimentos sejam anteriores a data informada [dta0].

Como deve ser o código do filtro? Por favor, eja abaixo o código que está dando erro de sintaxe.


strFiltro = "DataVencimento < #" & Format(Me!dta0, "mm/dd/yyyy")
strSql = " SELECT * FROM qryValoresReceber WHERE " & strFiltro
Set rs = CurrentDb.OpenRecordset(strSql)

Obrigado.

Está faltando & "# " , depois do format().

Agora aparece esse erro:

Erro em tempo de execução 3061
Parâmetros insuficientes. Eram esperados 1.

Manda print de onde o código para.

Veja o anexo.

No format experimente mudar para padrao de data brasileiro. dd/mm/yyyy

Tentei e deu o mesmo erro.

Agora, quando eu abro o formulário "frmfaturasvencidas' vem o seguinte erro:

Erro em tempo de execução 3075

Erro de sintaxe na data na expressão de consulta 'Datavencimento < #'

jsomm,

O Erro ao abrir o formulário, está ocorrendo pois você chama o evento do campo data no load do formulário quando o campo é nulo, sendo assim, estoura o erro. Retire esta chamada e parte do problema vai estar a caminho da solução final.

Revi seu código, e basicamente ocorre erro ao setar o recordset, pois as variáveis, possuem diferença de nome. Reveja a nomenclatura que definiu na declaração das variáveis e a nomenclatura de chamada(s) dentro do seu código.

Obs.: Eu recomendo que em todos seus códigos, utilize a declaração [Option Explicit] no começo do documento de código na parte superior acima de todos os Subs, eventos e functions, a qual força a declaração para utilização de uma variável o que minimiza a possibilidade de declarar variavel com um nome e chama-la com outro, bem como força deixar explicitamente qual o tipo de dado da variável o que facilita uma leitura, interpretação e entendimento do código, por uma outra pessoa que não você, ao se realizar uma manutenção por exemplo.

Agradeço a ajuda recebida. Fiz uns ajustes no código, conforme o Phillipp orientou.

Também fiz uns ajustes nas consultas, para que as mesmas retornem as faturas vencidas a partir de uma data informada: [dta0].

Agora, preciso que no formulário frmfaturasvencidas vencidas demonstre as faturas vencidas, conforme as categorias:

até 30 dias
de 31 a 60 dias
de 61 a 90 dias
etc....

O erro, agora é:

Erro em tempo de execução 3061
Parâmetros insuficientes. Eram esperados 1.

O erro está nesta linha: Set rs = CurrentDb.OpenRecordset(strSql)

Já tentei de várias formas e sintaxes, porém sem sucesso.

Alguém poderia me dar uma luz?

Obrigado.