[RESOLVED] [Access 2003] Form Freeze after switching to other App

[Torc]

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

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.

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

[Ecniv]

Add a doevents call after you've updated the label.
Form_Main.Repaint << remove this replace with the doevents or doevents:doevents

doevents (if you click it nand pres f1) releases the code back to the computer to cycle around to other things. This happens to mean that access will refresh its screen.

If you don't have it then access awaits your code to finish before repainting the screen.

Hope that helps

[Torc]

Thanks Ecniv,

It works now.

I had thought that the Repaint was supposed to update the screen each time it was called.