Let me suggest the following:

create a counter

Dim x
For x = 1 to 500
[create a field form named, by ex., n]
Me.n = x
Next

and see both working.

Try to put the code in the middle of the other...

Yes, that's nice because there is no need of add-ins or activeX