1 2 3 4 5 6 7 8 9 10 11
| CurrentDb.Execute "INSERT INTO tblChartData (RowNo, ResourceProjectID, Montant, Dontdev, ResourceName, ProjectName, StartDate, EndDate) VALUES (" _
& vCount & ", " _
& rst!ResourceProjectID & ", " _
& rst!Montant & ", " _
& rst!Dontdev & ", " _
& QUOTE & vName & QUOTE & ", " _
& QUOTE & rst!ProjectName & QUOTE & ", " _
& Format(rst!StartDate, "\#mm\/dd\/yyyy\#") & ", " _
& Format(rst!EndDate, "\#mm\/dd\/yyyy\#") & ")" 'add new record to tblChartData
vCount = vCount + 1 'and inc RowNo
rst.MoveNext |
Partager