dynamic field in query to table (1 Viewer)

[btamsgn]

Hi u,

Pls help to write vba code for append query with dynamic field to table

ie: such as append query "F5A1,.." to table "s_test"

"F5A1" query: INSERT INTO STYLE5A ( ID, NPL, DVT, A, B, C, D, E, F, G, H, I, J, CNN )
SELECT CR5ADM.ID AS ID, CR5ADM.NPL AS NPL, CR5ADM.DVT AS DVT, CR5ADM.[1], CR5ATLHH.[1], CR5ADM.[2], CR5ATLHH.[2], CR5ADM.[3], CR5ATLHH.[3], CR5ADM.[4], CR5ATLHH.[4], CR5ADM.[5], CR5ATLHH.[5], "A" AS CNN
FROM CR5ADM INNER JOIN CR5ATLHH ON CR5ADM.ID = CR5ATLHH.ID;

"F5A2" query: INSERT INTO STYLE5A ( ID, NPL, DVT, A, B, C, D, E, F, G, H, I, J, CNN )
SELECT CR5ADM.ID AS ID, CR5ADM.NPL AS NPL, CR5ADM.DVT AS DVT, CR5ADM.[6], CR5ATLHH.[6], CR5ADM.[7], CR5ATLHH.[7], CR5ADM.[8], CR5ATLHH.[8], CR5ADM.[9], CR5ATLHH.[9], CR5ADM.[10], CR5ATLHH.[10], "B" AS CNN
FROM CR5ADM INNER JOIN CR5ATLHH ON CR5ADM.ID = CR5ATLHH.ID;


means that every 5 number, it'll run a new page.

dynamic field "STT" from 1 to 5; from 6 to 10; ...

*Pls help to write vba code for append query with dynamic field to table

Thank you

Tam Binh