Timer Event - Why does this happen

[Rhino373]

I'm attempting to display that my database is working through the following code in the form_timer() event:

 
Private Sub Form_Timer()
If working.Caption = "working" Then
    working.Caption = "working."
Else
    If working.Caption = "working." Then
        working.Caption = "working.."
    Else
        If working.Caption = "working.." Then
            working.Caption = "working..."
        Else
            working.Caption = "working"
        End If
    End If
End If
End Sub

This works okay if the database isn't taking any actions. Once the database begins work, the label disappears. I use a macro to make the label visible and call the timer event. I then call the working event. I then call a function that hides the caption. The working event isn't a quick process, it can take about 5 minutes to compete. It basically opens 2 Excel files, runs a macro from one that makes changes to the other, running various filters and formatting to end up creating about 50 pdf documents then closes both files. While all this is occuring the "working" label disappears.



Any ideas why this happens or how I can get around this?

[orange]

If you're just trying to inform user of what is happening, you might want to use this approach.

http://support.microsoft.com/kb/210474

[ajetrumpet]

ummm...the code you provided is obviously not doing it. without the whole picture, there's no way to know where the problem code is.

you might also want to consider the fact that in windows, which is relevant in access as well, mouse clicking takes memory because each one is command, whether it is discarded or not.

I have yet to figure out how to stop people from clicking when my code is running. too much clicking will freeze the program no matter what's running.