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