1 2 3 4 5 6 7 8 9
|
While Not rst.EOF
CurrentDb.Execute "insert into tmpProductivite(recFederation, " & _
" recCaisse, recGuichet, recDateCollecte, recHeureCollecte, " & _
" recEnveloppe, recDateTraitement, recHeureTraitement, " & _
" recDateSession, recHeureSession ) " & _
" values(" & rst.Fields(0).Value & ", " & rst.Fields(1).Value & "," & rst.Fields(2).Value & "," & "'" & rst.Fields(3).Value & "'" & "," & "'" & rst.Fields(4).Value & "'" & "," & rst.Fields(5).Value & "," & "'" & rst.Fields(6).Value & "'" & ", " & "'" & rst.Fields(7).Value & "'" & "," & "'" & rst.Fields(8).Value & "'" & "," & "'" & rst.Fields(9).Value & "'" & ");"
rst.MoveNext
Wend |
Partager