Discussion :

[killowatt]

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 ?

[madefemere]

Bonjour,

Be, il faut utiliser un boucle While
Je verrai :

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
21
22
 
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(1).MoveFirst
     While Not rs(1).EOF
          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
     Wend

Cordialement,

[killowatt]

D'abord merci pour l'info je croit que vous m'avez sorti plusieurs fois de la panade.
J'ai trouvez ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Do While Not rs(1).EOF
    ' You can place if condition here
    rs(2).AddNew
    For i = 0 To rs(1).Fields.Count - 1
        rs(2).Fields(rs(1).Fields(i).name) = rs(1).Fields(i).Value
    Next i
    rs(2).update
    rs(1).MoveNext
Loop

Mais ça bloque sur les champs de type pièces jointes.... Je suis bloqué

[madefemere]

Bonjour,

Je ne peux t'aider s'il s'agit de champs de type pièces jointes vu que j'ai toujours évité d'en utiliser. Il faudrait que j'approfondisse, mais ce n'est pas le moment (pas le temps).
Désolé !

Cordialement,