Discussion :

[Enoxandre]

Bonjour,

Sous Access, j'ai créé un formulaire contenant une liste box avec 2 colonnes. Ce paramètre "nombre de colonne" est directement indiqué dans les propriétés de la listBox en question.
Je souhaiterais simplement indiquer le prénom dans la première colonne et le nom dans la seconde.

J'ai cherché, mais je ne trouve que des exemples souvent liés à des tableaux "Excel" et faisant apparaître une propriété "List" de la ListBox : propriété qui n'existe PAS sous Access - VBA.

Quelqu'un peut-il m'aider SVP ?

Merci.

[Phiphi41]

Bonjour

Alimente ta lisbox par une requête et change l'ordre des champs dans celle-ci.

[Enoxandre]

Merci pour cette information.
Pourrais-tu me donner un exemple simple de code qui me permettrait de comprendre la syntaxe à adopter STP ?
Merci.

[tee_grandbois]

bonsoir,
il faut préciser la source des données dans la propriété Contenu de ta liste. Tu peux mettre le nom de la table (dans ce cas la propriété Origine source sera: Table/Requête) ou, dans ton cas la requête suivante:

Code :

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

select [prénom], [nom] from matable;

qui te permet de mettre les champs dans l'ordre désiré.

[Enoxandre]

Bonjour à tous et merci pour votre aide.
Mais, je crois que je m'explique mal...

En fait, je récupère un prénom et un nom via une requête SQL au sein d'une procédure.

Ensuite, dans ma liste box qui contient 2 colonnes, je souhaiterais l'alimenter de telle manière qu’apparaisse dans la colonne de gauche, le prénom et celle de droite le Nom.
Le paramètre "Origine source" est : Liste valeurs

En fait existe t-il une (ou des) commande(s) qui me permettrait d'arriver à une finalité du style :

Code :

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

1
2
MaListeBox.Additem (colonne, ligne) = sPrenom
MaListeBox.Additem (colonne + 1 , ligne) = sNom

Faut-il obligatoirement passer par une "Origine Source" = Table/requête ?
Mais même dans ce cas, comment préciser la colonne où apparaitra le prénom et celle où apparaitra le nom !?

Bon j'espère ne pas être trop brouillon dans ma demande. ! :-)

Merci à vous et bonne journée.

[tee_grandbois]

bonjour Enoxandre,
c'est encore plus simple avec une liste de valeurs:

Code :

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

1
2
3
4
5
6
7
8
Dim varItm As Variant
Dim ItIndx As Integer
 
If Not IsNull(sPrenom) And Not IsNull(sNom) Then
    ItIndx = Me.MaListeBox.ListCount ' le nombre d'enregistrements constitue l'index du prochain ajout puisque l'index est en base 0
    varItm = sPrenom & ";" & sNom
    Me.MaListeBox.AddItem varItm, Index:=ItIndx        ' ajoute dans la liste les nouvelles valeurs
End If