Discussion :

[dodo28]

Bonjour,
Je suis un utilisateur débutant sur access.
Pourriez vous m'aider sur ce probléme?
Voici mon probléme :
sur un formulaire (Li_Graph_Ug) j'ai insatallé un graphique (Ug_Graph), je voudrais qu'il se modifie aprés une selection dans une liste (List_UG_IKA_Graph).

Suite à une requete (re_Ika_ug) j'ai creer un graphique dynamique qui me convient. j'ai donc recupéré le SQl et fait ce 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
15
16
17
18
19
20
21
Private Sub List_UG_IKA_Graph_AfterUpdate()
Dim strSQL As String
Dim strCategory As String
 
  'Initialisation de la variable au contenu de la liste
  strCategory = Me!List_UG_IKA_Graph.Text
 
  'Initialisation de la chaîne SQL
  strSQL = "SELECT Table_ika_Resultat.saison, table_codeika.UG_PRINCIPALE, Sum(Table_ika_Resultat.lievre_p1) AS SommeDelievre_p1, Sum(Table_ika_Resultat.lievre_p2) AS SommeDelievre_p2, Sum(table_codeika.Longueur) AS SommeDeLongueur, ([SommeDelievre_p1]+[SommeDelievre_p2])/(2*([SommeDeLongueur]/1000)) AS Expr1 " & _
"FROM Table_ika_Resultat LEFT JOIN table_codeika ON Table_ika_Resultat.codebarre = table_codeika.code " & _
"GROUP Table_ika_Resultat.saison, table_codeika.UG_PRINCIPALE "
 
  'Initialisation de la condition WHERE avec la catégorie
  strSQL = strSQL & vbCrLf & "HAVING ((([table_codeika.UG_PRINCIPALE])=" & Chr(34) & _
  strCategory & Chr(34) & "));"
 
  'Affectation de la nouvelle source et mise à jour de graphique
  Ug_Graph.RowSource = strSQL
  Me.Ug_Graph.Requery
 
End Sub

avec ceci mon graphique reste vide.
Pouvez vous m'aider, attention je debute merci pour votre aide et en esperant avoir été assez precis.

[dodo28]

re,
J'ai un peu evolué dans le code, je l'ai modifié ainsi :

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
Private Sub List_UG_IKA_Graph_AfterUpdate()
 
Dim strSQL As String
Dim strCategory As String
 
  'Initialisation de la variable au contenu de la liste
 strCategory = Me!List_UG_IKA_Graph
 
  'Initialisation de la chaîne SQL
 strSQL = "SELECT Table_ika_Resultat.saison, table_codeika.UG_PRINCIPALE, Sum(Table_ika_Resultat.lievre_p1) AS SommeDelievre_p1, Sum(Table_ika_Resultat.lievre_p2) AS SommeDelievre_p2, Sum(table_codeika.Longueur) AS SommeDeLongueur, ([SommeDelievre_p1]+[SommeDelievre_p2])/(2*([SommeDeLongueur]/1000)) AS Expr1 " & _
"FROM Table_ika_Resultat LEFT JOIN table_codeika ON Table_ika_Resultat.codebarre = table_codeika.code " & _
"GROUP Table_ika_Resultat.saison, table_codeika.UG_PRINCIPALE " & _
"HAVING ((([table_codeika.UG_PRINCIPALE])= '" & strCategory & "';"
 
 
  'Affectation de la nouvelle source et mise à jour de graphique
Me!Ug_Graph.RowSource = strSQL
 Me.Ug_Graph.Requery
 
End Sub

Avec celui ci, quand je demarre le formulaire access me demande d' "entrer une valeur de parametre " et quand je renseigne ce parametre ca marche Mais voila quand je reselectionne un autre parametre dans la liste le graphique devient blanc

Pouvez vous m'aider? merci