Discussion :

[Herman]

Bonjour,

Voilà ma question : comment serait-il possible de dupliquer un certain enregistrement (qui est sur plusieurs tables) assez facilement ? Je m'explique :

J'ai 4 table :

tbl_entite : Num entite / nom_entite / .... / num_adresse
tbl_unité_travail : IdxUT / num_ut / num_entite
tbl_activite : IdxAct / IdxUT / num_activite
tbl_danger : IdxDanger / num_danger / IdxAct

Une entite peut avoir plusieurs unités de travail, qui elles même pourront avoir plusieurs activiés, et elles même pourront avoir plusieurs dangers.
Si on prend un exemple :
Pour l'entité X, j'ai 4 unités de travail, chacunes ayant 3 activités, chacunes des activités a 3 dangers, on se retrouve donc pour cette entité X avec 36 dangers.

Imaginons maintenant que nous avons 150 entités, et que ces 150 entités ont une unité de travail commune. J'aurais aimé ne pas à avoir à la saisir 150 fois, mais à faire une sorte de duplication après qu'on l'ai saisit une fois, ce qui implique donc de dupliquer les données d'un enregistrement (qui se trouve sur 4 tables) vers telle ou telle entité (qu'on aura sélectionné par une liste déroulante par exemple).

Et là est mon problème, je saisie pas trop comment procéder, si quelqu'un avait une idée !

Merci d'avance !

PS : sachant que le code trouvé dans la partie Sources du forum ne permet pas de dupliquer un enregistrement qui contiendrai plusieurs lignes dans une autre table il me semble.

[rawsrc]

Il faut te poser la question s'il est judicieux de dupliquer l'ensemble des données rattachées à une unité de travail pour chaque entité.

Si par exemple une nouvelle activité est rajoutée à une unité de travail, est-elle visible pour toutes les entités référençant cette unité de travail ou seulement pour celle qui a servi au rajout ?

Si tu considères ton unité de travail comme un élément commun à plusieurs entités alors tu n'as besoin que de gérer le lien (entité)-(unité de travail).

Si tu considères ton unité de travail comme un élément unique pour chaque entité alors tu as besoin de dupliquer l'unité de travail modèle. Tu peux utiliser un simple INSERT INTO SELECT.

Ouala

[Herman]

En fait il s'agirait d'une duplication qui servirai de base (et qui servirai à gagner beaucoup de temps), je dis de base puisque derrière on pourait adapter le contenu d"une unité de travail.

Si par exemple une nouvelle activité est rajoutée à une unité de travail, est-elle visible pour toutes les entités référençant cette unité de travail ou seulement pour celle qui a servi au rajout ?

Elle ne sera visible que pour l'unité de travail en question.

Si tu considères ton unité de travail comme un élément commun à plusieurs entités alors tu n'as besoin que de gérer le lien (entité)-(unité de travail).

Une unité de travail est unique. Même si d'une entité à une autre certaines unités de travail sont totalement identiques, chaque unité de travail est considérée comme propre à une entité. D'où l'interet de la duplication : même si je duplique une unité de travail, on pourra ajouter dérrière d'autres activités par rapport aux activités initiales dupliquées.

Si tu considères ton unité de travail comme un élément unique pour chaque entité alors tu as besoin de dupliquer l'unité de travail modèle. Tu peux utiliser un simple INSERT INTO SELECT.

Il faut encore aller plus loin que de simplement dupliquer l'unité de travail modèle, il faut même dupliquer TOUTES les unités de travail se rapportant à une entité, et les copier vers la nouvelle entité sélectionnée. On pourrait donc parler d'entité modèle à copier, plutôt que d'unité de travail modèle . D'où mon problème, comment copier, pour une entité, TOUTES les lignes de la table tbl_unité_travail se rapportant à elle et TOUTES les lignes de la table tbl_activite se rapportant à elle et TOUS les dangers se rapportant à elle ?

[rawsrc]

Donc là, vu les possibilités d'access y'a pas 36 solutions, étape par étape.
Pour des questions de performances, je chargerai d'abord intégralement le modèle en mémoire et ensuite je le parcourerai autant de fois que nécessaire en faisant les ajouts dans les tables au fur et à mesure.

[Herman]

yep, et ça, je sais pas faire xD

[Herman]

Bon, j'ai tripoté quelques lignes de code, ça me donne ça :

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
Set rstProtocole = Db.OpenRecordset("SELECT nom_entite, date FROM tbl_entite WHERE Num_adresse = " & Me.Modifiable0 & "  ")
'Verifie que le protocole 1 existe
If rstProtocole.EOF Then Exit Sub
'ouvre le recordset où sera ajouté le protocole
Set rstProtocole2 = Db.OpenRecordset("tbl_entite")
'Duplique le protocole
With rstProtocole2
 
        .AddNew
        'duplique les champs
         For Each fld In rstProtocole.Fields
          .Fields(fld.Name) = fld.Value
        Next
        .Fields("num_adresse") = Me.Modifiable1
       ' id = .Fields("num_adresse")
 
  'se positionne sur l'enregistrement ajouté
 
  .Update
End With

Donc dans ma table tbl_entité, j'arrive bien à copié l'enregistrement provenant de la liste déroulante Me.Modifiable0 ... Seul problème, si j'ai 3 lignes pour cet enregistrement, il ne me copiera que la première.

La solution serait à l'intérieur de mon with de lui dire de passer à la ligne suivant, pour refaire le même traitement (et donc recopier la ligne suivante). Mais je ne sais pas comment faire xD
Je pense qu'avec un For ça devrait être bon, mais FOR de quoi ? et quel traitement appliquer pour lui dire : passe à la ligne suivante et recopie aussi ?
Ca ressemblerait à du :

FOR EACH ligne que tu m'a trouvé dans rstProtocole ==> en code VBA ça donne quoi ça ?