Enquanto processos estão sendo executados na aplicação que você desenvolveu, uma ajuda quanto ao que está ocorrendo é sempre bem vinda para os usuários.
Não são raros os momentos onde processamentos mais delongados denotam um aparente travamento, quando na verdade nada mais é do que o tempo necessário para se realizar um determinado processamento de dados.
Para nos ajudar nisso, podemos utilizar a Barra de Status do MS Access, enviando mensagens, permitindo que o usuário tenha conhecimento das ações mais relevantes que estão sendo executadas no momento.Utilizando o VBA, podemos colocar tais mensagens na barra acinzentada inferior.
Utilize uma idéia similar para notificar as ações mais importantes da sua aplicação.
Abaixo está um modelo simples e prático.
Sub
StatusBar(Optional nMessage As Variant)
Dim Efemero As Variant
' Caso o parâmetro nMessage seja omitido ou fique vazio
o controlo sobre a Barra de Status volta para o MS Access.
If Not IsMissing(nMessage) Then
If Msg <> "" Then
let Efemero = SysCmd(acSysCmdSetStatus, nMessage)
Else
let Efemero = SysCmd(acSysCmdClearStatus)
End If
Else
Efemero = SysCmd(acSysCmdClearStatus)
End If
End Sub
Tags:
MS Access, VBA, StatusBar, message, notification, temporário
Também disponível em:
Ativo Access
ANDRÉ BERNARDES
Santos - SP - Brasil
MSN:
bernardess@gmail.com
SKYPE: inanyplace
TWITTER: bernardess
My Profile:
http://al-bernardes.sites.uol.com.br/
In LinkedIn:
http://www.linkedin.com/in/andrebernardes
In Plaxo:
http://andrebernardes.myplaxo.com/
In Jobster:
http://www.jobster.com/people/andrebernardes
My experiences:
http://andrelbernardes.sites.uol.com.br/MIS.html
http://andrelbernardes.sites.uol.com.br/XLS.html
Acesse meus Feeds:
http://www.google.com/reader/shared/17429357110218427555
Acesse o portfólio:
http://www.slideshare.net/bernardes/informaes-ao-invs-de-dados-presentation
- O segundo lerá dados da tabela no MS Access e os colará na planilha do MS Excel. 
ANDRÉ BERNARDES