Discussion :

[docjo]

Bonjour à tous

Je voudrai mettre à jour la table 1 avec les données de la table 2 aprés le choix d'un enregistrement dans une liste déroulante. Seuls les noms de champs identiques entre les 2 tables doivent être mis à jour. Comme des champs peuvent s'ajouter je préfèrerai passer par les recordset plutôt que par une requête mise à jour.

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
 
        Dim dbs As Database
        Dim rsProtExamens, rsExamens As Recordset
        Dim IDProtocole, IDExamens As Integer
        Dim fld As DAO.Field
 
 
        IDProtocole = Nz(Me.Lst_Examens.Column(0), 0)
        IDExamens = Me.ID_Examen
 
        Set dbs = CurrentDb
        Set rsProtExamens = dbs.OpenRecordset("SELECT * FROM T_ProtocoleExamens WHERE ID_Protocole=" & IDProtocole)
        Set rsExamens = dbs.OpenRecordset("SELECT * FROM T_Examens WHERE ID_Examen=" & IDExamens)
            With rsExamens
                rsExamens.Edit
                For Each fld In rsProtExamens.Fields
                    If fld.Name = rsProtExamens.Field.Name Then
                          .........

J'ai une vague idée mais je ne vois pas la suite. J'a essayé beaucoup de code mais sans succès.
Je vous remercie d'avance pour vos suggestions et conseils.

[Gado2600]

Bonjour,
Si j'ai bien compris tes explications et le début de ton code, tu entres un identifiant et tu cherches à mettre à jour dans les deux tables les données entrées contenant cet identifiant, non ?

Ton code commençait pas trop mal je pense. Voici ce que je ferais en recordset :

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
23
24
 
        Dim rsProtExamens As Dao.recordset
        Dim rsExamens As DaoRecordset
        Dim IDProtocole As integer,
        Dim IDExamens As Integer
        Dim fld As DAO.Field
        Dim fld2 As DAO.Field
 
        IDProtocole = Nz(Me.Lst_Examens.Column(0), 0)
        IDExamens = Me.ID_Examen
 
        Set rsProtExamens = CurrentDb.OpenRecordset("SELECT * FROM T_ProtocoleExamens WHERE ID_Protocole=" & IDProtocole)
        Set rsExamens = CurrentDb.OpenRecordset("SELECT * FROM T_Examens WHERE ID_Examen=" & IDExamens)
 
        For Each fld In rsProtExamens.Fields
             For Each fld2 in rsExamens.Fields
                  If fld.Name = fld2.name then
                        rsExamens.Edit
                        ' Je suppose que ta mise à sur la première est déjà faite
                        fld2.value = fld.value
                        rsExamens.Update
                  end if
             next fld2
        next fld

Je n'ai pas testé mais je pense que dans ce sens là, cela devrait fonctionner.
Bon courage

[docjo]

C'est bien l’enchaînement des "For each" que je n'arrivais par à trouver.
Merci beaucoup pour l'aide précieuse.

[Gado2600]

Pas de soucis.
Ce code est optimisable je pense pour qu'il soit plus rapide à appliquer. Mais je ne sais pas vraiment comment.

Bonne continuation dans votre projet.

[Tofalu]

Le plus performant serait de manipuler les tables (tableDef) et plus particulièrement la liste des champs pour construire un objet QueryDef (requête UPDATE ici) temporaire et de l'exécuter.