[AC-2003] suppression de doublon [Résolu]

[willytito]

Bonjour,
Je développe avec Access 2003 sous Windows XP Pro.

J'ai utilisé l'assistant de requête d'access pour générer la requête recherche de doublon, dont voici le résultat :

Code :

1
2
3
4
5
 
SELECT  FICINF.NUMINF
FROM FICINF
WHERE (((FICINF.NUMINF) In (SELECT [NUMINF] FROM [FICINF] As Tmp GROUP BY [NUMINF] HAVING Count(*)>1 )))
ORDER BY FICINF.NUMINF;

Jusque là, tout va bien, il m'affiche bien mes doublons.
Par contre, je voudrais effacer l'un des doublons et conserver l'autre.
Je ne vois pas comment procéder, j'ai pensé à la commande distinct mais quand je l'exécute, rien ne s'affiche et access se bloque et je suis obligé de faire fin de tâche pour l'arrêter.
Si quelqu'un a une idée, je suis preneur.
Merci
Willy

[User]

Salut,

Sinon il y a l'option VBA, avec une fonction qui élimine les doublons de ta table, du style :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Function SupprimerDoublons()
Dim rst As DAO.Recordset
Dim NI As Long
 
Set rst = CurrentDb.OpenRecordset("select * from FICINF order by NumInf;", dbOpenDynaset)
 
NI = rst!NumInf
 
   If Not rst.EOF Then
 
   rst.MoveNext
 
   Do Until rst.EOF
 
      If NI = rst!NumInf Then
 
         rst.Delete
 
      Else
 
        NI = rst!NumInf
 
      End If
 
   rst.MoveNext
 
   Loop
 
   End If
 
 
End Function

Elle balaie les enregistrements classés par ordre croissant, et supprimer les NumInf qui se répètent...

Sinon niveau requête tu peux ajouter un champ numéro auto et appliquer les conseils de sqlpro.

A+

[willytito]

Je testerai le code VBA demain.
J'ai regardé SQLpro, mais c'est un peu trop compliqué pour moi.
Encore merci

Willy

[User]

Re,

Pour la solution "compliquée", une fois que tu as crée ton champ numéro auto, nommé par exemple "NumAuto", ca devrait te faire pour la requête suppression:

Code sql :

1
2
3
4
5
6
DELETE *
FROM   FICINF T
WHERE  T.NumAuto < ANY (SELECT NumAuto
                      FROM   FICINF T2
                      WHERE  T.NumAuto <> T2.NumAuto
                        AND  T.NUMINF = T2.NUMINF)

A+

[vodiem]

Salut User et willytito,

Denis tu triches...
tu as rajouté un champ numAuto ;P
et puis t'es sur que "T.NumAuto <> T2.NumAuto" soit bien utile ?... ;P

willytito tu l'auras peut être compris: il faut pouvoir différencier les enregistrements entre eux pour pouvoir les supprimer.
si tu veux pas trop coder en vba tu peux encore dupliquer le résultat du select distinct dans une table temporaire, supprimer l'original et renommer cette dernière... mais il est préférable qu'il n'y ai pas de relation avec.

pour faire simple je te recommande aussi le code vba de l'ami User.

[willytito]

Je vous remercie pour toutes ces explications.
Effectivement, je vais le faire en VBA d'autant plus que je dois faire cette manipulation sur plusieurs tables.
Je vais créer ma procédure et je vous tiens au courant.

Willytito

[willytito]

Merci beaucoup !
J'ai utilisé le code VBA de USER.
Willytito