I have a form on my access data base which has a Label on it called LblStatus.

I use this Label to keep the user up to date with any processes I am running.

Thus I might use a call of

Code:
Squawk "Current Row " & Row
inside a loop.

My problem is that if I switch to another application the form stops updating, although the code is running fine.

The only way I can get the form to resume updating is to use Ctrl-Break and then click Continue.

Can anyone suggest why this is happening, or better yet how to solve this.


Code:
Public Sub Squawk(ByVal Text As String)
On Error GoTo Err_Squawk

    Form_Main.SetFocus
    Form_Main.LblStatus.Caption = Text
    Form_Main.Repaint
    
Exit_Squawk:
    On Error GoTo 0
    Exit Sub

Err_Squawk:
    ErrorHandler.CentralErrorHandler ModuleName, "Squawk"
    Resume Exit_Squawk

End Sub