... Pague apenas R$47,00 uma única vez e tenha acesso por 1 ano aos vídeos e arquivos exemplos do site ...

Clique aqui e obtenha mais detalhes.


Como atrasar um código sem usar API

Na dica 13 foi apresentado a API sleep(), com o objetivo de atrasar a execução de uma rotina.  Uma alternativa de código para a mesma finalidade é fazermos uso da função timer() do Access.  Observe o código:

Public Sub fncAguardar(lngMilesegundos&)
Dim varStart
varStart = Timer  'Tempo inicial
Do While Timer < varStart + (lngMilesegundos / 1000)
    DoEvents  'Libera outros processos
Loop
End Sub

Como teste, experimente utilizar o procedimento antes da abertura de um relatório:

call fncAguardar(5000) 'Aguarda por 5 segundos
Docmd.OpenReport "NomeRelatório", acViewPreview

 

Bom estudo!


 

 


Não há comentário

Envie seu comentário: