Bonjour,

j'alimente un recordset avec un autre (copie) et j’obtiens :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Dim db As DAO.Database
Dim rs(1 To 2) As DAO.recordset
Dim rs(3) As DAO.Recordset2
Dim name As String
 
Set db = CurrentDb
Set rs(1) = db.OpenRecordset("Select * from Tbl_EI where id_ei=" & ID_EI, dbOpenSnapshot)
Set rs(2) = db.OpenRecordset("Tbl_EI", dbOpenTable, dbAppendOnly)
Set rs(3) = rs(1).Fields("photo").Value
rs(2).AddNew
rs(2).Fields("vorgang").Value = rs(1)("vorgang").Value
rs(2).Fields("Num_EI").Value = rs(1)("Id_EI").Value
rs(2).Fields("Indice_plan").Value = rs(1)("Indice_plan").Value
rs(2).Fields("Date_debut_EI").Value = rs(1)("Date_debut_EI").Value
rs(2).Fields("Date_modification_ei").Value = Now
rs(2).Fields("modifié_par").Value = Cemp
rs(2).Fields("Id_employe").Value = Cidemp
rs(2).Fields("Date_fin_EI").Value = rs(1)("Date_fin_EI").Value
rs(2).update
ma question est la suivante :

Il n'y aura pas un moyen plus simple (une boucle for each par exemple) d'alimenter rs2 puisque je veux copier totalement rs1 ? J'ai essayé mais en vain je n'arrive pas a boucler sur le nom des champs des recordsets. Petite précision quand même la table "Tbl_EI" contient des pièces jointes avec des photos. J'ai cru comprendre qu'il fallait que je passe par un recordset2 donc je compte faire cette manip après avoir fini la copie de rs1 . Est-ce exact ?