Discussion :

[facteur]

Bonkour

Dans un formulaire , j'ai inseré un graphique, un textbox avec date et un bouton de commande
Le graphique a pour source une requete en vba.
Aprés avoir rentré une date (format jj/mm/aaa) dans le texte-box, je clique sur le bouton de commande.

Aprés quelques seconde, le formulaire reste blanc mais lorsque je le mets en mode "création", le graphique apparait mais pas comme je le souhaite.

En effet, j'ai l'impression que la BDD dispose les champs à sa façon sur le graphique et je ne peux pas les changer.
De plus, j'auaris aimé avoir un graphique dynamique et non un graphique classique

Mon code vba ci dessous est il incomplet ou faux

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Option Compare Database
Dim VJournee As Date
Dim txt_ChaineSQL As String
Dim strSQLSELECT As String
Dim strSQLWHERE As String
Dim strSQLGROUPBY As String
Dim strSQLORDERBY As String
 
Private Sub Cmd_envoyer_Click()
VJournee = CDate(Texte_journee) + TimeSerial(5, 0, 0)
 
 
 
With Me.Graphique_recirculation
.RowSourceType = "Table/Requête"
'.ColumnCount = 8 ' nombre de colonne que dois avoir le formulaire intitulé "Listerecirculation"
'.BoundColumn = 1 ' la colonne de reference
 
 
 
 
strSQLSELECT = "SELECT [table_Affich-general].DESTINATION, [table_Affich-general].[Chute (format access)], [table_Affich-general].Type, FormatDateTime([DischargeEventTime],2) AS jour, Sum(dbo_vwItemData.RecirculationCount) AS [nbre de colis en recirculation], Round((Sum([RecirculationCount])/Count([ItemID])*100),2) AS taux , FormatDateTime((CVDate((Fix([DischargeEventTime]*24*1)/24/1))),4) AS [tranche horaire], FormatDateTime(CVDate(Fix([DischargeEventTime]*24*6)/24/6),4) AS [10 min]" & _
" FROM dbo_vwItemData INNER JOIN (dbo_vwParts INNER JOIN [table_Affich-general] ON dbo_vwParts.DisplayName = [table_Affich-general].[Chute (format access)]) ON dbo_vwItemData.DischargePartID = dbo_vwParts.ID"
 
strSQLORDERBY = "ORDER BY FormatDateTime([DischargeEventTime],2)ASC;"
 
strSQLGROUPBY = " GROUP BY [table_Affich-general].DESTINATION, [table_Affich-general].[Chute (format access)], [table_Affich-general].Type, FormatDateTime([DischargeEventTime],2), FormatDateTime((CVDate((Fix([DischargeEventTime]*24*1)/24/1))),4), FormatDateTime(CVDate(Fix([DischargeEventTime]*24*6)/24/6),4)"
 
strSQLWHERE = " WHERE (dbo_vwItemData.DischargeEventTime) BETWEEN #" & VJournee & "# And  #" & VJournee + 1 & "# "
 
 
txt_ChaineSQL = strSQLSELECT & vbCrLf & _
                strSQLWHERE & vbCrLf & _
                strSQLGROUPBY & vbCrLf & _
                strSQLORDERBY
 
 
.RowSource = txt_ChaineSQL
.Requery
End With
 
 
 
End Sub

[loufab]

Bonjour,

La première chose à faire c'est déboguer ta requête.

C'est-à-dire qu'une fois composée dans le code, tu mets un point d'arrêt et tu copie le texte dans une objet requête, puis tu affiches le résultat.

A première vu tu utilises des fonctions SQL issue d'un autre moteur que Jet et il me semble, sauf erreur de ma part, qu'il manque des espaces et qu'il y un ; en plein milieu de l'instruction...

Cordialement,

[facteur]

Bonjour Loufab,

A l'origine, les données obtenue, en inserant la date dans le text_box, se trouvaient dans une liste_box de 8 colonnes.
Or pour une meilleur lecture des données, j'aurais aimé que ma liste_box affichent les données avec un graphique dynamique or il parait que l'on ne peut pas crée un graphique dynamique dans une liste_box.
Me voila donc , obligé de trouvez une alternative à ce problème.
C'est pour cela que je me suis dirigé vers l'insertion d'un graphique qui n'est pour moi par la meilleur solution car on ne pourra pas déplacer les champs comme on le souhaite

[loufab]

Un graphique dynamique dans une liste ?!!
Je ne vois pas ce que tu veux dire...

Quoiqu'il en soit la première étape c'est la correction de cette requête pour qu'elle renvoie quelque chose.

[facteur]

c'est fait , j 'ai inseré un focus:

Code :

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

1
2
3
Private Sub graphique_carrousel_Updated(Code As Integer)
[F_recirculation].Texte_journee.SetFocus
[F_recirculation].Graphique_recirculation.SetFocus

Mon graphique s'affiche bien mais les champs ne sont pas au bonne endroit.
Peut on repositionner les champs ?

Loufab, dans les proriétés du graphique sur la rubrqiue contenu, j'ai mis le nom de ma requete directement : txt_ChaineSQL.
Ca doit etre possible car le graphique s'affiche

[loufab]

Pas sur du tout , tu dois voir le résultat de la précédente affectation. Normalement une variable VBA n'est pas visible par la propriété de l'IHM.

La position est déterminée par la position des colonnes dans la source + le paramètre PlotBy.

Cordialement,