Discussion :

[tarnx]

Bonjour à tous,

Je souhaite remplir une combobox de plusieurs colonnes dynamiquement.

Pour l'instant, j'arrive à remplir la combobox si elle n'a qu'une seule colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim RcdSet As DAO.Recordset
Dim SQL As String
Dim oMateriel As String
 
SQL = "Select RefMat As Ref, IdentifiantMat As Identifiant " & _
         " FROM Materiel;"
 
Set RcdSet = CurrentDb.OpenRecordset(SQL, dbOpenForwardOnly, dbReadOnly)
 
Me.cboMat.RowSource = ""
Me.cboMat.RowSourceType = "Value List"
 
Do Until RcdSet.EOF
    oMateriel = RcdSet![Identifiant] 
    Me.cboMat.AddItem (oMateriel)
    RcdSet.MoveNext
Loop

Je souhaiterais également ajouter une colonne pour voir apparaître la référence du matériel, mais je ne trouve pas comment y parvenir.

Quelqu'un pourrait-il m'éclairer à ce sujet?

[Taoueret]

pourquoi ne pas faire tout simplement :

Code :

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

1
2
3
4
5
6
7
8
 
SQL = "Select RefMat As Ref, IdentifiantMat As Identifiant " & _
         " FROM Materiel;"
 
Me.cboMat.RowSource = sql
Me.cboMat.RowSourceType = "Table/Query"
me.cboMat.columnCount = 2
me.cboMat.columnwidths = "3cm;3cm"

[Hoshar]

Il faut séparer les 2 valeurs des 2 colonnes par un ";", tu auras alors :

Code :

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

1
2
3
4
Do Until RcdSet.EOF
    Me.cboMat.RowSource = RcdSet![Identifiant] & ";" & RcdSet![Ref] & ";"
    RcdSet.MoveNext
Loop