salut tous le monde
j'ai un problrmrs avec ce code c'estque je veux rechercher tous les f2 qui ont un f1=a(1).text alors ca me donne tous le contenu de la table.
merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub Command1_Click()
List1.Clear
Data1.Recordset.MoveFirst
For rt = 1 To Data1.Recordset.RecordCount
If Data1.Recordset.Fields("f1").Value = a(1).Text Then List1.AddItem Data1.Recordset.Fields("f2").Value
Data1.Recordset.MoveNext
Next rt
End Sub