Discussion :

[JDev_]

Bonjour,

Je travaille sur un formulaire Access.

J'ai une variable "StrTableNameMail" qui récupère le nom de la table en saisie.

Je souhaiterais dédoublonner cette table selon cette règle : une adresse mail est unique.

J'ai testé cette méthode avec une table temporaire afin d'obtenir dans ma table finale "StrTableNameMail" les bons enregistrements.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
DoCmd.RunSQL "SELECT DISTINCT AdrEmail INTO T_DOUBLON_TMP FROM [" & StrTableNameCourrier & "] GROUP BY AdrEmail ;"
 
strSQL = "DELETE FROM [" & StrTableNameCourrier & "] T1"
strSQL = strSQL & " WHERE EXISTS (SELECT * FROM [" & StrTableNameCourrier & "] T2 WHERE T1.AdrEmAil = T2.AdrEmail GROUP BY AdrEmail)" & ";"
 
DoCmd.RunSQL "INSERT INTO [" & StrTableNameCourrier & "] SELECT AdrEmail FROM T_DOUBLON_TMP ;"
 
DoCmd.RunSQL "DROP TABLE T_DOUBLON_TMP ;"
DoCmd.RunSQL strSQL

Lorsque j'excute mon code une erreur 3121 est lancée :

Impossible d'effectuer un regroupement sur les champs sélectionnés avec *

Donc mon erreur se trouve ici :

Code :

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

strSQL = strSQL & " WHERE EXISTS (SELECT * FROM [" & StrTableNameCourrier & "] T2 WHERE T1.AdrEmAil = T2.AdrEmail GROUP BY AdrEmail)" & ";"

Je bute et je n'arrive pas avancer. Je ne vois pas en quoi l'erreur lancée est réelement un problème.

Merci pour votre aide !

[Mr.Mof]

Bonjour,

Pourquoi utiliser le HAVING COUNT après GROUPY BY? Normalement, en utilisant le GROUP BY AdrMail, tu ne devrais avoir plus qu'une fois la même adresse mail dans ta table qu'il y ait 10 fois la même ou une seule fois.

Cordialement.

[JDev_]

Merci pour ta réponse, j'ai apporté les modications que tu m'as suggérées.

Oui, je comprends maintenant que le HAVING COUNT n'a pas son utilité ici après le GROUP BY.

Je suis toujours ennuyée avec l'erreur 3121 :

Impossible d'effectuer un regroupement sur les champs sélectionnés avec *

[Mr.Mof]

Tu cherches à récupérer le champ AdrMail dans ta table T2.
Essaye de remplacer * après ton SELECT par T2.AdrMail.

[JDev_]

Quitte à passer pour une nulle autant y aller jusqu'ou bout...

A présent que je n'ai plus d'erreur grâce à mon dernier changement (j'ai fais le remplacement du * par ce que tu m'avais suggéré), mais j'obtiens une table finale complètement vide.

Donc, j'ai exécuté les requêtes une à une.
Le problème c'est posé dès la première requête lorsque je copie ma table à dédoublonner sur la T_DOUBLON_TMP. Ca me dépasse, logiquement elle devrait se copier sans problème avec ma requête.

Merci pour le temps consacrer à m'aider. Je reconnais que le problème est loin d'être passionnant.

[Mr.Mof]

Tu as essayé avec un INSERT? Du style:

"INSERT INTO T_DOUBLON_TMP.AdrEmail SELECT [" & StrTableNameCourrier & "].AdrEmail GROUP BY AdrEmail ;"

[JDev_]

Oui, j'ai essayé également.

Ma table T_DOUBLON_TMP est copiée en structure mais pas le contenu.

[Mr.Mof]

Je ne vois pas pourquoi ça plante. Sinon tu dois pouvoir passer par une autre méthode ou bien utiliser des requêtes et une table tampon que tu utilise dans ton vb , quitte à y aller pas à pas.

[JDev_]

Finalement, ça fonctionne.

J'avais une requête avant celle du dédoublonnage et je l'exécutais à la suite de mes deux requêtes c'est pour cela que ça ne fonctionnait.

En tous les cas, un grand merci pour ton aide !