diplaying a counter on a form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Access 2003. I have a form with a text field. In my program I'm doing some
table update and scanning my organisation AD. I'd like to show a counter on
the form showing the progress of the work. How can I have the counter being
updated on the form while the program is running ? If I run this simple code
the counter (text7) is not updated on the form (i should display the intcount
value from 0 to 10000) right ?

Private Sub Command145_Click()
For intcount = 0 To 100000
Text7.Value = intcount
Next intcount
End Sub
 
Answer my own question :

Private Sub Command145_Click()
For intcount = 0 To 100000
Text7.Value = intcount
me.repaint ' here
Next intcount
End Sub
 
Back
Top