[Resolvido]timer, executar comandos em determinado tempo

Olá a todos!

Encontrei esse tópico que resolveria minha vida, maximoaccess,mas acontece que está em DROPBOX, se possível não postar nada em dropbox, postar em arquivos nó fórum se o adm permitir.

Sobre minha dúvida.

encontrei função de pause na internet, mas isso não me ajuda apesar de ser bom.
encontrei exemplos qui no fórum de sobre timer, mas não tive êxito. Postarei trechos para alguem me ajudar por favor.


Private Sub Comando0_Click()
'ao clicar no botão o form atual fecharia e abriria outro form
docmd.openform"form3"
forms_form2.visible=false

End Sub

'quando eu chamar o form3, no evento load do form do mesmo, executaria um timer de 5 segundos, 'que depois disso fecharia este form3 e abriria o form1

sub form3_load()
me.timerInterval=5000 'automaticamente chama a função Form_Timer

end sub

'o problema é que esse código gera um loop que fica disparando de 5 em 5 segundos

Sub Form_Timer()
  Static intShowForm As Integer 'pq dim não tem o mesmo efeito?
   If intShowForm Then

   
   Form_form3.Visible = False
   DoCmd.OpenForm "form1"


   End If

   intShowForm = Not intShowForm ' isso não etendi mesmo
   

End Sub

'não pode disparar de 5 em 5 segundos, tem que executar somente uma vez.
por favor ajuda!

Boa tarde, existe um limite de tamanho de arquivos que o Fórum suporta, por isso usamos outros meios para compartilhar e não poderíamos
proibir esses meios, a não ser que uma grande quantidade de membros (todos nós) doassem para melhorar o espaço em disco. 

O exemplo em questão, foi posto no dropbox e a conta excedeu o limite gratuito.

Vou melhorar o exemplo em questão e subir pelo Fórum lá e aqui.

obrigado.
no aguardo...

Aí está meu amigo.

O código que inicia a contagem está no btnIniciar, mas poderá mudar
para o evento mais apropriado.

Caso não queira exibir a contagem, basta remover as linhas do evento No timer:


   

Código:

    If it < 3 Then Me.rotTime.ForeColor = vbRed
    
    Me.rotTime.Caption = it & " segundos..."

Valew meu garoto, vida resolvida.

Ótimo que deu certo! O fórum agradece o retorno!!