[Resolvido]Calendário financeiro não exibe valores da consulta

Boa tarde galera.

Criei um form á partir de um calendário de exemplo aqui do fórum.
Funciona legal, fiz alguma adaptações, só que agora ele não exibe os valores em alguns dias.

Postei um exemplo

https://db.tt/GzsbTSw9

Vá para o Mês de Dezembro, clique na primeira linha do dia 1º , verá que existem lançamentos efetuados, só que ele não exibe estes lançamentos no calendário.

Exibe uns, mas outros não. Já mexi em tudo e não consigo acertar isso. Isso acontece no dia 01, 05, 11, 18, 20 e em outros meses e dias.

Agradeço antecipadamente.

Abraços.

Boa tarde,

No módulo "ModCalnder", procedimento "PutInData", no trecho referente a cheques, substitua a linha:
rs.FindFirst "Venc_Pago = #" & minhadata & "#"

por

rs.FindFirst "format$(Venc_Pago,'dd/mm/yy') = '" & Format$(minhadata, "dd/mm/yy") & "'"

e a linha:
f("Text" & i) = DSum("ValorPago", "Cns_Pagamentos_Agenda_CHE_GC", "[Venc_Pago] = #" & Format(minhadata, "dd/mm/yyyy") & "#")

por

f("Text" & i) = DSum("ValorPago", "Cns_Pagamentos_Agenda_CHE_GC", "format$([Venc_Pago],'dd/mm/yyyy') = '" & Format(minhadata, "dd/mm/yyyy") & "'")


Provavelmente precisará fazer o mesmo para a parte de remessas e provisão.

Obrigado, vou testar e retorno.
Obrigado xará.

De nada.
Então, funcionou?

Bom dia Cláudio!
Perfeito amigo.
Não havia atentado para esta formatação de data.

Muito obrigado, funcionou.
Grande abraço.

Legal!
Abraço