1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Dim Mba as Database, TabTempo As Recordset, NumId As Variant
Set Mba = currentDB()
Set TabTempo=Mba.OpenRecordset("Temporary_Table")
Do Until TabTempo.EOF
'Tu inserts dans la Tab1 l'enregistement en cour de TabTempo
Sql1="INSERT INTO Tab1(Name, Prenom, adresse) Values(" & TabTempo("nom") & ", " & TabTempo("prenom") & ", " & TabTempo("adresse") & "
DoCmd.RunSQL Sql1
'Tu inserts dans la Tab2 l'enregistement en cour de TabTempo
Sql2="INSERT INTO Tab2(Champ1, Champ2, ...) Values(" & TabTempo("Champ") & ", " & TabTempo("Champ") & ", ... "
DoCmd.RunSQL Sql2
'Tu inserts dans la Tab3 l'enregistement en cour de TabTempo
Sql3="INSERT INTO Tab3(Champ1, Champ2, ...) Values(" & TabTempo("Champ") & ", " & TabTempo("Champ") & ", ... "
DoCmd.RunSQL Sql3
' Tu passe à l'enregistrement suivant
TabTempo.moveNext
Loop |
Partager