Comment utiliser un recrdset pour remplir une liste à partir d'une table

[souriant]

Salut
Je suis débutant en matière des bases de données, et j'ai réussi à remplir le combo1 à partir d'une table moyennant un Recrodset DAO, mais je ne sais comment faire pour remplir un listbox (list1) avec des éléments filtrés d'une autre table de la même base de données voici le code que j'ai écrit:

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Combo1_Click()
Dim rs1 As DAO.Recordset
Dim strSQL As String
IdClasse = Combo2.List(Combo1.ListIndex)
strSQL = "SELECT Elève.Nom FROM Eléves WHERE IdClasse=' " & IdClasse & " ' "
Set rs1 = mabase.OpenRecordset(strSQL, dbOpenDynaset, dbAppendOnly)
Do Until rs1.EOF
List1.AddItem rs1!Nom
rs1.MoveNext
Loop
End Sub

j'espère que vous aurez la gentillesse de me donner un coup de main je suis vraiment bloqué

[iclic]

Bonsoir,

Avec ta base pourquoi n'utulises-tu pas le contrôle Datalist,
c'est comme une listbox mais spécialement adapté pour une base.

Vois ce mot dans la MSDN pour les renseignements.

[Mat.M]

Code :

IdClasse = Combo2.List(Combo1.ListIndex)

A ce niveau là ,l'ID récupéré n'est pas bon ou inexistant..
donc voir pourquoi
Ensuite il est conseillé de faire

Code :

1
2
3
 
rs1.MoveLast
rs1.MoveFirst

avant d'utiliser les recordsets