Add 1 to X records in one table from info entered into table 2

[swaggers]

I have a entry table that someone enters [Supplier], [Grade], [#]

I need to take that one like and create records in another table that copies the Supplier & Grade, BUT adds a new record for 1 of X all the way to X. So if on the entry table someone puts 3 in #. The second tables needs to have a record for 1,2, & 3.

Possible? Any help? Been searching for a week for a solution.

[pbaldy]

You can adapt this:

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

using a For/Next loop that uses the quantity instead of a listbox.

[swaggers]

Thanks for the push in the right direction.

I've created a form with two Lists List0 and List2 and 2 text entry points.

When I run my event though I get: "Item not found in this collection"

Here is my script sections:
Set db = CurrentDb()
Set rs = db.OpenRecordset("SkinInventory", dbOpenDynaset, dbAppendOnly)

And then:
rs.AddNew
rs!Supplier = Me.list0
rs!Grade = Me.list2
rs!ToteTot = Me.NumTotes
rs!RecvBatch = Me.BatchNum
rs!LabelToPrint = Yes
rs.Update

[pbaldy]

The error would imply that the field doesn't exist in that table. Double check your field names (it should be telling you what line).

[swaggers]

Thanks. I swear I triple checked them and there was a spelling error. Now to work on the loop part...

[swaggers]

Almost have this.

Dim numTTotal As Integer



For numTTotal = 1 To Me.NumTotes
rs.AddNew
rs!Supplier = Me.List0
rs!Grade = Me.List2
rs!ToteTot = Me.NumTotes
rs!Tote# = numTTotal
rs!RcvBatch = Me.BatchNum
rs!LabelToPrint = "1"
rs.Update
Next numTTotal

I want to add the current loop number numTTotal to a field on the table also. But this is coming up "Item not found in this collection" also. I know for a fact that is the table field lol. Am I not referencing it right?

[swaggers]

Got it. It doesn't like the # in the field name. So changed that and it works!

[pbaldy]

Happy to help. You could have bracketed the name:

rs![Tote#]

but you're better off changing the name anyway.