1 2 3 4 5
| sql = "INSERT INTO TabProvExp ( NumAff, Titre, DateEven, Even, EvenSAD, EvenAtt, EvenDiv, Titre2, Compte, CompteHeures, HeuresRPE, SemaineRPE, NumDev, NumNote, Cloturee )"
sql = sql & " SELECT TabEven.NumAff, TabEven.Titre, TabEven.DateEven, TabEven.Evenement, TabEven.EvenSAD, TabEven.EvenAttente, TabEven.EvenDivers, TabAff.Titre2, TabAff.Compte, "
sql = sql & "TabAff.CompteHeures, TabEven.HeuresRPE, TabEven.SemaineRPE, TabAff.NumDev, TabAff.NumNote, TabEven.cloturee"
sql = sql & " FROM TabProvExp, TabAff INNER JOIN TabEven ON TabAff.NumAff = TabEven.NumAff WHERE TabEven.NumAff Like '" & Me.TempRep & "'"
DoCmd.RunSQL sql |
Partager