how to avoid the "not responding" state?

[Kamil]

I've created a form, which shows me the status (progress barr and
remaining time estimation) of current calculations on my db (VBA).
Very often it just freezes and becomes "not responding" (Windows XP).

Can I do anything to avoid such state?

Thanks,
Kamil

 

[TonyT]

It's usually caused by accidently creating and endless loop in the code, set
code breaks & remove 'on error resume next' if you have it & test the code
piece by piece with data that causes the lockout. You can use ctrl+break to
try and enter the code when it locks up.

 

[Kamil]

It's usually caused by accidently creating and endless loop in the code, set
code breaks & remove 'on error resume next' if you have it & test the code
piece by piece with data that causes the lockout. You can use ctrl+break to
try and enter the code when it locks up.

It's not the case - the code runs without any breaks, and after
~20minutes it's finished and Access is responding again.
But when it's not responding I can't see the progress...
So my question is about some vba function which will let Windows know,
that Access is ok.

 

[Jon Lewis]

Kamil - presumably if your doing a 20 min calculation it is a Do or For loop
type construct.

Have you got a DoEvents in your loop to let the progress form update?

Try looking on the microsoft.public.vb.general.discussion group. There's
loads of posts on ProgressBars and DoEvents.

HTH

 

[TonyT]

agreed, the only way I can reproduce a 'Not Responding' is without a DoEvents
in the loop although not having a Repaint to update the form with the
progress meter might eventually cause it, but I can't replicate that here.

 

[Kamil]

agreed, the only way I can reproduce a 'Not Responding' is without a DoEvents
in the loop although not having a Repaint to update the form with the
progress meter might eventually cause it, but I can't replicate that here..

Actually I'm only using MyForm.Repaint method.
about DoEvents - help says:
Dim I, OpenForms
For I = 1 To 150000 ' Start loop.
If I Mod 1000 = 0 Then ' If loop has repeated 1000 times.
OpenForms = DoEvents ' Yield to operating system.
End If
Next I ' Increment loop counter.

I'll test it, thanks!