1 2 3 4 5 6 7 8 9 10 11
| Public Sub MAJ_Resul_Concat()
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
Dim champ As Variant
Dim sSQL As String
' Ouverture de la base de données
Set db = CurrentDb
sSQL = "SELECT temp1.F1, temp1.F2, temp2.F16, temp1.F3, temp1.F4, temp1.F9, temp2.F7, temp1.F5, temp2.F8, temp2.F6, temp2.F9, temp1.F17, temp1.F6, temp1.F7, temp1.F11, temp1.F18 AS Désig_ope, temp1.F8, temp1.F12, temp2.F12, temp1.F13, temp1.F14, temp1.F16, temp2.F15, temp2.F17 AS version, temp1.F10, temp2.F14 INTO resul_concat FROM temp1 LEFT JOIN temp2 ON (temp1.F9 = temp2.F11) AND (temp1.F6 = temp2.[F10]) AND (temp1.F5 = temp2.F1) AND (temp1.F4 = temp2.F5) AND (temp1.F3 = temp2.F4) AND (temp1.F2 = temp2.F3) AND (temp1.F1 = temp2.F2);"
db.Execute sSQL
Debug.Print "Records Affected = " & db.RecordsAffected
db.Close
End Sub |
Partager