Discussion :

[Gabrieel]

Bonjour,

sur les nouveaux graphes j'essaie de faire changer les données via un after update d'une liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub lstKPI_AVCentre_AfterUpdate()
 
   Dim sFiltre, sql As String
    sFiltre = Me.lstCentre.Value
    sql = "SELECT rSortie.[T Desc Site Départ] AS Centre, rSortie.[T Année Mois Arrivée] AS Periode, rSortie.[Nb Vin], rAvCentre.[SommeDeNb Avaries (OR)], rAvCentre.SommeDeCouts, Round(1000*([SommeDeNb Avaries (OR)]/[Nb Vin]),2) AS Tx, Round(([SommeDeCouts]/[Nb Vin]),2) AS CoutVeh, Round(([SommeDeCouts]/[SommeDeNb Avaries (OR)]),2) AS CoutM"
    sql = sql & " FROM rSortie LEFT JOIN rAvCentre ON (rSortie.[T Année Mois Arrivée] = rAvCentre.[Drv Année Mois]) AND (rSortie.[T Desc Site Départ] = rAvCentre.[Drv Desc Facturé Potentiel 1])"
    sql = sql & " WHERE (((rSortie.[T Desc Site Départ])= '" & sFiltre & "'));"
 
    Me![Graphe_KPI_AvCentre].Chart.RowSourceType = "Table/Query"
    Me![Graphe_KPI_AvCentre].Chart.RowSource = sql
End Sub

malheureusement la methode n'est pas reconnu "propriété ou méthode non reconnue" je n'arrive pas a trouver dans la doc comment manipuler cet objet. avez vous une piste?

Merci d'avance

[hyperion13]

Salut
Et en lieu et place de

Code :

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

1
2
    Me![Graphe_KPI_AvCentre].Chart.RowSourceType = "Table/Query"
    Me![Graphe_KPI_AvCentre].Chart.RowSource = sql

un simple

Code :

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

Me.Graphe_KPI_AvCentre.Requery

?

[Gabrieel]

Salut
Et en lieu et place de

Code :

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

1
2
    Me![Graphe_KPI_AvCentre].Chart.RowSourceType = "Table/Query"
    Me![Graphe_KPI_AvCentre].Chart.RowSource = sql

un simple

Code :

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

Me.Graphe_KPI_AvCentre.Requery

?

Bonjour,

merci de ton rapide retour

ok pour le recalcul, mais comment je passe la sélection l'idée est que quand je select une valeur dans la listbox je la passe comme en sql comme filtre

le même principe sur un formulaire (basé sur la même requete sql)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub lstCentre_AfterUpdate()
   Dim sFiltre, sql As String
    sFiltre = Me.lstCentre.Value
    sql = "SELECT rSortie.[T Desc Site Départ] AS Centre, rSortie.[T Année Mois Arrivée] AS Periode, rSortie.[Nb Vin], rAvCentre.[SommeDeNb Avaries (OR)], rAvCentre.SommeDeCouts, Round(1000*([SommeDeNb Avaries (OR)]/[Nb Vin]),2) AS Tx, Round(([SommeDeCouts]/[Nb Vin]),2) AS CoutVeh, Round(([SommeDeCouts]/[SommeDeNb Avaries (OR)]),2) AS CoutM"
    sql = sql & " FROM rSortie LEFT JOIN rAvCentre ON (rSortie.[T Année Mois Arrivée] = rAvCentre.[Drv Année Mois]) AND (rSortie.[T Desc Site Départ] = rAvCentre.[Drv Desc Facturé Potentiel 1])"
    sql = sql & " WHERE (((rSortie.[T Desc Site Départ])= '" & sFiltre & "'));"
 
    Me.[KPI - Avarie Centre sous-formulaire].Form.RecordSource = sql
 
 
End Sub

[hyperion13]

Et pourquoi ne pas utiliser rowsource ?

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstKPI_AVCentre_AfterUpdate()
Dim sFiltre As String
sFiltre = Me.lstCentre.Value
Graphe_KPI_AvCentre.RowSource = "SELECT rSortie.[T Desc Site Départ] AS Centre, rSortie.[T Année Mois Arrivée] AS Periode, rSortie.[Nb Vin], rAvCentre.[SommeDeNb Avaries (OR)], rAvCentre.SommeDeCouts, Round(1000*([SommeDeNb Avaries (OR)]/[Nb Vin]),2) AS Tx, Round(([SommeDeCouts]/[Nb Vin]),2) AS CoutVeh, Round(([SommeDeCouts]/[SommeDeNb Avaries (OR)]),2) AS CoutM " & _
                                "FROM rSortie LEFT JOIN rAvCentre ON (rSortie.[T Année Mois Arrivée] = rAvCentre.[Drv Année Mois]) AND (rSortie.[T Desc Site Départ] = rAvCentre.[Drv Desc Facturé Potentiel 1]) " & _
                                "WHERE (((rSortie.[T Desc Site Départ])= '" & sFiltre & "'));"
Graphe_KPI_AvCentre.Requery
End Sub

[Gabrieel]

Bonjour,

merci de ton retour et soutien

j'ai essayé sans succès . voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub lstKPI_AVCentre_AfterUpdate()
 
   Dim sFiltre, sql As String
    sFiltre = Me.lstKPI_AVCentre.Value
 
    sql = "SELECT rSortie.[T Desc Site Départ] AS Centre, rSortie.[T Année Mois Arrivée] AS Periode, rSortie.[Nb Vin], rAvCentre.[SommeDeNb Avaries (OR)], rAvCentre.SommeDeCouts, Round(1000*([SommeDeNb Avaries (OR)]/[Nb Vin]),2) AS Tx, Round(([SommeDeCouts]/[Nb Vin]),2) AS CoutVeh, Round(([SommeDeCouts]/[SommeDeNb Avaries (OR)]),2) AS CoutM "
    sql = sql & "FROM rSortie LEFT JOIN rAvCentre ON (rSortie.[T Desc Site Départ] = rAvCentre.[Drv Desc Facturé Potentiel 1]) AND (rSortie.[T Année Mois Arrivée] = rAvCentre.[Drv Année Mois]) "
    sql = sql & "WHERE (((rSortie.[T Desc Site Départ])='" & sFiltre & "'));"
 
    Debug.Print sql
    Me.[Graphique62].Chart.RowSource = sql  
 
 
End Sub

[hyperion13]

Etonnant que la méthode donnée en post#4 ne fonctionne pas.

[Gabrieel]

Hello,

merci Hyperion merci pour la base jointe ça m'a permit de tester comme toi tu as fait et ça a marché. mon erreur c'est que j'ecrivait ça

Code :

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

 Me![Graphe_KPI_AvCentre].Chart.RowSource

au lieu de ça

Code :

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

 [Graphe_KPI_AvCentre].RowSource