[Resolvido]Por que meu formulário demora a somar

Bom dia! Tenho um sistema com algumas formulários ,quase todos tem somas de subformulários contínuos, só que um deles simples resolveu para demorar a somar,as vezes tenho esperar minutos para ver a soma as vezes nem soma.
Alguém sabe me dizer por que isso acontence?

A soma é direta ou por função interna DSum ?

Utiliza o Requery ou o Recalc ?

Desculpe a demora para responder estava meio ocupado!
Amigo JPaulo a soma se da assim em um formulário continuo

=soma([valornota]) valornota e campo do formulário

valornota é campo calculado ?

Faça o seguinte teste;

Abra o seu formulario que demora a mostrar a dita soma e aperte a tecla F9, veja se o resultado aparece de imediato.

Bom Dia! JPaulo não é campo calculado , e apertando F9 realmente aparece de imediato!

Ok;

O F9 é igual ao Me.Recalc

Então você deve introduzir essa instrução ao carregar do seu formulário;

Private Sub Form_Load()
    Me.Recalc
End Sub

Amigo JPaulo não funcionou ,funciona apenas se apertar F9.

Tenho dois sistemas diferentes ,com funções de soma iguais e nos 2 estou com este problema.

Teste colocando a instrução no formulario e não no subformulario;

Private Sub Form_Load()
    Me.Recalc
End Sub

Quantos registros o subformulário tem que carregar ?
Este subformulário é baseado em uma consulta ? Mostre a escrita da consulta.

Vejam exemplo do Db

https://www.dropbox.com/s/2h285xudprpaixq/agravina.mdb

Aqui mostra em 1 segundo apenas, que é o normal;

Apenas alterei as instruções que tinha ao abrir no subformulario, para o evento VBA ao carregar;

Private Sub Form_Load()
    Me.txttotal.Requery
    Me.OrderBy = "vencimento ASC"
    Me.OrderByOn = True
End Sub

Poderia ser algum problema com meu access,pois aqui continua a não mostrar só atualiza ao apertar F9?

Só pode ser, tente instalar as ultimas atualizações do seu Office.

Podemos dar como Resolvido este tópico ?

Experimente usar o recalc DEPOIS da ordenação:

Private Sub Form_Current()
' Pode ordenar tantos campos quantos quiser, ASC para ascendente e DESC para descendente.

Me.OrderBy = "vencimento ASC"
Me.OrderByOn = True
Me.Recalc

End Sub


Sucesso!

Valeu Avelino Resolveu!