VBa : Dédoublonnage (Access 2007)

Fermé
JDev_ - Modifié par JDev_ le 29/05/2012 à 10:26
 JDev_ - 29 mai 2012 à 14:48
Bonjour,

Je travaille sur un formulaire access 2007.

J'ai un problème de dédoublonnage.
J'ai une table StrTableNameMail que je souhaiterais dédoublonner sauf qu'avec Acces, je ne peux pas faire de regroupement (group by) avec un select *.
J'ai essayé à plusieurs reprises et de différentes manières mais rien n'y fait.

Mon objectif : faire qu'on ne retrouve qu'une fois une adresse.

  DoCmd.RunSQL "SELECT * INTO T_DOUBLON_TMP FROM [" & StrTableNameMail & "] GROUP BY AdrEmail;" 
      
    strSQL = "DELETE FROM [" & StrTableNameMail & "] T1" 
    strSQL = strSQL & " WHERE EXISTS (SELECT * FROM [" & StrTableNameMail & "] T2 WHERE T1.AdrEmAil = T2.AdrEmail GROUP BY AdrEmail)" & ";" 
      
    DoCmd.RunSQL "INSERT INTO [" & StrTableNameMail & "] SELECT * FROM T_DOUBLON_TMP ;" 
      
    DoCmd.RunSQL "DROP TABLE T_DOUBLON_TMP ;" 
    DoCmd.RunSQL strSQL 



je vous remercie pour votre aide.

Cordialement,

1 réponse

Je me permets (je ne le ferai qu'une fois pour ne pas flooder) de faire remonter mon message car je suis vraiment ennuyée avec ce problème.
0