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


3 participantes

    [Resolvido]Calendário financeiro com erro no SQL

    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 4/1/2016, 19:10

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Assis 4/1/2016, 22:16

    Cláudio
    Teste


    http://ge.tt/4gy6nEV2


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 5/1/2016, 11:02

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Assis 5/1/2016, 11:43

    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


    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 5/1/2016, 11:48

    Aqui;

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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 5/1/2016, 12:19

    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


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 5/1/2016, 12:21

    Ola Cláudio;

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

    Compare o antes e o depois.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 5/1/2016, 13:02

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 5/1/2016, 15:15

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 5/1/2016, 17:08

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 5/1/2016, 17:12

    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.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 5/1/2016, 17:29

    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?


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 6/1/2016, 10:12

    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



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 6/1/2016, 14:22

    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:

    [Resolvido]Calendário financeiro com erro no SQL 2dse6bb

    Usando DSum:

    [Resolvido]Calendário financeiro com erro no SQL Soa23m

    Tá brabo demais conseguir melhorar isso.



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  JPaulo 6/1/2016, 14:57

    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)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Calendário financeiro com erro no SQL Folder_announce_new Instruções SQL como utilizar...
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Cláudio Machado 11/1/2016, 14:20

    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.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Calendário financeiro com erro no SQL 90dssg para agradecer a dica que solucionou seu problema.

    Conteúdo patrocinado


    [Resolvido]Calendário financeiro com erro no SQL Empty Re: [Resolvido]Calendário financeiro com erro no SQL

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 01:04