Discussion :

[ingal30]

Bonjour,

Je voudrais mettre en place une recherche de doublons dans une base access, cela concerne les quasi doublons.
En fait j'ai trouvé un tutoriel de Mr BROUARD Frédéric cela correspond à ce que je veux sauf que c'est en SQL et il faudrait transformer ce code en VBA je ne sais pas comment faire.Voila l'adresse du tutoriel: http://sqlpro.developpez.com/cours/doublons/

Voilà le code de Mr BROUARD:

4. Quasi doublons(Les quasis doublons sont constitués par des tuples dont le contenu sémantique et logique est le même, avec des petites différences comme une différentiation majuscules/minuscules ou des fautes de frappe dues à des erreurs de saisie)
Le cas des quasi doublons est bien plus délicat. En effet il faut s'entendre sur la valeur de l'information. Néanmoins une technique classique pour en débusquer la plupart est de combiner une recherche partielle et le nivellement de la casse.
Exemple de quasi doublons :

NUM NOM PRENOM
----------- ---------------- --------
65 Dupond Frédéric
78 DUPOND frédéric
81 DUPOND fréd
99 DUPON éric


Exemple :

Code :

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

1
2
3
4
5
6
7
8
SELECT DISTINCT *
FROM T_DOUBLON T1
WHERE EXISTS
(SELECT *
FROM T_DOUBLON T2
WHERE T1.NUM <> T2.NUM
AND (LOWER(T1.NOM) LIKE '%' + LOWER(T2.NOM) + '%' OR LOWER(T2.NOM) LIKE '%' + LOWER(T1.NOM)+'%')
AND (LOWER(T1.PRENOM) LIKE '%' + LOWER(T2.PRENOM) + '%' OR LOWER(T2.PRENOM) LIKE '%' + LOWER(T1.PRENOM) + '%'))

NUM NOM PRENOM
----------- -------------------------------- ----------------
65 Dupond Frédéric
78 DUPOND frédéric
81 DUPOND fréd
99 DUPON éric

Merci pour votre aide c'es important

[micniv]

Bonjour,
Voici la requête ci-dessus convertie pour Access :

Code :

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

1
2
3
4
5
6
7
8
SELECT DISTINCT *
FROM T_DOUBLON T1
WHERE EXISTS
(SELECT *
FROM T_DOUBLON T2
WHERE T1.NUM <> T2.NUM
AND (Lcase(T1.NOM) LIKE '*' &  Lcase(T2.NOM)  &  '*' OR Lcase(T2.NOM) LIKE '*'  &  Lcase(T1.NOM)+'*')
AND (Lcase(T1.PRENOM) LIKE '*'  &  Lcase(T2.PRENOM)  &  '*' OR Lcase(T2.PRENOM) LIKE '*'  &  Lcase(T1.PRENOM) + '*'))

Remarque : la fonction Lcase (Lowercase) est inutile en SQL Access qui ne fait pas de difference entre les minuscules et les majuscules.