Discussion :

[Vieuxcruton]

Bonjour à tous ,

Dans le déroulement d'une procédure, je veux transférer des enregistrements d'une table "T_Bas Payns Archives" dans une table "T_Licences tardives" de structure parfaitement identique, en suppriment les doublons pour ne conserver que les enregistrements les plus récents.

Les enregistrements sont indexés sur le champ [N° Licence] et le tri doit s'effectuer sur le champ [AnnéeDep] (nombre entier)

J'ai utilisé ce code :

Code :

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

1
2
3
4
5
' Action 8: Supprimer les doublons dans "T_Licences tardives" en conservant le plus récent'
    Dim sqlDeleteDupesInTardives As String
    sqlDeleteDupesInTardives = "DELETE FROM [T_Licences tardives] WHERE [N° Licence] & [AnnéeDep] NOT IN (" & _
                               "SELECT [N° Licence] & Max([AnnéeDep]) FROM [T_Licences tardives] GROUP BY [N° licence])"
    db.Execute sqlDeleteDupesInTardives, dbFailOnError

Mais il retourne un jeu d'enregistrements conservant systématiquement un doublon.

[marot_r]

Bonjour.

Une méthode brutale :

1. Définir un index unique sur ce que tu veux qui soit unique.
2. Faire une requête d'insertion qui ajoute les enregistrements que tu veux sans te préoccuper des doublons.
3. Exécuter la requête d'insertion en ignorant les erreurs.
4. Tu vas te retrouver avec seulement un seul enregistrement, tous les doublons vont être rejetés automatiquement par Access.

Méthode plus délicate :

1. Définir un index unique sur ce que tu veux qui soit unique.
   Ça c'est pour te garantir absolument que tu n'auras pas de doublons.
2. Faire une requête qui s'assure que les enregistrements que tu veux ajouter ne sont pas déjà dans la table destinatrice.
3. Faire une requête pour éliminer les éventuels doublons restant dans la requête précédente.
4. Se servir de la requête épurée comme source de l'ajout.

Perso je trouve que faire plusieurs requêtes séparées facilites la compréhension et surtout la mise au point.
À chaque étape tu travailles sur un seul enjeu à la fois et tu peux voir les résultats au fur et à mesure.

A+

[Vieuxcruton]

Bonjour marot_r

je vais me lancer dans la deuxième méthode. Elle me parait plus facilement "ajustable" à mes petits caprices.
Mais franchement, sélectionner le [AnnéeDep] le plus élevé parmi ceux ayant un lien commun avec [N° Licence] me paraissait simplissime. Trop peut-être.

Vu que je suis aussi doué avec Access que ma femme avec un horodateur, je pense repasser par ici dans quelques temps

Merci pour ta réponse!

[tee_grandbois]

bonsoir,
j'ai peut être mal compris mais pour moi, la requête fonctionne: à gauche la table, à droite la requête de suppression en affichage:



et la table après exécution de la suppression:



il ne reste que les enregistrements les plus récents comme tu le voulais

[Vieuxcruton]

Bonjour Tee_grandbois !

Pour le moment, ça ne fonctionne toujours pas et, effectivement, il n'y a pas de raison puisque pour toi ça roule.
Je suppose que la partie antérieure du code doit interférer. Je cherche dans ce sens...
(Désolé pour le délai de réaction, mais les petits soucis liés à l'âge emplissent ma vie de péripéties)