Refresh form progress bar, not refreshing

[bigbinc]

I am trying to write a small progress bar using a form, Here is my
code but the bar only changes when I save the actual VBA code.
Strange!!!

Me.txtPctComplete.Caption = pintCurStep / xmintNumSteps
Me.Repaint
Me.txtCurStep.Caption = pintCurStep
Me.Repaint

If pintCurStep < maxStepsFile Then
Me.boxPct.Width = Me.boxWhole.Width * (pintCurStep /
xmintNumSteps)
Me.Repaint
End If ' [ If Mod ]

Dim xStart As Long
Dim theTmp As Double

For xStart = 1 To 10000
theTmp = Sin(0.4)
Next


Me.Refresh
Me.Repaint
Me.Repaint
Me.Repaint

 

[Graham R Seach]

You don't need Me.Refresh, and Instead of Me.Repaint, use DoEvents

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html