Discussion :

[jacko842]

Voila je fais un recherche dans une table mais ya plusieurs resultats donc je demande d 'affiché les differents resultats dans une combo box pour que l utilisateurs selectionne celui de son choix le probleme c est que le dernier resultat s'affiche deux fois dans la combo box

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
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub cb_cp_Click()
 
    Dim int_val_champ As Integer
    Dim int_index As Integer
 
    cb_localite.Clear
 
    int_val_champ = Val(cb_cp.Text)
 
    data_cp.Recordset.FindFirst "Code" & "=" & int_val_champ
 
    cb_localite.AddItem data_cp.Recordset.Fields("Localite")
 
        Do
 
            If data_cp.Recordset.NoMatch = True Then
 
                Exit Do
 
            Else
 
                data_cp.Recordset.FindNext "Code" & "=" & int_val_champ
                cb_localite.AddItem data_cp.Recordset.Fields("Localite")
 
            End If
 
        Loop
 
 
 
 
End Sub

meric d avance

[trollinou]

Salut

Pourquoi tu fais une boucle ??

Tu recherches uniquement une valeur

Code :

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

1
2
3
4
5
 
If Not data_cp.Recordset.NoMatch Then
  data_cp.Recordset.FindNext "Code" & "=" & int_val_champ
  cb_localite.AddItem data_cp.Recordset.Fields("Localite")
End If

[EDIT]
Le champ Code n'est pas unique hein ?!
[/EDIT]

[GodGives]

Le code est apparement parfait!
Dans l'espoir que le doublon ne se situe pas dans le recordset, je te propose d'essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub cb_cp_Click()
 
Dim int_val_champ As Integer
Dim int_index As Integer
cb_localite.Clear
int_val_champ = Val(cb_cp.Text)
data_cp.Recordset.FindFirst "Code" & "=" & int_val_champ
 
While data_cp.Recordset.NoMatch = True
   cb_localite.AddItem data_cp.Recordset.Fields("Localite")
   data_cp.Recordset.FindNext "Code" & "=" & int_val_champ                       
Wend
 
End Sub

[trollinou]

Le code est apparement parfait!
Dans l'espoir que le doublon ne se situe pas dans le recordset, je te propose d'essayer ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub cb_cp_Click()

Dim int_val_champ As Integer
Dim int_index As Integer
cb_localite.Clear
int_val_champ = Val(cb_cp.Text)
data_cp.Recordset.FindFirst "Code" & "=" & int_val_champ
      
Do While data_cp.Recordset.NoMatch = True
   cb_localite.AddItem data_cp.Recordset.Fields("Localite")
   data_cp.Recordset.FindNext "Code" & "=" & int_val_champ                       
Loop
End Sub

Sauf qu'en VB les mots clés pour la boucle sont un peu différents

[ThierryAIM]

Sauf qu'en VB les mots clés pour la boucle sont un peu différents

Faux, alors arrête de nous le mettre dans tous les posts !!

depuis quand :

Code :

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

1
2
3
While ..
 
Wend

ne fonctionne pas en VB6 ??

[trollinou]

Faux, alors arrête de nous le mettre dans tous les posts !!

Les deux posts ont quand même un point commun ... la boucle.

depuis quand :

Code :

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

1
2
3
While ..
 
Wend

ne fonctionne pas en VB6 ??

Toutes mes plus plates, effectivement le While ... Wend fonctionne.

[jacko842]

Merçi