Atrasar "Delay" execução de código em 2 Segundos

Olá.

Como vão todos?

Vejam bem, tenho um formulário que deve executar uma ação, porém preciso de um
Atraso, Delay, pois ele está sendo executado muito rápido e não espera os dados
da função serem atualizados.

Tenho um campo [SomaVP] que fica no rodapé do sub-fomulário e soma todos os pagamentos,
ele possui o seguinte código ''=Soma([Valor_pago])"

Após ele somar eu desejo que este valor seja copiado para o formulário-Pai.

Porém no meu código o Refresh e a copia estão sendo executados simultaneamente,
logo não está dando tempo para o campo SomaVP atualizar.

Vejam o codigo:
======================================================
Private Sub Valor_pago_Exit(Cancel As Integer)
Me.Refresh
Me.Parent.CONTRATOS![Total_Pago] = [SomaVP]
End Sub
======================================================

Eu preciso que a parte: "Me.Parent.CONTRATOS![Total_Pago] = [SomaVP]"
Atrase um pouco para dar tempo do Refresh ser executado por completo
e assim o campo [SomaVP] estar atualizado.  

Creio que uns 2 a 3 segundos de atraso sejam suficientes.

Talvez se o sistema desse uma travadinha de 2 seg antes de executar o
código  "Me.Parent.CONTRATOS![Total_Pago] = [SomaVP]" de certo.


Alguém pode me ajudar?

Olá.

Só quero usar o delay mesmo.

Mas nao entendi como, pode me explicar sobre o API Sleep?

http://maximoaccess.forumeiros.com/t995-provocar-pausa-numa-instrucao

Ou ainda;

Public Function TimeDelay(TSegundos As Integer, ByVal TEventos As Boolean)
'By JPaulo ® Maximo Access
   Dim IniciaContagem As Date
 
   If TSegundos < 1 Then  ' Tempo em segundos
       Exit Function
   End If
   IniciaContagem = Now 'inicia contagem de espera através da hora do sistema.
   Do Until DateDiff("s", IniciaContagem, Now) > TSegundos
       If TEventos Then
           DoEvents
       End If
   Loop
End Function

Para utilizar;

TimeDelay 2, True ' tempo de pausa

Paulo

usei o código que me passou mas não deu certo.

veja o print.

O seu exemplo em anexo não é exatamente o que eu preciso.

Eu quero que, quando o formulário for aberto ele de um Refresh.

e depois de alguns segundos AUTOMATICAMENT ele faça o segundo procedimento.

sem precisar apertar botões.

Você está a colocar a função dentro do Current do form, logicamente que vai dar asneira.

Tem de colocar a função no VBA do formulario, mas fora de qualquer instrução ou evento.

No evento VBA ao carregar do seu form;

Private Sub Form_Load()
Me.Recalc
TimeDelay 2, True
    If Me.Valor_pago.Value <> Null Then
        Me.Parent.CONTRATOS![Total_pago] = Me.Soma_VP.Value
    End If
End Sub

Olá.

Consegui fazer o código funcionar desta forma sem precisar do Delai.

-------------------------------------------------------------
Private Sub Form_Current()
Me.Refresh
If IsNull(Me.SomaVP.Value) = False Then
Me.Parent.CONTRATOS![Total_Pago] = Me.SomaVP.Value
ElseIf IsNull(Me.SomaVP.Value) = True Then
Me.Parent.CONTRATOS![Total_Pago] = Null
End If
End Sub
-------------------------------------------------------------

Porém este método retornou outro problema.

Normalmente quando clicamos na seta para criar um novo Contrato no
Formulário-Pai. ele aparece sem contabilizar seu numero de ID.

Mas usando o código acima, o Campo [Total_Pago] do Formulário.pai
recebe um valor Null, e mesmo assim o Formulário-Pai recebe um numero
78, 79, 80... ao invéz de ###

Como resolver isto?

Qual valor usar no lugar de Null para que isto nao ocorra?

Existe outro como por exemplo: Empt, Vazio, Clear ????

Olá.

Consegui resolver o problema do preenchimento do Null desta forma.

Tenho um campo no formulário chamado "Ativo" que tem o valor padrão "0".

Então antes de seguir para o código, é verificado se o contrato está ativo, ou seja
se "Ativo = 0" Se for, eu mandei dar só um Refresh pois não altera nada (TERIA OUTRA OPÇÃO?)

Mas se estiver ativo "Ativo = 1" ele segure compiando os dados.

Vejam como ficou o código.

===============================================
Private Sub Form_Current()
Me.Refresh
If Me.Parent.CONTRATOS![Ativo] = 0 Then
Me.Refresh
Else
If IsNull(Me.SomaVP.Value) = False Then
Me.Parent.CONTRATOS![Total_Pago] = Me.SomaVP.Value
ElseIf IsNull(Me.SomaVP.Value) = True Then
Me.Parent.CONTRATOS![Total_Pago] = Null
End If
End If
End Sub
===============================================

Este código é para preencher o campo [Total_Pago] assim que
que o formulário é aberto.

Porém também preciso que este campo seja preenchido assim que eu
adiciono ou excluo um pagamento.

e é ai que estou tendo o outro problema com o Delay, pois, as vezes
quando eu pressiono o botão muito rapido, não da tempo de o
campo soma "SomaVP" ser atualizado.

este é o motivo de eu precisar do Atraso.

Eu Adicionei o Recalc, no lugar do Refresh e funcionou, porém o cursor
volta sempre para o início dos registros.

Existe uma forma de cancelar isto?

Ola;

O Recalc não faz com que o registro volte ao primeiro, o Requery é que faz isso.

Se pretender, anexe aqui parte do seu banco para o ajudarmos em concreto.