[Resolvido]Preenchimento de campos automaticamente dando problema

Boa tarde, estou tendo um problema com um formulário e seus códigos de vba.
O que ocorre é que tem hora q funciona perfeitamente e tem vez que quando abro, sem mexer em nada já dá erro e não preenche os campos que eram para ser preenchidos.

Alguém pode me ajudar?

Vou postar aqui a imagem de como está o meu formulário e o código VBA que eu estou usando.

---------------------------------------
Private Sub SecaBasetxt_Change()
Me.Refresh
End Sub
--------------------------------------
Private Sub TipoLeituraTxt_Change()
If Me.TipoLeituraTxt.Value = "Normal" Then
Me.DeltaLtxt.Value = Me.LeituraAtuaTxt.Value - Me.ListaLEITURA
Me.SmtDelLtxt.Value = (Me.ListaSMTDELL) + (Me.DeltaLtxt)
Me.MMDiatxt.Value = Me.DeltaLtxt.Value / Me.DeltaTtxt.Value
Me.Refresh
Else
If Me.TipoLeituraTxt.Value = "Inicial" Then
Me.DeltaLtxt.Value = 0
Me.SmtDelLtxt.Value = 0
Me.MMDiatxt.Value = 0
End If
End If
End Sub
--------------------------------------
Private Sub DataUltimatxt_AfterUpdate()
Me.DeltaTtxt.Value = Me.DataAtualtxt.Value - Me.DataUltimatxt.Value
End Sub

QUe tipo de erro? Depura para que linha?

Cumprimentos.

Eu estou tendo problema com o campo de Leitura Anterior e com o Deslocamento Total Anterior. A Leitura Anterior é uma consulta que vai buscar a leitura de acordo com ultimo dia e com o número da seção.
Da mesma forma o deslocamento Total faz da mesma coisa.

Está aqui em SQL o código da consulta do Leitura Anterior.

SELECT Monitoramento.Leitura
FROM Monitoramento
GROUP BY Monitoramento.Leitura, Monitoramento.DataAtual, Monitoramento.SecaBase
HAVING (((Monitoramento.DataAtual)=[Formulários]![SCMonitoramento]![DataUltimatxt]) AND ((Monitoramento.SecaBase)=[Formulários]![SCMonitoramento]![SecaBasetxt]));

E aqui está o SQL o código da consulta do Deslocamento Total Anterior.

SELECT Monitoramento. SmtDelL
FROM Monitoramento
WHERE (((Monitoramento.SecaBase)=[Formulários]![SCMonitoramento]![SecaBasetxt]) AND ((Monitoramento.DataAtual)=[Formulários]![SCMonitoramento]![DataUltimatxt]));

O pior é que mesmo eu refazendo, tipo colando e copiando este código, começa a funcionar.
Mas ele começa a não realizar as operações do código VBA, que é o de pegar o valor e somar e subtrair os valores dos campos.

Eu não sei mais o que fazer, porque isto está me dando MUITA raiva!
Se toda vez que eu abrir meu "programa" de controle eu ter de refazer, vou acabar quebrando meu pc!

PS: Em anexo está a imagem da visualização do modo de exibição.

Boas... Ajudaria se pudesse postar aqui a parte do bd com os objetos envolvidos para que possamos ver e encontrar uma solução.

A princípio não estou vendo problemas...

Cumprimentos.

Exatamente como eu, não vejo problema nenhum, porém está dando, pois ele não está puxando os dados da consulta e outras vezes não fazendo a somatória.

Não posso postar aqui o BD pois é bem grande e tem informações confidenciais da empresa que eu trabalho.

Não tem outra forma não?

Bem.. como disse a princípio não vi problemas nas SQL que enviaste.

Tente marcar o código com pontos de interrupção e antes de ser executada as consultas verifique se os campos do form estão já preenchidos. Isso pode ser uma das causas, pois se o campo ainda não estiver preenchido pode dar erro na consulta.

Podes utilar a consulta em VBA, e aplicá-la no evento ao carregar ou ao abrir, para verificar se corrige isso.


Enfim...

Cumprimentos.

Eu refiz os formulários do zero.
e agora deu certo.
Acho que começou com o problema devido a quantidade massiva de informações em um mesmo banco de dados, pois eu tenho mais de 1.500.000 dados em varias tabelas no meu banco.
Ai deixarei este a parte.

O Fórum agradece o Retorno.