Tester l'existance d'une valeur ds une liste???

Question

Je n'arrive pas a ecrire le code pour tester l'existance d'une valeur dans une liste.
Cette valeur est saisie dans un controle zone de texte, je veux verifier si elle est presente dans la liste des valeurs prises par le champs d'une base de donnees.
Please help!

villissina · Answer

Salut


Private Sub Command1_Click()
Dim I As Integer 'Compteur
Dim NotFound As Boolean 'controle l'existance
Interm As String 'Intermediaire
'La liste s'appelle List1
'La valeur testee est Text1

NotFound = True
I = 0
Interm = List1.List(I)
Do While I <= List1.ListCount - 1 And NotFound
    NotFound = List1.List(I) <> Text1.Text
    I = I + 1
Loop
If NotFound Then
    MsgBox "Valeur non trouvé"
Else
    MsgBox "Valeur trouvé"
End If
End Sub

Tester l'existance d'une valeur ds une liste???

1 réponse

Discussions similaires