1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| bdd.Execute "delete from recettttte"
bdd.Execute "INSERT INTO recettttte " & _
"SELECT irecette.structure, " & _
"irecette.prod01,irecette.prod02 ,irecette.prod03,irecette.prod04,irecette.prod05," & _
" irecette.prod06,irecette.prod07,irecette.prod08,irecette.prod09 ,irecette.prod10,irecette.prod11,irecette.prod12," & _
" irecette.m_s01,irecette.m_s02,irecette.m_s04,irecette.m_s05,irecette.m_s06,irecette.m_s07,irecette.m_s08, " & _
" irecette.m_s09,irecette.m_s10,irecette.m_s11,irecette.m_s12, " & _
" irecette.cons01,irecette.cons02,irecette.cons03,irecette.cons04,irecette.cons05,irecette.cons06,irecette.cons07," & _
" irecette.cons08,irecette.cons09,irecette.cons10,irecette.cons11,irecette.cons12, " & _
" irecette.sst01,irecette.sst02,irecette.sst03,irecette.sst04,irecette.sst05,irecette.sst06,irecette.sst07, " & _
" irecette.sst08,irecette.sst09,irecette.sst10,irecette.sst11,irecette.sst12, " & _
" irecette.imm01,irecette.imm02,irecette.imm03,irecette.imm04,irecette.imm05,irecette.imm06,irecette.imm07, " & _
" irecette.imm08,irecette.imm09,irecette.imm10,irecette.imm11, irecette.imm12," & _
" irecette.va01,irecette.va02,irecette.va03,irecette.va04, irecette.va05,irecette.va06,irecette.va07,irecette.va08," & _
" irecette.va09,irecette.va10,irecette.va11,irecette.va12, " & _
" irecette.pt01,irecette.pt02,irecette.pt03,irecette.pt04, irecette.pt05,irecette.pt06,irecette.pt07,irecette.pt08," & _
" irecette.pt09,irecette.pt10,irecette.pt11,irecette.pt12, " & _
" irecette.pc01,irecette.pc02,irecette.pc03,irecette.pc04, irecette.pc05,irecette.pc06,irecette.pc07,irecette.pc08," & _
" irecette.pc09,irecette.pc10,irecette.pc11,irecette.pc12, " & _
" irecette.m_s03,irecette.eff01,irecette.eff02,irecette.eff03, irecette.eff04,irecette.eff05,irecette.eff06,irecette.eff07," & _
" irecette.eff08,irecette.eff09,irecette.eff10,irecette.eff11,irecette.eff12 " & _
"FROM irecette"
CrystalReport1.DataFiles(0) = "c:\maintenance\consolide.mdb"
CrystalReport1.ReportFileName = "c:\maintenance\coutpp.rpt"
CrystalReport1.Action = 1
End Sub |
Partager