salut a tous et a toute

voila j'ai arrange mon code


Sub copie1()

Dim i As Integer
Dim db As DAO.Database
Dim ajout As DAO.Recordset
Dim tbl As DAO.Recordset
Dim fld()
Dim modif As DAO.Recordset
Dim mot As String

mot = "serveur1"


Set db = CurrentDb

Set tbl = db.OpenRecordset("select * from salut where nom_serveur ='" & mot & "';")
Set ajout = db.OpenRecordset("select * from temporaire where nom_serveur ='" & mot & "';")

Do Until ajout.EOF
tbl.AddNew
For i = 0 To ajout.Fields.Count - 1

tbl.Fields(i) = ajout.Fields(i)

Next
ajout.MoveNext

If tbl.EOF Then
tbl.Update
tbl.MoveNext
End If
Loop
End Sub

le probleme c'est que quand je l'execute rien ne se passe
or il faudrait que la ligne serveur de la table temporaire
soit copier dans la ligne serveur de la table salut
par contre je ne sais pas comment faire si lorsque il n' ya pas de données dans un champs de la ligne dans la table temporaire
il laisse les données du champs de la table salut


mercii pour les reponses

Essayes Ca :

Do Until ajout.EOF
tbl.AddNew
For i = 0 To ajout.Fields.Count - 1
tbl.Fields(i) =iif(len(ajout.Fields(i))<>0,ajout.Fields(i),tbl.Fields(i))
Next
tbl.Update
ajout.MoveNext
Loop

It@li@

Boucle for each est preferable dans ce cas :

Dim Var as Field
for each field in ajout.fields
'etc...
next

@+

E.B.

merci pour les reponses

mais avec les deux code que vous me donner il me met une erreur a la compilation: modification non effectue, risque de doublons

Surement un probleme dans un champ qui n'accepte pas les doublon ou les valeurs null, genre ID

@+

E.B.

Si t'as un champ NumeroAuto...il faut l'enlever de la Boucle..

For i = 1 To ajout.Fields.Count - 1
tbl.Fields(i) =iif(len(ajout.Fields(i))<>0,ajout.Fields(i),tbl.Fields(i))
Next

It@li@

j'ai effectivement une clef primaire (nom_serveur)
dans ma table serveur

lorsque je la met pas dans la boucle il me met que un champs ne peut pas contenir de valeur nul

de plus les deux objet de mon recorset ont la meme clef primaire

oui mais c pas un NumAuto... donc il doit bien être dans la Boucle
mais tu dois avoir des doublons...

It@li@

mais dans mes deux tables

il n'y a qu'une ligne unique avec serveur 1
c'est pour ca que je comprend pas
normalement ca devrait marcher

or soit il ne se passe rien
ou si je change un peu le code comme marque precedement il me met erreur de doublons

si vous avez la reponse je suis preneur

essais comme ca ;)

Dim i As Integer Dim db As DAO.Database Dim ajout As DAO.Recordset Dim tbl As DAO.Recordset Dim fld() Dim modif As DAO.Recordset Dim mot As String mot = "serveur1" Set db = CurrentDb db.Execute "Delete * From salut where nom_serveur ='" & mot & "';" Set tbl = db.OpenRecordset("salut") Set ajout = db.OpenRecordset("select * from temporaire where nom_serveur ='" & mot & "';") Do Until ajout.EOF tbl.AddNew For i = 0 To ajout.Fields.Count - 1 tbl.Fields(i) = ajout.Fields(i) Next tbl.Update ajout.MoveNext Loop

MSN YAHOO