INSERT Question

[spacejones]

I am currently using as my database Access 2002. I have a table which
holds orders for certain products. Given that each record in this table
has a quantity ordered field. I want to populate another table called
inventory from this table. The problem I am seemingly facing is that I
don't know how to loop the INSERT command given a field quantity in
that table.

For example if I ordered 5 (Quantity Field) sofa's (Furiture Field) in
black (Color Field). This is in one table, I want to populate another
table with 5 records with say Furniture: Sofa and Color: Black.

For some reason I think this should be simple but maybe I am missing a
function or something. If you can give me some sql or vb using sql or
anything to get this done. Much appreciated.

-Chris

[pietlinden]

It's not hard to do, but why do you feel you need to do this? Are you
assigning serial numbers or some kind of manual unique identifier to
each of these items?

Say you're on your open form, which has the following fields:
txtQuantity (numeric/integer)
cboItemType (text)
cboColor (text) combobox (with value list)

You have several options from here...
1. use ADO and the command object
2. DAO and recordsets
3. DAO and CurrentDb.Execute <sqlcommand>

something like
const cQUOTE = "'" '<--- that's a single quote there
dim strSQL as string '---string to build insert statement
for intCounter = 1 to cint(me.txtQuantity)
strSQL = INSERT INTO MyTable(ItemType, Color, Quantity) VALUES (" &
cQUOTE & cboItemType & cQUOTE &", " & cQUOTE & cboColor & cQUOTE & ", "
& cCUOTE & txtQuantity & cQUOTE &")"
DbEngine(0)(0).Execute strSQL,dbFailOnError
next intCounter