Discussion :

[hugoclo]

Bonjour,
J'utilise ce

Code :

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

1
2
3
4
5
For i = 1 To Ct.RecordCount
          Combo1.AddItem Ct!genre
          Ct.MoveNext
        Next i
    Ct.MoveFirst

afin de charger mon combobox avec tous les genres (comedie,western etc) de films d'une base access.
Le probleme c'est que si dans ma base j'ai 3 "western", dans mon combo il y aura 3 fois "western".
Comment faire pour qu'il n'apparaisse qu'une seule fois "western"

[ProgElecT]

Il vaut mieux que la requette qui remplis ton Combo1 ne te renvoi pas de doublon.
Pour cela utilises dans la requette: "Select distinct MoncAMPS From MaTable"

[hugoclo]

J'ai essayé avec ce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Set Ct = New ADODB.Recordset
    Set BD = New ADODB.Connection
    Set ct1 = New ADODB.Recordset
    BD.CursorLocation = adUseClient
    BD.Provider = "Microsoft.Jet.OLEDB.4.0"
    BD.ConnectionString = App.Path & "\Film.mdb"
    BD.Open
    Ct.Open "Select * from Film", BD, adOpenDynamic, adLockOptimistic
     ct1.Open "Select distinct Genre From Film", BD, adOpenDynamic, adLockOptimistic
       Set DataGrid1.DataSource = Ct
     Set Combo1.DataSource = ct1

est maintenant mon combo est vide...

[ProgElecT]

Ne sachant pas faire comme toi, une copie addapté à ton code devrait donner çà

Code :

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

1
2
3
4
5
6
7
8
     ct1.Open "Select distinct Genre From Film", BD, adOpenDynamic, adLockOptimistic
Combo1.Clear
     Do
       Combo1.AddItem ct1!Genre
       ct1.MoveNext
       DoEvents
     Loop Until ct1.EOF
ct1.Close

Motif de l'edit:
Ton titre Enlever les doublons d'un combobox, j'espére que l'on s'est compris, la solution proposée ne supprime pas des doublons dans le ComboBox, c'est la requette fait avec le Open du RecordSet qui ne renvoi pas de doublon, grace à Distinct .

[hugoclo]

Cela fonctionne merci.