item no automaticly work out what number

[prostheticHead]

I need my product list to automatically increment the item no collum offcourse normally I could do this with auto number or something but that just increments over the Entire table not for just the few items related to the insurance job. I have attached a screen shot to explain what I mean a bit more

Anyone have any ideas of how I could make this work.

As always if need be i can send the database

Thanks!

prostheticHead

 

[Newman]

You could use something like this (not tested):

Dim RSet As Recordset
Set RSet = Me.RecordsetClone
RSet.MoveLast
txtNo=No+1

 

[prostheticHead]

thanks heaps dude that worked perfectly!!