1 2 3 4 5 6 7
| sql = "UPDATE TDates INNER JOIN TPer ON TDates.DatesCasCalendrier = TPer.PeriodeCasCalendrier SET TDates.DatesPeriode = [TPer]![PeriodeType] "
sql = sql & "WHERE (((TDates.DatesDate)>=[TPer]![Perio1_du] And (TDates.DatesDate)<=[TPer]![Perio1_au]) "
sql = sql & "AND ((IIf(Weekday([TDates]![DatesDate])=1 And [TPer]![PeriodeDim]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=2 "
sql = sql & "And [TPer]![PeriodeLun]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=3 And [TPer]![PeriodeMar]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=4 "
sql = sql & "And [TPer]![PeriodeMer]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=5 And [TPer]![PeriodeJeu]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=6 "
sql = sql & "And [TPer]![PeriodeVen]=-1,[TPer]![PeriodeType],IIf(Weekday([TDates]![DatesDate])=7 And [TPer]![PeriodeSam]=-1,[TPer]![PeriodeType],Null)))))))) Is Not Null))"
DoCmd.RunSQL sql |
Partager