Discussion :

[Smoovy35]

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.

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

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é.

Dans mon exemple, je voudrais ajouter la colonne du prénom de mon individu.

Là je sèche... Merci!!

[tedo01]

Bonjour,
En séparant les différentes valeurs de colonnes par des points-virgules, on peut charger les colonnes avec AddItem. Par exemple :

Code :

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

Me.MenuDeroulant.AddItem mirs![Nom] & ";" & mirs![Prenom]

[Smoovy35]

Bonjour,

C'est effectivement effectif!

Quand je mettais un point virgule ça bugeait en me demandant une commande de "fin d'instruction" mais avec le & ça passe nickel !

Merci beaucoup