How multiply records in table or query

[resurrection]

Hallo,
I have table looking like this

CODE PRODUCTS PARTS NoPARTS
106 product1 part1 3
106 product1 part2 2


I need labels for each part of specific product, for exampel 106.
I wish in new table or query PRODUCTS and PARTS to be repeated with NoPARTS-time.

Like this

CODE PRODUCTS PARTS
106 product1 part1
106 product1 part1
106 product1 port1
106 product1 part2
106 product1 part2



I hope this is possible,
thanks.

 

[cstlaurent]

You need to crate a new table and run this code to add the old to the new.

Dim db As DAO.Database
Dim rstold As DAO.Recordset
dim rstnew as dao.recordset
dim intcount as integer
dim intcopy as integer

Set db = CurrentDb()
Set rstold = db.OpenRecordset("oldtable")
set rstnew = db.Openrecordset("newtable")

while not rstold.eof
intcopy = rstold("noParts")
intcount = 0
while intcount <= intcopy
rstnew.AddNew
rstnew("code") = rstold("code")
rstnew("products") = rstold("products")
rstnew("Parts") = rstold("products")
intcopy = intcount + 1

wend
rstold.movenext
wend
rstnew.Close
rstold.close

end sub

that the only way I can see so far.

good luck