Remplir listbox multicolonnes avec requete et additem possible ?

**gelwc** · 28/11/2014, 15h40

Bonjour,

J'ai un listbox (zone de liste) qui possède 4 colonnes. Les 3 premières sont remplies avec une requête sql.
je voudrais remplir la dernière en utilisant additem. Mais apparemment ce n'est pas possible puisqu’on doit choisir dans les propriété de la la liste box pour "origine source" entre table/requête, liste de valeurs, liste de champs. Auriez vous une idée pour contourner ce problème ?
Pour l'instant je rajoute un listbox à une colonne juste à coté du premier auquel j’enlève une colonne. Sur ce nouveau listbox je vais ajouter mes items avec additem.

Néanmoins je voudrai tout avoir sur le même listbox.
Une solution pourrait 'elle être de boucler (sans utiliser de requête) sur les champs de ma table pour remplir les 3 premières colonnes et sur les champs de l'autre table pour la 4ème colonne ?
Ou alors à l'aide d'une requête ne remplir qu'une colonne (mais la ça dépasse mes compétences).

Merci d'avance pour l'aide

**nico84** · 28/11/2014, 23h27

bonsoir,

En général c'est possible avec une requête qui appelle les 2 tables concernées

Sinon il est aussi possible de choisir une listbox "liste de valeurs" et de la remplir en VBA comme dans cet exemple :

Code :

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

1
2
3
4
5
6
7
8
Private Sub maliste_gotfocus()
maliste.rowsource=""
Set rst = MaDb.OpenRecordset("SELECT cd_of,  d, poste FROM table1 WHERE ...")
While Not rst.EOF
   'ici il faut ajouter la requete qui trouve la valeur de la 4e colonne
   maliste.RowSource = maliste.RowSource & rst!cd_of & ";" & rst!D & ";" & Nz(rst!poste) & ";" & macolonne4 & ";"
   rst.MoveNext
Wend

**gelwc** · 01/12/2014, 13h53

Bonjour nico84, merci beaucoup pour ta réponse.
J'ai adapté un peu ton code pour que dans la 4ème colonne une valeur correspondant au total d'enregistrement lié à un critère de la colonne 1 s'affiche.
Un énorme merci pour le temps gagné.

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
18
19
20
21
22
23
24
25
26
27
 
Dim rst As DAO.Recordset
Dim h As Integer
Dim e As String
 
Comm_Ray2.RowSource = ""
'requete pour les 3 premières colonnes
sql1 = "SELECT COMMUNE, POP, X FROM Liste_com WHERE X <48.4 ORDER by POP DESC"
Set rst = CurrentDb.OpenRecordset(sql1)
 
 
While Not rst.EOF
    e = rst!Commune
    e = Replace(e, "'", "''")
   'requete pour le 4ème colonne
    sql2 = "SELECT * FROM liste_etablissements WHERE Commune ='" & e & "'"
    Set res = CurrentDb.OpenRecordset(sql2)
    While Not res.EOF
    res.MoveNext
    Wend
    h = res.RecordCount
 
   'remplissage de la zone de liste
 
   Comm_Ray2.RowSource = Comm_Ray2.RowSource & rst!Commune & ";" & rst!POP & ";" & rst!X & ";" & "'" & h & "'" & ";"
   rst.MoveNext
Wend

**nico84** · 01/12/2014, 14h21

Cela peut s'écrire avec une seule requete :

Code :

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

1
2
sql1 = "SELECT l.COMMUNE, l.POP, l.X, count(*) FROM Liste_com as l left join liste_etablissements as e on e.Commune=l.commune 
WHERE X <48.4 group by l.COMMUNE, l.POP, l.X ORDER by l.POP DESC"

Ou ce qui revient au même :

Code :

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

1
2
sql1 = "SELECT l.COMMUNE, l.POP, l.X, (select count(*) from liste_etablissements as e on e.Commune=l.commune) 
FROM Liste_com as l WHERE X <48.4 ORDER by l.POP DESC"

Par ailleurs,

Code :

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

1
2
3
    While Not res.EOF
    res.MoveNext
    Wend

peut se remplacer par res.movelast

Et aussi : h est un nombre donc pourquoi l'entourer de ' ?

**gelwc** · 01/12/2014, 15h00

Oui effectivement les ' ne servent à rien autour du h.
Par contre tu es sur pour res.movelast, car cela me donne une erreur 3021 : aucun enregistrement en cours.

Pour la requête unique je vais regarder ça à tête reposée, toujours bon à prendre si ça enlève des lignes de code pour le même résultat.

Merci pour ces précisions.