Poste com um exemplo simples para os iniciantes...
Controlando a Barra de Status no MS Access
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: StatusBar, message, notification, temporário
Forte abraço.
André Bernardes
Analista de Sistemas
A&A - In any Place®
Cel: 13 9152-2565
Skype: inanayplace
CV: http://al-bernardes.sites.uol.com.br/
Mail: bernardess@gmail.com
My Profile: http://al-bernardes.sites.uol.com.br/
In LinkedIn: http://www.linkedin.com/in/andrebernardes
In Plaxo: http://andrebernardes.myplaxo.com/
My experiences:
http://andrelbernardes.sites.uol.com.br/MIS.html
http://andrelbernardes.sites.uol.com.br/XLS.html
|