PublicSub Iterator()
Dim sqlQuery As DAO.QueryDef
Dim sqlQuery2 As DAO.QueryDef
Dim sqlQuery3 As DAO.QueryDef
Dim rec As Recordset
Set rec = CurrentDb.OpenRecordset("Temporary_Table")
Set sqlQuery = CurrentDb.QueryDefs("Requete1")
Set sqlQuery4 = CurrentDb.QueryDefs("Requete2")
Set sqlQuery2 = CurrentDb.QueryDefs("Requete3")
JPGVB
Messages postés96Date d'inscriptionmardi 29 mars 2005StatutMembreDernière intervention10 mars 20112 22 nov. 2007 à 12:11
Bonjour,
Pour transférer tes données il faut :
1/ ouvrir ta table source et tes 3 tables destination ,
2/ ensuite tu boucles sur la table source:
source.movefirst
do
tab1.addnew
tab1!idtable=source!idtab
tab1!name=source!name' ... ainsi de suite pour chaque champ
tab1.update
'idem pour tab2 et tab3
source.movenext
loop until source.eof
NB: verifie que tes champs soient bien définis de la même manière.
Bon courage.