StatusBarText

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi to everybody,

on certain occasions I have programmed StatusBarText
(Screen.ActiveControl.StatusBarText = "xyz") in my Forms which works fine.
But once shown, how do I eliminate that text and go back to normal (showing
the original StatusBarText Property as registered - i. e. the name of the
control). At present I only manage the form to indicate "Bereit" resp.
"Ready".

many thanks for trying.

ulrich
 
Ulrich,

You might be better to manipulate the Status bar directly:
Dim lJunk As Long
lJunk = SysCmd(acSysCmdSetStatus, "Text string")

....and when you want to get rid of it:
lJunk = SysCmd(acSysCmdSetStatus, "")

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
 
Graham R Seach said:
Ulrich,

You might be better to manipulate the Status bar directly:
Dim lJunk As Long
lJunk = SysCmd(acSysCmdSetStatus, "Text string")

...and when you want to get rid of it:
lJunk = SysCmd(acSysCmdSetStatus, "")
Click to expand...

I don't think that line to clear the status bar message is right,
Graham. Shouldn't Ulrich just write:

lJunk = SysCmd(acSysCmdClearStatus)

? In fact, I don't think you're allowed to set the status bar text to a
zero-length string, though you can set it to a blank string; e.g.,

lJunk = SysCmd(acSysCmdSetStatus, " ")
 
I forgot about SysCmd(acSysCmdClearStatus), that's why I gave him
SysCmd(acSysCmdSetStatus, " "), but I could have sworn I'd hit the space
bar.

I'm glad you told us about the latter though. I've saved that one for future
reference. Thanks Dirk.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia
---------------------------
 
Back
Top