Progress Bar Freezes 1

[herjari]

Dear people,

I have a the following problem:

I have a form with 2 progress bars. The first one shows a value for each table that I´m importing (from 15). The second one shows (or is moved) by the absoluteposition compared to the recordcount. The problem is that at some point, usually around middle of the process, both Progress Bar freezes and they doesn´t update anything else until the process is finished, when the computer will show the correct ending screen and keep working just as usual.

I already searched through the database and I cannot find any answer to my problem. I also tried just moving the progressbar on Even fields to make it work less but it didn´t work.

Code.

ProgressBar2.Min = 0
ProgressBar2.Max = CLng(oRs.RecordCount)
ProgressBar2.Value = ProgressBar2.Min

and then...

If oRsLocal.EOF Then
ProgressBar2.Value = oRs.AbsolutePosition
Me.Refresh
...........
..........
end if

I will really appreciate any suggestions,

Hernan

 

[Nikita6003]

Hi Hernan

Try adding a

DoEvents

just after the Refresh - this'll give the app a chance to pause & update.

HTH

Cheers
Nikki