Bonjour
Je suis nouveau sur ce forum et je m adresse a vous dans l espoir d obtenir de l aide
j ai une table (Tab) qui contient des enregistrements de type nom, prenom, nombre de visites
j aurais besoin de copier ces enregistrements x fois dans une nouvelle table (x etant le nombre de visites)
aujourd hui cette methode me copie x fois tous les enregistrements de la table et je vois pas trop l erreur
stretiq1 = "SELECT elab.art, elab.ssccart, elab.qte, elab.colis, elab.lot, elab.dluo, elab.nbcolis, elab.doc, elab.itf14, elab.nom, elab.eanart, elab.ssccpal FROM elab;"
Set etiq1 = CurrentDb.OpenRecordset(stretiq1)
Do Until etiq1.EOF
compteur = [etiq1].[nbcolis]
MsgBox compteur
'MsgBox etiq1.ssccart
'ssccp = CDbl([etiq1].[ssccart])
'etiq1.Edit
'etiq1.ssccpal = CDbl([etiq1].[ssccart])
'etiq1.Update
'MsgBox compteur
For e% = 1 To compteur
MsgBox e%
sql4 = "INSERT INTO Etiqphase2 ( codearticle, sscart, qte, nbcolis, lot, dluo, nbpal, datedoc, itf14, nom, eanart ) SELECT elab.art, elab.ssccart, elab.qte, elab.colis, elab.lot, elab.dluo, elab.nbcolis, elab.doc, elab.itf14, elab.nom, elab.eanart FROM elab;"
DoCmd.RunSQL sql4
Next
etiq1.MoveNext
Loop
sql5 = "INSERT INTO sscc17 ( Codearticle, qte, nbcolis, lot, dluo, datedoc, itf14, sscc, nomart, eanart )SELECT Etiqphase2.Codearticle, Etiqphase2.qte, Etiqphase2.nbcolis, Etiqphase2.lot, Etiqphase2.dluo, Etiqphase2.datedoc, Etiqphase2.itf14, Trim(Str([etiqphase2].[sscart]))+String$(7-Len(Trim(Str([etiqphase2].[n°]))),'0')+Trim(Str([etiqphase2].[n°])) AS sscc, etiqphase2.nom, etiqphase2.eanart FROM Etiqphase2;"
DoCmd.RunSQL sql5
Merci de votre aide
Je continue a chercher de mon cote si je trouve je repondrai
Fred