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: 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