Hej!
Jag har en progressbar som uppdateras med nedanstående kod.

Problemet är att access vill fylla på progress baren klart innan den går vidare med annan kod.
Man får alltså inte se hur progress baren fylls på utan det ser ut som att inget händer förrän progress baren är färdig.

För att undvika detta tänka jag använda mig av DoEvents men jag får inte till det med var jag ska sätta kodsnutten.
Var skulle ni satt "DoEvents"?

Function ProgressBarHandler()
Dim Total, Step, Prg As ProgressBar

Set Prg = Me!CtlProgressBar.Object
Step = 0.01
Total = 0
Do
Total = Total + Step
If Total >= Prg.Max Then
Total = Prg.Max
End If
Prg.Value = Total
DoCmd.RepaintObject

Loop While Total < Prg.Max

End Function

/ANna