Bonjours à tous,
En ce lundi, j'essaie de remplir un menu déroulant à partir des champs d'un recordset. J'y parviens pour un champ via le procédé AddItem, mais pas pour plusieurs.
Alorsque je pensais toucher au but en utilisant l'argument index (qui est facultatif) de AddItem, celui-ci ne repond pas à mes attentes car il renseigne le la position de la ligne (et non de la colonne) pour lequel le champ va être inséré.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Dim db As Database Dim mirs As Recordset Dim i As Integer Set db = CurrentDb Set mirs = db.OpenRecordset("Table") For i = 1 To mirs.RecordCount If i = 1 Then mirs.MoveFirst Else mirs.MoveNext Me.MenuDeroulant.AddItem (mirs![Nom]) Next i
Dans mon exemple, je voudrais ajouter la colonne du prénom de mon individu.
Là je sèche... Merci!!
Partager