How to write text on Status bar

[davidogutu]

How can I display text like welcome on status bar? in Microsoft Access


Simple code or explanation please

[ADezii]

1. To Write Text on the Status Bar:
   

   Dim varReturn As Variant
    
   varReturn = SysCmd(acSysCmdSetStatus, "Text to write on the Status Bar!")

2. To Clear Text from the Status Bar:
   

   Dim varReturn As Variant
    
   varReturn = SysCmd(acSysCmdSetStatus, " ")

[NeoPa]

Application.Echo EchoOn:=False, bstrStatusBarText:="Your Message Here"

Or, more simply :

Application.Echo False, "Your Message Here"

[davidogutu]

1. To Write Text on the Status Bar:
   

   Dim varReturn As Variant
    
   varReturn = SysCmd(acSysCmdSetStatus, "Text to write on the Status Bar!")

2. To Clear Text from the Status Bar:
   

   Dim varReturn As Variant
    
   varReturn = SysCmd(acSysCmdSetStatus, " ")

Thanks a lot . It works perfectly. Just what I was looking for. Thanks and may God bless you.

[davidogutu]

Application.Echo EchoOn:=False, bstrStatusBarText:="Your Message Here"

Or, more simply :

Application.Echo False, "Your Message Here"

Thanks a lot. Unfortunately, it just doesn't work.

Thanks a lot.

[ADezii]

Thanks a lot . It works perfectly. Just what I was looking for. Thanks and may God bless you.

Same to you, davidogutu.

[NeoPa]

Thanks a lot. Unfortunately, it just doesn't work.

Thanks a lot.

Sorry about that.

I tested it yesterday and it showed up. Unfortunately, today my status bar has disappeared completely (probably related somehow to the testing I would guess) and won't return even when I tell it to using Tools / Options.

I suppose I will need to understand this better somehow.

[missinglinq]

Ade, you might try just setting Echo back to True. The few times I've tried using it it did some strange things, and I believe you have to explicitly turn it back on.I seem to remember that even closing then re-opening Access won't reset it.

Linq ;0)>.

[ADezii]

Sorry about that.

I tested it yesterday and it showed up. Unfortunately, today my status bar has disappeared completely (probably related somehow to the testing I would guess) and won't return even when I tell it to using Tools / Options.

I suppose I will need to understand this better somehow.

Hello NeoPa, I just think that you are simply not using Echo in the proper context. Its primary Function is not to display Text on the Status Bar:

Dim lngCounter As Long
 
DoCmd.Hourglass True
Application.Echo False, "VB Code Now Executing...."
 
'Simulate something the User should not see, do not Repaint the Screen
For lngCounter = 1 To 20000
  Debug.Print lngCounter / 0.357
Next
 
DoCmd.Hourglass False
Application.Echo True     'Allow the Screen to be Repainted again
 

[ADezii]

Ade, you might try just setting Echo back to True. The few times I've tried using it it did some strange things, and I believe you have to explicitly turn it back on.I seem to remember that even closing then re-opening Access won't reset it.

Linq ;0)>.

Hello Linq, good point to make. If you turn echo OFF in Visual Basic, you must turn it back ON or it will remain OFFf, even if the user presses CTRL+BREAK or if Visual Basic encounters a Breakpoint.

[NeoPa]

I should have mentioned I also ran :

Application.Echo True

Although, as this only really turns on the updating of it (rather than the existence of it) I was rather pinning my hopes on setting the Status bar back to being shown on the screen.

I'll check again when I get home. Hopefully after a reboot and a restart of Access it may be fixed now (crosses fingers).

[LuisContreras]

This worked for me:

Create this function, then use it within a subroutine; e.g., A_StatusBar("Write this in the status bar"). Or, in a macro use RunCode and use the same syntax. To clear the status bar, use A_StatusBar(" ") with a space.

Function A_StatusBar(tString As String)
Dim varReturn As Variant

varReturn = SysCmd(acSysCmdSetStatus, tString)

End Function