terça-feira, 22 de agosto de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dicas

Controlando a Barra de Status no MS Access
Autor:  André Bernardes (bernardess@gmail.com)
Publicado:  25/08/2008
Visitas: 
 
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


  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco