Discussion :

[Ragnarok85]

Bonjour,

Voici mon problème, j'ai créer une double boucle pour comparer l'ensemble des valeurs d'une liste avec ceux des enregistrements d'une table.
Premier problème: Pour la première boucle il s'arrête à i =1, la deuxième fonctionne normallement.
Deuxième problème: Lorsque les 2 valeurs sont égales, la variable Resultat reste vide.
Voici le code:

Code :

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

1
2
3
4
5
6
7
For i = 1 To txtNoRef.ListCount
    For j = 1 To NbEnregistrement
        If oRst.Fields("NoRef").Value = txtNoRef.Column(0, 0) Then
            Resultat = "Identique"
        End If
    Next
Next

Merci de votre aide

[LedZeppII]

Bonjour,

je vois deux petits problèmes.
- tu compares toujours le 1er élément de la liste

Code :

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

txtNoRef.Column(0, 0)

Remarque : Si il y a les en-tête de colonnes (ColumnHeads) la liste comme à 1, sinon elle commence à 0

- le recordset reste toujours sur le même enregistrement

Si je n'ai pas fait d'erreur, ça donne ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim idx as integer
 
If txtNoRef.ColumnHeads = False then idx = 0 Else idx = 1
For i = idx To txtNoRef.ListCount-1
    ' Aller à 1er enregistrement
    oRst.MoveFirst
    For j = 1 To NbEnregistrement
       If oRst.Fields("NoRef").Value = txtNoRef.Column(0, i) Then
          Resultat = "Identique"
       End If
       ' Enregistrement suivant
       oRst.MoveNext
    Next
Next

A+

[Ragnarok85]

J'avais oublié de changé d'enregistrement à chaque fois.
Mais le problème de la conditionnelle est toujours là, la variable resultat ne prend jamais la valeur "identique", meme en cas de doublons

[Ragnarok85]

En fait c'est bon ca fonctionne.
Merci de ton aide. J'avais fais les choses à moitié.