1 réponse
Utilisateur anonyme
8 déc. 2011 à 18:46
8 déc. 2011 à 18:46
Bonjour,
De mémoire :
Cdt
Lupin
De mémoire :
nb = 0 orst2.Edit orst2.AddNew For Each Fld In oRst1.Fields If (Fld.Attributes And dbAutoIncrField) = 0 Then orst2.Fields(Fld.Name).Value = Fld.Value End If Next Fld orst2.Update
Cdt
Lupin