Im trying to copy the contents of my Inventory Table to CustomPO Table. No error occurs, but I won't copy. What seems to be the problem? :confused:
Code:
Private Sub Copy_Table()
Call d2("Select * from Inventory")
Call d("Select * from CustomPO")
If Not rs.EOF = True Then
rs.AddNew
rs!Supplier = rs2!Supplier
rs!ItemCode = rs2!ItemCode
rs!SellingPrice = rs2!SellingPrice
rs!CeilingQuantity = rs2!CeilingQuantity
rs!FlooringQuantity = rs2!FlooringQuantity
rs!Quantity = rs2!Quantity
rs!QuantityToPurchase = rs2!QuantityToPurchase
rs!ReorderQuantity = rs2!ReorderQuantity
rs.Update
rs.MoveNext
End If
End Sub