Usando Access

Como atrasar um código sem usar API

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Nesta dica 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!

Os dez artigos mais visitados

MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access

Vídeo - Controle personalizado de Acesso de Usuários

Vídeo - Aprenda sobre filtragens

Vídeo - Segurança máxima, usando o OPEN

Uma ajuda para quem está começando um negócio ou um projeto

Desabilitando a faixa(ribbon) superior do Access

Vídeo - Programação de relatórios - Parte 1

Integrando o Access com Servidor MySQL - Introdução

Como carregar o seu menu sem que ele vá para lista de suplementos

Adquira o kit UsandoAccess e aprenda em alta velocidade

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |