Copying records to a new table

[henio]

Hi all,

I am trying to copy record a record n times from one table to another where n is a value in that table.

The following code seems to work under Access97 but won't compile under Access2000. It objects to the DAO. in the Dim statements giving a "user-defined type not defined" message.

If I remove the DAO. from those statements, it will compile but I get a runtime error 13 - type mismatch error at the first set statement.

Can anyone please help?
As you experts can probably see, I'm new to this, so any advice would be welcome, including any better ways of achieving this.

Cheers,
Henio

Sub copyfile()
Dim i As Integer
Dim rec1 As DAO.Recordset
Dim rec2 As DAO.Recordset

Set rec1 = CurrentDb.OpenRecordset("Sheet1&quot
Set rec2 = CurrentDb.OpenRecordset("Sheet2&quot

Do While rec1.EOF = False

For i = 1 To rec1("Pallet Qty&quot
rec2.AddNew
rec2("Pallet Number&quot = rec1("Pallet Number&quot
rec2("SKU&quot = rec1("SKU&quot
rec2("EPM&quot = rec1("EPM&quot
rec2("Qty&quot = rec1("Qty&quot
rec2("Logical Day&quot = rec1("Logical Day&quot
rec2("Quadrant&quot = rec1("Quadrant&quot
rec2("Description&quot = rec1("Description&quot
rec2("TUC&quot = rec1("TUC&quot
rec2("Family Group&quot = rec1("Family Group&quot
rec2("Pallet Qty&quot = rec1("Pallet Qty&quot

rec2.Update
Next i
rec1.MoveNext
Loop
rec1.Close
rec2.Close
End Sub

 

[TonyJollans]

Hi henio,

Make sure you have Microsoft DAO 3.6 Object Library checked under Tools > References.

Enjoy,
Tony

 

[CajunCenturion]

You might want to check the project references and make sure that you've included the correct DAO libraries.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein

 

[henio]

Guys,

thanks for your help. I'd never have found the answer on my own!

Cheers,
Henio