Discussion :

[majothi]

Bonjour

Je sais mettre une requête access dans une zone liste par les propriétées de celle ci.

Quelle est la procédure ou le tutoriel pour mettre une requête faite en VBA ds une zone liste.

Merci d'avance

[lanonyme]

Bonjour,

Pour mettre la requete dans une zone de liste, il faut renseigner sa propriété RowSource et bien avoir le RowSourceType sur Table/Query.

Code :

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

1
2
3
4
5
MaListe.RowSourceType = "Table/Query"
Maliste.RowSource = TaRequeteSQL
' Pour un petit rafraichissement 
Maliste.Requery

Cordialement,

lanonyme

[majothi]

merci pour ton aide
Voici mon exemple, il doit y avoir une erreure, car rien s'affiche ds la zone liste 2 de mon formulaire

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
 
Dim CDE3_SQL As String
Dim Pannes As DAO.Recordset
 
 
'convertir la date au format des requête
debut = "#" & Format$(Texte54, "mm/dd/yyyy") & "#"
fin = "#" & Format$(Texte55, "mm/dd/yyyy") & "#"
 
CDE3_SQL = "SELECT DISTINCT tHistorique.Repère, Sum (tHistorique.Qte) AS Total " & _
                "FROM tHistorique " & _
                "WHERE tHistorique.jour <= " & fin & " And " & _
                "tHistorique.jour >= " & debut & " And " & _
                "tHistorique.Code = 'M1' And " & _               
                "GROUP BY tHistorique.Repère"
 
 
                Set Pannes = CurrentDb.OpenRecordset(CDE3_SQL)
 
                If Pannes.RecordCount > 0 Then
                    Liste2.RowSourceType = "Table/Query"
                    Liste2.RowSource = "Pannes"
                    Liste2.Requery
                Else
                MsgBox " table vide"
                End If

Merci por votre aide

[majothi]

A force de manipuler, j'ai trouvé mon erreure.
Elle était là

Code :

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

Liste2.RowSource = "Pannes"

il fallait que je mette

Code :

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

Liste2.RowSource = CDE3_SQL

ma liste est bien remplie cette fois ci

Excuser moi pour le derangement

Cordialement