OVH Cloud OVH Cloud

ComboBox sur deux colonnes

1 réponse
Avatar
Antoine Labusquière
Bonjour.

Je n'arrive pas à trouver la syntaxe pour ajouter des éléments d'une table
dans une combobox (ou liste surgissante pour ceusses qui préfèrent).

- lm_destinataires est le nom de ma liste.
- destinataires est le nom de la table (Access) dans laquelle je vais
piocher les informations.

lm_destinataires.Clear
Do While Not destinataires.EOF
If Not IsNull(destinataires!poste) Then
lm_destinataires.AddItem destinataires!destinataire, 0
lm_destinataires.AddItem destinataires!poste, 1
End If
destinataires.movenext
Loop

Ce code (et les autres essais que j'ai fais) me donne comme résultat:
destinataire1
poste1
destinataire2
poste2...

et moi je cherche à obtenir
destinataire1,poste1
destinataire2,poste2

Merci pour votre aide.

1 réponse

Avatar
Youky
Bonjour tardif,
MonCombo.Column(colonne,ligne)= "nom"
1 ere colonne
MonCombo.AddItem "nom" 'si 1ere colonne
ou
MonCombo.Column(0,MonCombo.ListCount-1) = "nom"

' 2eme colonne
MonCombo.Column(1, MonCombo.ListCount - 1) = "prénom"

Bruno
A+

"Antoine Labusquière" a écrit dans
le message news: csgnnh$iu0$
Bonjour.

Je n'arrive pas à trouver la syntaxe pour ajouter des éléments d'une table
dans une combobox (ou liste surgissante pour ceusses qui préfèrent).

- lm_destinataires est le nom de ma liste.
- destinataires est le nom de la table (Access) dans laquelle je vais
piocher les informations.

lm_destinataires.Clear
Do While Not destinataires.EOF
If Not IsNull(destinataires!poste) Then
lm_destinataires.AddItem destinataires!destinataire, 0
lm_destinataires.AddItem destinataires!poste, 1
End If
destinataires.movenext
Loop

Ce code (et les autres essais que j'ai fais) me donne comme résultat:
destinataire1
poste1
destinataire2
poste2...

et moi je cherche à obtenir
destinataire1,poste1
destinataire2,poste2

Merci pour votre aide.