use update query to create numerical range

[tagteam]

I am working on an inventory input system. I would like to be able to add 10 inventory parts at one time since they all have the same basic data. However, for each set I need to serialize them so I can pull them out later in a sequence. The serial will be a simple number scheme from 1-10 for example.

i would like fill out a form, then click a button and have it add the data the specified number of times (from a unbound field) and then add an incremental number to each line item in a serial field.

So after clicking the button I would have something like this

part descp serial
valve basic valve 1
valve basic valve 2
valve basic valve 3

Creating the insert query is easy but I am not sure how to get it to run 10 times for example ( I could click the button 10 times, but i want to make sure the serial increments by 1)

Thanks for any help

[pbaldy]

I'd use a For/Next loop. The counter variable can be used for your serial field.

[tagteam]

Thank you for your reply. The problem is I am not very good with VBA so creating a For/Next loop may be beyond my ability. I see there are if statement abilities in the macro creator but I don't know if it can create loops.

[pbaldy]

Not even going to try?

  Dim intPartCount             As Integer

  For intPartCount = 1 To Me.txtPartQuant  'textbox with the number required

    'insert using AddNew method of recordset or executing SQL, either one using intPartCount for the serial number

  Next intPartCount