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
Version imprimable
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
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.
Cordialement,Code:
1
2
3
4
5 MaListe.RowSourceType = "Table/Query" Maliste.RowSource = TaRequeteSQL ' Pour un petit rafraichissement Maliste.Requery
lanonyme
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
Merci por votre aideCode:
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
A force de manipuler, j'ai trouvé mon erreure.
Elle était là
il fallait que je metteCode:Liste2.RowSource = "Pannes"
ma liste est bien remplie cette fois ciCode:Liste2.RowSource = CDE3_SQL
Excuser moi pour le derangement
Cordialement