If I had had a code solution already built, I would have posted it. Create a loop that reads through the fields of the tabledef. You'll need to ignore fields that don't start with "Code". Then build an SQL string like the following and run it using DoCmd.RunSQL.
SQL = "Insert Into ( MyDate, Phone, CodeName, PackName) Select [Date], [Phone], CustID, " & strFieldName & ", " & strValue ", From YourTable;"