Remplir une Liste par SQL ?

**Zigouigoui** · 03/12/2005, 11h30

Bonjour à tous,

Je cherche à remplir une zone de liste au clic d'un bouton par du code VBA et SQL...
Voilà ce que j'ai essayé :

Pour info :
monBouton : le bouton (évident non ?

)
Liste1 : la zone de liste
Base Clients : la table access
Cpos : un champ de la table (codes postaux)

Private Sub monBouton_Click()
Me.Liste1.ControlSource = "SELECT [Base Clients].Cpos FROM [Base Clients];"
Me.Liste1.Requery
End Sub

Mais rien ne s'affiche dans la zone de liste...
Je me doute un peu qu'il faut passer par addItem mais je ne sais pas comment, en VBA, récupérer chaque résultat du sql pour l'insérer dans la liste...
Je sais comment le faire en PHP mais pas en VBA

Quelqu'un peut m'aider ?

Merci d'avance

**Demco** · 03/12/2005, 12h56

Bonjour,

Tout d'abord merci pour la clareté de ton message. Pour un premier message sur le forum c'est assez rare pour être apprécié.

Pour ton problème je te propose de t'intéresser à la propriété RowSource des zones de liste comme tu verras dans divers exemples de la FAQ :
http://access.developpez.com/faq/?re...=zone+de+liste

Si tu veux réellement utiliser AddItem pour x raisons intéresses-toi aux RecordSet qui te permettront de récupérer, ligne par ligne, les enregistrements retournés par ta requête.

En espérant t'aider.

**cafeine** · 03/12/2005, 15h51

Envoyé par Zigouigoui

Bonjour à tous,

Je cherche à remplir une zone de liste au clic d'un bouton par du code VBA et SQL...
Voilà ce que j'ai essayé :

Pour info :
monBouton : le bouton (évident non ?

)
Liste1 : la zone de liste
Base Clients : la table access
Cpos : un champ de la table (codes postaux)

Private Sub monBouton_Click()
Me.Liste1.ControlSource = "SELECT [Base Clients].Cpos FROM [Base Clients];"
Me.Liste1.Requery
End Sub

Mais rien ne s'affiche dans la zone de liste...
Je me doute un peu qu'il faut passer par addItem mais je ne sais pas comment, en VBA, récupérer chaque résultat du sql pour l'insérer dans la liste...
Je sais comment le faire en PHP mais pas en VBA

Quelqu'un peut m'aider ?

Merci d'avance

en php

Code :

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

1
2
3
4
5
$sql = mysql_query("SELECT ... FROM ... WHERE ... ") ;
while ($rec = mysql_fetch_array($sql))
{
   echo "Valeurs : " . $rec['NomduChamp'] . "<br>" ;
}

en vb / vba

Code :

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

1
2
3
4
5
6
7
8
 
Dim rec As DAO.Recordset
Dim db as DAO.Database
set db = CurrentDB()
set rec = db.OpenRecordset("SELECT ... FROM ... WHERE ...")
Do While Not rec.eof
   MsgBox "Valeurs : " & rec.Fields("NomduChamp").Value
Loop

**Petogaz** · 03/12/2005, 16h07

salut,

c'est bien la fonction rowsource (cela suffit) que tu dois utiliser pour avoir ce que tu veux :

Code :

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

1
2
3
4
Private Sub monBouton_Click() 
Me.Liste1.rowsource= "SELECT Cpos FROM [Base Clients];" 
Me.Liste1.Requery 
End Sub

**Tofalu** · 03/12/2005, 16h09

Code :

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

1
2
3
4
Private Sub monBouton_Click() 
Me.Liste1.ControlSource = "SELECT [Base Clients].Cpos FROM [Base Clients];" 
Me.Liste1.Requery 
End Sub

Pourtant ton code semble correct

Est ce bien une zone de liste de type "Table/Requête" ?

Vérifie qu'ailleurs aucun code du style

Code :

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

Me.Liste1.ControlSource=""

n'est lancé

**Anne1969** · 03/12/2005, 16h36

Et ça ?

:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub monBouton_Click() 
 
Set maliste= Forms![le nom du form].[Liste1]
monSQL="SELECT [Base Clients].Cpos FROM [Base Clients];" 
 
maliste.RowSourceType = "Table/requête"
maliste.RowSource = monSQL
 
End Sub

Et dans la propriété Sur fermeture de ton Form tu rends place nette
:

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Close()
 
Set maliste= Forms![le nom du form].[Liste1]
maliste.RowSourceType = ""
maliste.RowSource = ""
 
End Sub

**Petogaz** · 03/12/2005, 16h39

heu ! Tofalu dans son cas je pense que c'est la propriété Rowsource qui convient le mieux car la propriété ControlSource permet de lier simplement un contrôle de zone de liste ou de zone de liste modifiable à un champ du jeu d'enregistrements spécifié dans la propriété RecordSource d'un formulaire, alors que la propriété RowSource sert à remplir un contrôle de zone de liste ou de zone de liste modifiable.
pour spécifier le type de Rowsource à utiliser il suffit d'ajouter la propriété RowSourceType . donc on aura :

Code :

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

1
2
3
4
5
Private Sub monBouton_Click()
Me.liste1.RowSourceType = "Table/Requête"
Me.Liste1.Rowsource= "SELECT Cpos FROM [Base Clients];" 
Me.Liste1.Requery 
End Sub

**Tofalu** · 03/12/2005, 16h40

Tout à fait petogaz j'avais pas vu

**DMboup** · 03/12/2005, 16h47

Le code est tout a fait correcte. Il suffit juste de rajouter le nbre de colonne et leur largeur pour voir le résultat.

Code :

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

1
2
3
4
5
6
7
8
Private Sub monBouton_Click()
Me.liste1.RowSourceType = "Table/Requête"
Me.Liste1.Rowsource= "SELECT Cpos FROM [Base Clients];" 
Me.Liste1.ColumnCount = 1
Me.Liste1.ColumnWidths = "3cm"
 
Me.Liste1.Requery 
End Sub