Probleme de boucle do loop

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:

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

Salut

Pourquoi tu fais une boucle ?? :roll:

Tu recherches uniquement une valeur
Code:

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]
:oops: Le champ Code n'est pas unique hein ?!
[/EDIT]

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:

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

Citation:
Envoyé par 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:

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

Citation:

Envoyé par trollinou

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:

1 2 3 While .. Wend
ne fonctionne pas en VB6 ??

Citation:

Envoyé par ThierryAIM

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

Les deux posts ont quand même un point commun ... la boucle.
Citation:
Envoyé par ThierryAIM
depuis quand :
Code:

1 2 3 While .. Wend
ne fonctionne pas en VB6 ??
Toutes mes plus plates, effectivement le While ... Wend fonctionne.

Merçi:king: