MS Access e Barra de Progresso nativa

Sabe aquelas tarefas bastante demoradas em que o usuário fica esperando um determinado processamento, como por exemplo, um looping, uma consulta no banco de dados ou um calculo complexo, (etc)…

É bastante tedioso o sistema não informar a seu usuário o que está se passando por aquele momentâneo, mas delongo, congelamento de tela.

O MS Access possui em sua barra de status uma barra de progresso que pode ser usada por seu usuário (programador) para, justamente, informar ao seu usuário do sistema (usuário do sistema desenvolvido em MS Access)  o progresso de uma tarefa demorada.

Seguem abaixo, os passos para a sua utilização:

1) Certifique-se de que a barra de status já está disponível para visualização. Para tanto vá em (Opções do Access) e clique na guia (Banco de Dados Atual) e em seguida habilite a opção (Exibir Barra de Status):

1 - habilitar barra de status

2 - habilitar barra de status

(ao final clique no botão OK para salvar suas preferências)

2) Em seguida, defina em sua programação, na sua rotina demorada, as notificações para que barra de progresso contida na barra de status seja preenchida:

3 - código da barra de progresso

3) Veja o resultado:

4 - progress bar resultado

Faça o download do código deste exemplo.

Anúncios
Esta entrada foi publicada em MS Access, Visual Basic 6.0 e VBA com as etiquetas , , , . ligação permanente.

Uma resposta a MS Access e Barra de Progresso nativa

  1. Aldir diz:

    Amei o código, mas a rotina que fiz é muito grande e a barra de progresso encerra antes do término da minha rotina.

    Gostar

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s