Discussion :

[charlou74]

Bonjour,
Alors je souhaiterai changer le contenu d'un état(graphique) en VBA, en mode création c'est très simple clic droit sur le graphique propriété/contenu :

Code sql :

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

SELECT [Date],[MoyenneHeure] FROM [table1];

Mais comment faire en VBA puisque que je voudrais changer le FROM [table1]
selon une selection d'année ou l'année serai une variable par exemple FROM [table1+annee]

alors quelle private sub utiliser: detail_format, detail_retreat ???
et quelle est le mot clé de la propriété d'un état en vba de "contenu" ?

Merci de votre aide ..

edit:
Peut être comme ça mais ça fonctionne pas

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
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
Dim Rst As DAO.Recordset
Dim Db As DAO.Database
Dim Tbl As DAO.TableDef
Set Db = CurrentDb
 
Set Rst = Db.OpenRecordset("SELECT * FROM Argonxls", dbOpenDynaset)
 
 
 
Me.IndépendantOLE0.Selected = Rst
 
Rst.Close
Db.Close
Set Rst = Nothing
Set Db = Nothing
End Sub

[jean-paul lepetit]

Salut,

La propriété correspondant à la source de donnée de ton état est : RecordSource.

Pour modifier la source de ton état, tu peux le faire à l'ouverture, évènement : Report_Open

Code :

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

1
2
3
4
 
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "SELECT * FROM Argonxls; "
End Sub

[charlou74]

Merci pour ta réponse c'est déjà un grand pas !

voilà mon code :

Code :

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

1
2
3
4
Private Sub Report_Open(Cancel As Integer)
Me.RecordSource = "SELECT Argonxls.Date, Argonxls.MoyenneHeure FROM Argonxls WHERE (((Argonxls.Date) Between [Forms]![IHM]![DebutARxls] And [Forms]![IHM]![FinARxls])) "
MsgBox [Forms]![ihm]![FinARxls].Value
End Sub

donc dans le msgbox ça affiche la bonne valeur mais problème aucun tracé se fait en fonction du Record Source dans les propirétés du graphique dans origine source j'insere quoi ? table/requete non?

je précise dans ma table de donée j'ai bien deux colonnes Date, MoyenneHeure

EDIT: RecordSource = source de données je suppose ? donc je met rien c'est le code VBA qu'il le fait.
ça n'affiche toujours pas la requete il faut peut être mettre un Me."contenu"

[jean-paul lepetit]

Si dans le recordsource de ton état, tu mets :

Code :

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

"SELECT Argonxls.Date, Argonxls.MoyenneHeure FROM Argonxls WHERE (((Argonxls.Date) Between [Forms]![IHM]![DebutARxls] And [Forms]![IHM]![FinARxls])) "

, ton état te donne quelque chose?

[charlou74]

Non ça donne rien..
j'ai essayer de mettre de cette manière aussi et ça donne rien non plus

Code :

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

SELECT [Date],[MoyenneHeure] FROM [Argonxls] WHERE (((Argonxls.[Date]) Between [Formulaires]![IHM]![DebutARxls] And [Formulaires]![IHM]![FinARxls]));

dans les propriétés de l'état graphique il y a un champ "contenu" c'est ici qu'il faut mettre une requête sql mais en vba ça donne quoi ? :S

[jean-paul lepetit]

Code :

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

NomDeTonGraphique.RowSource=.....

Mais, ce ne sera plus

Code :

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

SELECT [Date],[MoyenneHeure] FROM .....

Fais ton état sur une table, et après, récupères la requête que tu trouves dans le contenu de l'objet graphique et modifie ton nom de table dans ton code VBA

[charlou74]

OK j'ai fais ce que tu m'as dis mais avec la création ça donne:

Code :

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

SELECT (Format([Date],"DDDDD HH:NN")),Count(*) AS [Total] FROM [Argonxls]   GROUP BY (Int([Date]*1440)),(Format([Date],"DDDDD HH:NN"));

mais la propriété RowSource n'est pas reconnu ni ac Me.RowSource ni avec NomGraphique.RowSource

[jean-paul lepetit]

Code :

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

SELECT (Format([Date],"DDDDD HH:NN")),Count(*) AS [Total] FROM [Argonxls]   GROUP BY (Int([Date]*1440)),(Format([Date],"DDDDD HH:NN"));

N'est pas le source de ton contrôle graphique, mais de ton état, non?

[charlou74]

c'est le contenu du IndépendantOLE0 ( càd le nom du graphique ) dans origine source il y a requête/table