VBA Access - Alterando a Barra de Status - Message in Status bar




Sim, alterar a mensagem que é mostrada na Barra de Status da sua aplicação MS Access pode ser algo que desejará um dia. Como? Segue código abaixo.

Function ChageStatusBar
     Dim nStatus As Variant
       Dim nMess As String

     Let nMess = "Copyright 2012 - A&A - In Any Place"

     ' Mostra a mensagem.
     Let nStatus = SysCmd(acSysCmdSetStatus, nMess) 


     ' Limpa a mensagem.
     Let nStatus = SysCmd(acSysCmdClearStatus) 


Tags: VBA. Access, Bar, StatusBar, message, mensagem, barra de status,



Nenhum comentário:

Postar um comentário

diHITT - Notícias