1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Sub CreerUnetable
dim appaccess as access.application
appaccess.opencurrentdatabase("monRepertoire\MaBase.mdb")
dim paramChampA1 as long:paramChampA1 = ici une valeur pour le paramètre
dim paramChampA2 as long:paramChampA2 = ici une valeur pour le paramètre
dim paramChampA3 as long:paramChampA3 = ici une valeur pour le paramètre
dim paramChampA4 as long:paramChampA4 = ici une valeur pour le paramètre
dim paramChampA5 as long:paramChampA5 = ici une valeur pour le paramètre
dim paramChampA6 as long:paramChampA6 = ici une valeur pour le paramètre
Dim Strsql As String = "SELECT A.ChampA1, A.ChampA2, B.ChampB1," & _
" A.ChampA3, A.ChampA4, A.ChampA5, A.ChampA6," & _
" C.ChampC1, C.ChampC2, " & _
" C.ChampC3, C.ChampC4, C.ChampC5, D.ChampD1, D.ChampD2, " & _
" E.ChampE1, " & _
" F.ChampF1, G.ChampG1, " & _
" H.ChampH1, I.ChampI1 INTO Editnotes" & _
" FROM (((((((C LEFT JOIN D ON C.ChampA6 = D.ChampA6) LEFT JOIN A" & _
" ON (C.ChampA4 = A.ChampA4) AND (C.ChampA3 = A.ChampA3) " & _
" AND (C.ChampA2 = A.ChampA2) AND (C.ChampA1 = A.ChampA1) " & _
" AND (C.ChampA6 = A.ChampA6)) LEFT JOIN I " & _
" ON A.ChampA4 = I.ChampA4) LEFT JOIN H ON A.ChampA3 = H.ChampA3)" & _
" LEFT JOIN G ON A.CODEMATI = G.CODEMATI) LEFT JOIN J " & _
" ON (A.ChampA7 = J.ChampA7) AND (A.ChampA4 = J.ChampA4) " & _
" AND (A.ChampA3 = J.ChampA3)) LEFT JOIN (F LEFT JOIN E" & _
" ON F.ChampF2 = E.ChampF2) ON A.ChampA2 = F.ChampA2)" & _
" INNER JOIN B ON (C.ChampA1 = B.ChampA1) AND (C.ChampA2 = B.ChampA2)" & _
" AND (C.ChampA3 = B.ChampA3) AND (C.ChampA4 = B.ChampA4) " & _
" AND (C.ChampC8 = B.ChampC8) WHERE(((A.ChampA1) =" & paramChampA1 & ") and ((A.ChampA2) = " & paramChampA2 & ") and ((A.ChampA3) = " & paramChampA3 & ") " & _
" AND ((A.ChampA4) =" & paramChampA4 & ") AND ((A.ChampA5) =" & paramChampA5 & " ) AND ((A.ChampA6) = " & paramChampA6 & "))" & _
" ORDER BY A.ChampA8, A.ChampA6, A.ChampA9;"
appaccess.docmd.Runsql |
Partager