Number help

[sysop470]

Hi.

I have the following code after update

For intCnt = 1 To 12000
rst.FindFirst "[reqno]=" & intCnt
If rst.NoMatch Then
Me.ReqNo = intCnt
DoCmd.RunCommand acCmdSaveRecord

My problem is that on the 1st day of every year it continue get the next number, and not begins from no 1 again.

Can someone helps please.
Thanks

 

[pbaldy]

So you're trying to add 12000 blank records? Or are you trying to do something like this:

http://www.baldyweb.com/CustomAutonumber.htm

 

[sysop470]

First of all thanks for your help.. No, i am not trying to add 12000 blank records.
The next number will display when each record is entered.

So you're trying to add 12000 blank records? Or are you trying to do something like this:

http://www.baldyweb.com/CustomAutonumber.htm

 

[pbaldy]

You must exit the loop then. Sounds like that link will do what you want.

 

[sysop470]

Thanks again, but the problem that i allready have 5000 records entered for this year 2009 so i think i cannot change the coding.

You must exit the loop then. Sounds like that link will do what you want.

 

[pbaldy]

The technique listed should get the highest existing number and add one, and will automatically adjust at the beginning of the year.