[Resolvido]alerta Vencimento

Tenho uma agenda que me mostra numa caixa de texto todos os boletos que tenho a pagar no m6es corrente.
Ao lado tenho um caixa Texto "A" onde quero que mostre quantos dias faltam para o boleto vencer de 5 dias pra baixo. 5, 4, 3, 2, 1, 0, -1, -2
Caso venca hj entao em outro caixa texto "B" ira aparecer Boleto vencendo hoje e se nao for pago no dia seguinte ira aparecer BOLETO VENCIDO na caixa Texto "B"
Podem me ajudar novamente ?

A tabela onde estao essas Inf : tbl_ParcelaCompras

" />

Abaixo a agenda criei uma consulta , ode colho as inf pra por na caixa texto "C"que mostra o total de boletos do mes corrente, onde em "

Fonte de controle de "C" = =DPesquisa("valorparcela";"CsinfContasApagarMes_2")







Grato

Andre

bom se entendi direito voce precisa fazer isso na consulta

crie um campo: dias_Vencimento e o outro Status


dias_Vencimento: seimed([DataPagemento]>0;[vencimento]-[DataPagamento];[vencimento]-date)


Status: seimed([dias_Vencimento]>1;"Boleto No Prazo";seimed([dias_Vencimento]=1;"Boleto Vencendo";"Boleto Vencido"))

Bom dia Andre,

Use a fórmula DConta para contas a quantidade dos boletos à vencer:

=DContar("IdParcelaCompra";"tbl_ParcelaCompras";"(Vencimento BETWEEN #" & Format(Data()-5;"mm/dd/yyyy") & "# AND #" & Format(Data()-1;"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)")

Confira os nomes dos campos que coloquei, e corrija se estiverem errados.

Livio, mudei o projeto e vou aceitar a sua formula, porem alterei - sinal "-" para "+"

=DContar("IdParcelaCompra";"tbl_ParcelaCompras";"(Vencimento BETWEEN #" & Format(Data()+5;"mm/dd/yyyy") & "# AND #" & Format(Data()+1;"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)")

Grato

Reabrindo aqui

Se um Boleto esta atrasado a formula abaixo me mostra o seu Valor ou os valores dos boletos., neste caso coloquei pra -1 dia.
Por exemplo hj e dia 10/07 e tenho 2 boletos a pagar. Digamos que eu pague 1 e outro nao na mesma data de vencimento 10/07,
Amanha dia 11/07 ao abrir o Form, a caixa de texto da formula abaixo, somará o Boleto pago e o nao pago.
Eu quero que some somente aqueles que nao foram pagos. Desta forma como adapto uma extencao a esta formaula abaixo ?


=Nz(DSoma("ValorParcela";"tbl_ParcelaCompras";"Vencimento=#" & Format(Data()-1;"mm/dd/yyyy") & "#");0)

Como faco tb uma formula que pegue nao somente o dia anerior mas todos os dias anterios a data de hj que nao foram pagos ?



Perceba que tem duas datas iguais 1 paga e outra nao, quero que na caixa de texto apareca o somatorio de todos os boletos que nao foram pagos abaixo da data atual.

Quero tb por ao lado desta caixa, outra caixa de texto com uma formula que some a QNT de boletos em atraso. Neste caso da imagem QNT=1

Esse forum aqui é bom Demais !!

Grato

Andre

Coloque uma condição em que quando o campo DataPagamento seja nulo, o valor do registro entrará na soma:
AND DataPagamento IS NULL

=Nz(DSoma("ValorParcela";"tbl_ParcelaCompras";"(Vencimento=#" & Format(Data()-1;"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)");0)


E no caso de contar os boletos vencidos, use a mesma fórmula que passei antes, DContar, porém alterando o período "BETWEEN" por MENOR (<):

=DContar("IdParcelaCompra";"tbl_ParcelaCompras";"(Vencimento < #" & Format(Data();"mm/dd/yyyy") & "#) AND (DataPagamento IS NULL)")

Vou fazer aqui e amanha te falo valeu Livio !

Aproveitando, tenho uma outra funcao na minha agenda que funciona assim:

Caixa 1 = Total das vendas do mês
Caixa 2 = Minha meta do Mes ( R$ )
caixa 3 = Restante para bater a meta do mês ( Caixa 2 - caixa 1)
Caixa 4 = Media diaria para que a meta doo mes seja alcançada.

Todas as caixas de 1 a 3 estao funcionando, somente a caixa 4 eu preciso fazer com que essa media seja = Caixa 3 / pelo total restante que falta para completar o mês )
Assim conforme maior for a caixa 1, menor sera a media do dia.

Por exemplo: esse mês sao 31 dias, hj é dia 11, entao 31-11= 20 . Entao na caixa 4 o resultado será = Caixa 3/20.
Assim todo dia eu visualizo a minha meta diaria de vendas.

Nem que pra isso eu inicio de cada mes coloque numa caixa texto separada a QNT de dias do mes corrente.

Eu tenho isso em excel porque antes meu gerenciado era todo feito em Excel, Excel eu ate aprendi a dominar com o tempo, mas Access estou aprendendo ainda, por isso peco tanta ajuda aqui, mas ja esta 99% pronto meu sistema aqui.

Grato amigo

Andre

Livio todos os 2 codigos funcionaram 100% muito obrigado !

Caixa 1 = Total das vendas do mês
Caixa 2 = Minha meta do Mes ( R$ )
caixa 3 = Restante para bater a meta do mês ( Caixa 2 - caixa 1)
Caixa 4 = Media diaria para que a meta doo mes seja alcançada.

Caixa4 = [txtCaixa3]/(DataSerial(Ano(Data());Mês(Data())+1;0)-Data())

Troque Caixa3 pelo nome do seu TextBox.

Livio, de novo so tenho a lhe agradecer por mais esta ajuda.
Ficou perfeito aqui.

Andre