Discussion :

[MAMANHOU]

Bonjour,

Je reviens vers vous car je ne sais pas comment faire ...
Pour vérifer les doublons dans ma BD j'utilise le code ci dessous :

Code :

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

1
2
3
4
5
 
Dim str As String
str = "SELECT DISTINCT * FROM   T_abonne T1 WHERE EXISTS (SELECT * FROM T_abonne T2  WHERE   T1.N° <> T2.N° AND  T1.DIR_NOM = T2.DIR_NOM AND  T1.DIR_PRENOM = T2.DIR_PRENOM AND  T1.VILLE = T2.VILLE AND T1.N_SIREN    = T2.N_SIREN )ORDER BY T1.N_SIREN"
Me.Liste3.RowSource = str
Me.Liste3.Requery

cela marche pas de problème.
Pour plus de visibilité j'aimerai isoler par de la couleur mes doublons dans ma textlist :
Exemple :
1233 TITI eric
1487 TITI eric
8978 TOTO PAUL
9712 TOTO PAUL
4658 TAT Pierre
9782 TAT Pierre
9995 TUTU Alex
6584 TUTU Alex

Pouvez vous m'aider à modifier mon code ?
Merci d'avance
Mamanhou

[Invité]

Bonjour

Ce n'est pas possible nativement dans les zones de listes d'Access.

Il y a deux solutions :

1. Passer par un sous-formulaire, mais il faut rajouter un champ pour créer une mise en forme conditionnelle.
2. Passer par un composant Microsoft Office Web Components dont tu auras un peu plus d'explication dans cet article http://starec.developpez.com/tuto/listesowc/, celui-ci te permettra à l'aide d'un peu de VBA de réaliser ton besoin.

Starec

[MAMANHOU]

Merci Starec
Je vois que j'ai un peu de lecture ... alors je me mets tout de suite au travail
a bientôt
Mamanhou