Add multiple individual items to inventory with single click

[tagteam]

I am creating a parts database and each part will be assigned to a car and customer so I want to add each inventory part as a single item. So I may have 20 widgets i need to add an all are the same but I want them to go in as 20 widgets with a unique id.



I want to be able to add the basic data like name of product, description and unit price. Then i want to be able to have a box that i can put a number in and then append that number of records to the table.

I can easily create the table and fields, i am just not sure how to use the number in the box to create that many records. I am thinking maybe some kind of vba loop where it runs the loop to add records a many times as the number in the the box.

[pbaldy]

You can use a For/Next loop that uses the form field as the loop quantity. Within that, use the AddNew method of a recordset or execute append SQL using your values.

[tagteam]

Yes, my problem is that I am not good with Vba

Here is my attempt

sub loop_to_add_parts

Dim NumberOfParts As Integer

For AddParts as Double = 1 to NumberOfParts
=====run append query here
Next NumberOfParts

I know that is pretty weak, but so are my vba skills

[pbaldy]

Well, you'd need to set NumberOfParts, like:

NumberOfParts = Me.TextboxWithQuantity

You should declare the other variable. Within the loop, either use the AddNew method of a recordset or create and execute an SQL string.