status bar

[lee123]

hello there, i have a question i have a status bar on my form it displays the time, the date if i wanted a message to appear in it how can i do that? well what i mean is at a certain time is there a way to display "Break Time" or "lunch time" in one of the panels. or can i use a text box to display these things from the time in the panels.

lee 123

[ADezii]

hello there, i have a question i have a status bar on my form it displays the time, the date if i wanted a message to appear in it how can i do that? well what i mean is at a certain time is there a way to display "Break Time" or "lunch time" in one of the panels. or can i use a text box to display these things from the time in the panels.

lee 123

Displaying Text in the Status Bar is a very straightforward and simple operation.

To display Text in the Status Bar:

Dim varRet As Variant
varRet = SysCmd(acSysCmdSetStatus, "Place Text to display in the Status Bar here")

To remove Text from the Status Bar:

Dim varRet As Variant
varRet = SysCmd(acSysCmdClearStatus)

[lee123]

does this work when the clock reaches a certain time so when it hits...oh lets say 12:00 P.M the message will say lunch time

lee123

[lee123]

and where do i put the code behind the status bar

lee123

[ADezii]

does this work when the clock reaches a certain time so when it hits...oh lets say 12:00 P.M the message will say lunch time

lee123

1. Set the Form's Timer Interval to 1000 (1 second).
2. Declare a Form Level Variable.
   

   Dim varRet As Variant

3. Clear the Status Bar in the Open() Event of the Form.
   

   Private Sub Form_Open(Cancel As Integer)
     varRet = SysCmd(acSysCmdClearStatus)
   End Sub

4. Place similar code in the Form's Timer() Event.
   

   Private Sub Form_Timer()
   If Time() = #12:00:00 PM# Then
     varRet = SysCmd(acSysCmdSetStatus, "Time for lunch")
   ElseIf Time() = #1:00:00 PM# Then
     varRet = SysCmd(acSysCmdSetStatus, "Lunch is over - back to work guys!")
   ElseIf Time() = #1:05:00 PM# Then
     'Clear Status Bar at 1:05 PM
     varRet = SysCmd(acSysCmdClearStatus)
   Else
   End If
   End Sub

[lee123]

ok i tried this but not getting anything.

to see if i did this right and understand what you are explaining i got this
in the forms timer i entered the code you gave me then in the open event of the form i placed the other code. the variable i place in the timer event or was i suppose to place this in the open event? anyway this is what i did.

lee123

[ADezii]

ok i tried this but not getting anything.

to see if i did this right and understand what you are explaining i got this
in the forms timer i entered the code you gave me then in the open event of the form i placed the other code. the variable i place in the timer event or was i suppose to place this in the open event? anyway this is what i did.

lee123

Place this Variable Declaration in the General ==> Declarations sections of the Form's Code Module.

Dim varRet As Variant

[lee123]

ok adezii i have done everything you said and still nothing. question, do i have to set anything in the status bar such as text or anything because i have done what you said to do and no text in the status bar does the time and the date have to be in a certain panel because i have the date in the first panel and the time in the 7th panel

lee123

[ADezii]

ok adezii i have done everything you said and still nothing. question, do i have to set anything in the status bar such as text or anything because i have done what you said to do and no text in the status bar does the time and the date have to be in a certain panel because i have the date in the first panel and the time in the 7th panel

lee123

You do not have to do anything else in the Status Bar. You will see nothing in the Status Bar until 12:00:00 PM (Noon) and again at 1:00:00 PM (after lunch). Did you set the Form's Timer Interval to 1000?

[lee123]

yes but when it hits that time there is nothing no text nothing

lee123