1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| StrSql = "INSERT INTO TblPointageXLS ( pdA, pdB, pdE, pdG, pdH, pdL, pdN, pdR, pdU, pdV, pdZ, pdAA )" & _
" SELECT ( 'BOC-" & Format([Forms]![FrmPointageChoix]![CtlDateC2], "D/M/YYYY") & "' as Expr1, " & _
"TblPointageEnt.pocontrat, " & _
"'" & Format([Forms]![FrmPointageChoix]![CtlDateC2], "DD/MM/YYYY") & "' as Expr2, " & _
"'" & Format([Forms]![FrmPointageChoix]![CtlDateC2], "YYYYMMDD") & "' as Expr3, " & _
"'" & Format([Forms]![FrmPointageChoix]![CtlDateC2], "YYYYMMDD") & "' as Expr4, " & _
"TblPointageEnt.pdservice, " & _
"TblPointageDet.pdtemps, " & _
"TblPointageDet.pdmatricule, " & _
"TblPointageDet.pdnomsap, " & _
"'" & Format([Forms]![FrmPointageChoix]![CtlDateC2], "YYYYMMDD") & "' as Expr5, " & _
"TblPointageDet.pdnumot, " & _
"TblPointageDet.pdposte )" & _
" FROM TblPointageDet INNER JOIN TblPointageEnt ON (TblPointageDet.pddate = TblPointageEnt.podate) AND (TblPointageDet.pdnumot = TblPointageEnt.ponumot)" & _
" WHERE TblPointageDet.pddate=#" & Format([Forms]![FrmPointageChoix]![CtlDateC2], "MM/DD/YYYY") & "#" & " AND TblPointageDet.pdctype=" & Chr(34) & "C2" & Chr(34) |
Partager