Discussion :

[hugnka]

j'ai à créer un logiciel sous VB6(dépassé mais cahier de charge oblige),basé aussi sur access.Jusqu'à là tout se passe bien mais mon problème c'est que j'ai une requête sql que je voudrais récupérer depuis l'interface vb.J'explique j'ai une table"DEPARTEMENT" avec les champs nomdepart ...... et lorsqu'on enregistre un nom de département cela s'enregistre également dans un combobox pour une réquête voulant obtenir la liste de tous les responsables par département mais le problème est qu'il des doublons au niveau de mon combobox.

[ProgElecT]

Salut

Il faut faire un select Distinct nom du champ dans la requête à l'ouverture de ton recordset.

[hugnka]

oui depuis access cela a été fait mais le problème en fait est au niveau de vb en particulier sur mon combobox comment faire pour ne pas avoir des départements en double

[ProgElecT]

cela s'enregistre également dans un combobox

Comment, par ligne de code est remplis ton combobox ?

[hugnka]

voici un bout de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Combo3_Click()
Label1 = "HISTORIQUE DES RESPONSABLES ET SOUS-RESPONSABLES D'UN DEPARTEMENT"
seconnecter
 
Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "select  * From [Requête responsable_sous-responsable] Where [Département]= '" & Combo3 & "'", con, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.Recordset = rs
 
rs.Close
con.Close
 
       Set rs = Nothing
       Set con = Nothing
End Sub

[ProgElecT]

Là tu mes le code pour remplir le MSHFlexGrid1.
Je suppose que les doublons sont dans le Combo3, c'est le code qui rempli ce combo3 qu'il faut nous mettre.
Si non, pour supprimer des doublons dans ton combo3, sur un Form un Combobox et un CommandButton et ce

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Private Sub Command1_Click()
Dim T As Integer, U As Integer
For T = 0 To Combo1.ListCount - 1
    For U = T + 1 To Combo1.ListCount - 1
        If Combo1.List(U) = Combo1.List(T) Then Combo1.RemoveItem (T)
    Next U
Next T
End Sub
 
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "Pas doublon"
Combo1.AddItem "Doublon"
Combo1.AddItem "Doublon"
Combo1.AddItem "pour demo"
Combo1.ListIndex = 0
End Sub