[Resolvido]Calendário financeiro com erro no SQL

Galera boa tarde e bom ano novo pra todos.

Bem, tenho esse exemplo em anexo que ocorre o seguinte.
Tenho um form de agenda financeira que antes de executar abro um form para escolha de mês, ano e empresa.
Utilizo este form para filtrar uma consulta.
Ocorre que quando retiro os critérios da consulta para este form, o calendário abre normalmente.
Mas quando incluo estes critérios ele simplesmente dá erro de sintaxe.
Alguém poderia analisar por favor.
Obrigado

Versão 2010.
https://www.dropbox.com/s/2y9ni8ylwgxuy30/FINANCEIRO_AGENDA_2010.zip?dl=0

Cláudio
Teste


http://ge.tt/4gy6nEV2

Bom dia aos dois;

Assis, nunca se deve usar o "On Error Resume Next" sem saber e corrigir todos os erros existentes nos códigos.
Os bancos mais tarde ou mais cedo, corrompem e o usuário jamais vai saber o porquê e pode perder todo o seu trabalho.

É a minha modesta opinião;

Cláudio, eu comentei as alterações que fiz, dentro do código.
Tenha por favor em atenção, que não deve usar palavras reservadas do Access, tais como "month" e "year" como nomes de objectos.

Teste e retorne;

http://dl.dropboxusercontent.com/u/771097/FINANCEIRO_AGENDA_OLD.zip

Obrigado JPaulo

Eu não consigo abrir as versões 2010 e superiores pois ainda estou no 2007.

Pode converter para 2007 para eu ver como resolveu o assunto ?

Obrigado

Aqui;

http://dl.dropboxusercontent.com/u/771097/Assis%20FINANCEIRO_AGENDA_2003%20%281%29.zip

Bom dia á todos.

Na verdade as palavras reservadas não fui eu quem fez, peguei este código pronto e adaptei. Mas posso modificar.

Paulo, na verdade não houve alteração no código pelo que entendi ficou no mesmo jeito.
Em que momento ocorre a filtragem?

Aqui?

Call Cal_LHM(Forms!AGENDA_ESCOLHE_EMPRESA!cboMonth.Column(0), Forms!AGENDA_ESCOLHE_EMPRESA!cboYear.Column(0))

Obrigado

Ola Cláudio;

Veja com atenção e repare que não ficou do mesmo jeito.

Compare o antes e o depois.

Entendi.

Eu fiz a consulta somando o campo ValorPago. Como faço para que nesta linha exiba somente a soma da consulta sem precisar usar o DSum?

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

Tudo isto que estou tentando fazer é para melhorar o desempenho na abertura da agenda, está completamente pesado para abrir, leva muito tempo, pois funciona em rede.

Se puder ajudar, agradeço.

Você tem de fazer essa soma na nova consulta Cns_Pagamentos_Agenda_CHE_LHM_Mod, porque a mesma não está com filtros, só é filtrada pelo código.

Ae, em vez de DSum use o DLookup

http://dl.dropboxusercontent.com/u/771097/FINANCEIRO_AGENDA_OLD_II.zip

Fiz para todas as consultas.

Perfeito Paulo.
Mas cara ainda fica pesado para carregar as informações.
Eu tentei colocar o filtro na consulta no primeiro exemplo que enviei, porquê assim o calendário não precisava carregar todas as informações da consulta de todos os meses, e sim somente aquele mês escolhido, assim de repente poderia carregar mais rápido.

Leva em média Dois minutos e meio para carregar as informações.
É muito tempo.

Ola;

O filtro direto na consulta só servirá para filtrar a primeira vez que o calendario abre.
Porque depois quando você escolher os filtros dentro do calendario já aberto, vai dar erro no SQL do VBA.

Eu coloquei o exemplo aqui no servidor da rede do trabalho e abriu em 20 segundos, provavelmente esse servidor é fraco.

Sim, nosso servidor não é lá grandes coisas.
Mas todo os sistemas funcionam bem, o problema é que são vários usuários pendurados no mesmo banco, entende.
Mas se eu puder abrir o form calendário já filtrado, eu removo os botão para escolher mês e ano e passo a abrir sempre filtrado pelo form anterior.
Assim não carregaria todos os meses.
Acho que seria mais rápido não acha?

Olá Claudio;

Isso você só saberá testando;

Alterei para as chamadas diretas e deletei o modulo.
Faça o teste e veja se a performance aumentou e retorne;

http://dl.dropboxusercontent.com/u/771097/FINANCEIRO_AGENDA_Alterado.zip

Obrigado pela ajuda.
Ficou bom, mas a performance não muda em nada.
Acredito que mesmo assim ainda esteja carregando todos os meses, pois não existe filtro na consulta só no código e usando DlookUp as somas não batem também.

Veja:

Usando DlookUp:



Usando DSum:



Tá brabo demais conseguir melhorar isso.

Veja agora a performance e os resultados corretos;

http://dl.dropboxusercontent.com/u/771097/FINANCEIRO_AGENDA_Alterado_II.zip

Tudo o que estava a pesar, não faz falta;

Código:

'        Me("Day" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("Day" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("Day" & a + gOffset).FontBold = True
'        Me("Text" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("Text" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("Pago" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("Pago" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("PagoCh" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("PagoCh" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("Deb" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("Deb" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("Provisao" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("Provisao" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("TxtPago" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("TxtPago" & a + gOffset).ForeColor = RGB(255, 255, 255)
'        Me("Total" & a + gOffset).BackColor = RGB(49, 133, 156)
'        Me("Total" & a + gOffset).ForeColor = RGB(255, 255, 255)
'
'        Me("Caixa" & a + gOffset).BackColor = RGB(49, 133, 156)

        Else

'        Me("Day" & a + gOffset).BackColor = RGB(202, 230, 238)
'        Me("Day" & a + gOffset).ForeColor = RGB(0, 0, 0)
'        Me("Day" & a + gOffset).FontBold = False
'
'        Me("Text" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("Text" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("Pago" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("Pago" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("PagoCh" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("PagoCh" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("Deb" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("Deb" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("Provisao" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("Provisao" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("TxtPago" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("TxtPago" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("Total" & a + gOffset).BackColor = RGB(255, 255, 255)
'        Me("Total" & a + gOffset).ForeColor = RGB(0, 0, 0)
'
'        Me("Caixa" & a + gOffset).BackColor = RGB(255, 255, 255)

Bem amigo.
Fico muito grato por ter enxugado o código pra mim.
Mas infelizmente o desempenho não atingiu o objetivo.
Resolvi criar consulta para gerar as informações em uma tabela temporária.
Assim a abertura do form caiu de 01:30 minutos para 5 segundos.
Obrigado.