[Resolvido]Atualizar campos ao carregar formulário

Boa tarde,


Eu gerei o seguinte código no evento Got Focus do formulário e funcionou como esperado. Contudo, possuo muitos registros (36.000) e necessito fazer com que o campo seja alimentado de uma única vez.


Tentei fazer no Ao Carregar, do formulário sem obter sucesso.

Algum amigo sabe como eu deveria proceder?


Muito obrigado!!!!


Private Sub Total_guias_esperado_GotFocus()
Dim Resultado As Long
Dim Atual As Date
Dim DataPagto As Date


If Me.Situação = "Quitado" Or Me.Situação = "Em Processamento" Then

Atual = Me.Data_atual
DataPagto = Me.Dt_Pagto

Resultado = DateDiff("m", DataPagto, Atual)

Me.Total_guias_esperado = Resultado

Else
Resultado = 0
Me.Total_guias_esperado = Resultado

End If



End Sub

Não custa nada testar.

Teste também no Form_Current , que é no Atual.

Assis,


Testei das duas maneiras.

A bem da verdade, esqueci de mencionar que me utilizo de um Formulário Contínuo.

Eu procuro uma forma de, ao abrir o formulário, ele executar as ações do código de uma maneira parecia com o que faz o comando:

CurrentDb.Execute

Que, no caso, executa uma consulta de atualização pré definida.

Um pitaco....

No evento Atual do teu formulário...

Me.requery

Ou ao invés de usar o código ao perder o foco, use ele no evento ao sair do campo.   Usando ainda o me.requery

Amigos,


Consegui seguindo o seguinte:

- Criei uma consulta de atualização e, no campo em que desejo ser alimentado com o valor numérico de diferença entre meses, inseri a função DifData("m";[Dt Pagto];[Data_atual]) na opção 'Atualizar para:'.

- Após, no evento Ao Carregar do formulário, inseri o CurrentDb.Execute ("Consulta de atualização")

Com isso, ele atualiza todos os registros quando da abertura do formulário.


Muito obrigado pela ajuda e atenção de vocês!