Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/01/2011, 14h14   #1
Invité de passage
 
Thomas
Inscription : janvier 2011
Messages : 10
Détails du profil
Informations personnelles :
Nom : Thomas
Âge : 28

Informations forums :
Inscription : janvier 2011
Messages : 10
Points : 4
Points : 4
Par défaut Ajouter plusieurs colonnes dans un menu déroulant

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 :
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!!
Smoovy35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/01/2011, 16h22   #2
Membre Expert
 
Femme
Ingénieur développement logiciels
Inscription : juin 2007
Messages : 480
Détails du profil
Informations personnelles :
Sexe : Femme
Localisation : France, Ain (Rhône Alpes)

Informations professionnelles :
Activité : Ingénieur développement logiciels

Informations forums :
Inscription : juin 2007
Messages : 480
Points : 1 024
Points : 1 024
Bonjour,
En séparant les différentes valeurs de colonnes par des points-virgules, on peut charger les colonnes avec AddItem. Par exemple :
Code :
Me.MenuDeroulant.AddItem mirs![Nom] & ";" & mirs![Prenom]
tedo01 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/01/2011, 17h28   #3
Invité de passage
 
Thomas
Inscription : janvier 2011
Messages : 10
Détails du profil
Informations personnelles :
Nom : Thomas
Âge : 28

Informations forums :
Inscription : janvier 2011
Messages : 10
Points : 4
Points : 4
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
Smoovy35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 04h09.


 
 
 
 
Partenaires

Hébergement Web