Discussion :

[moudden]

Bonjour CLAUDE;

je veux savoir l'erreur dans mon code suivant qui me permet de tracer un graphique depuis le choix d'une liste déroulante (Choix_SB):

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
 
Private Sub Choix_SB_AfterUpdate()
Dim strSQL As String
Dim strCategory As String
Me.Graphique0.Requery
 
  'Initialisation de la variable au contenu de la liste
strCategory = Me.Choix_SB
 
  'Initialisation de la chaîne SQL
 
strSQL = "SELECT tMesure2.Moment, tMesure2.Valeur, tEquipements.Equipement " & _
"FROM tEquipements INNER JOIN (tCapteurs INNER JOIN tMesure2 ON tCapteurs.tCapteurPK = tMesure2.tCapteurFK) ON tEquipements.tEquipementsPK = tCapteurs.tEquipementsFK " & _
"GROUP BY  tMesure2.Moment, tMesure2.Valeur, tEquipements.Equipement, tCapteurs.Capteur" & _
"HAVING (tCapteurs.Capteur Like '1312-FI-') AND (tEquipements.Equipement='" & strCategory & "');"
 
MsgBox strSQL
 
Me.Graphique0.RowSource = strSQL
Me.Graphique0.Requery
 
End Sub

Mon graphique (Graphique 0 et la liste déroulante) sont sur le mm formulaire, à l'exécution la variable strSQL contient le texte de programme !!

sous la propriété Données de graphique0, j'ai attribué la requête qui s'excute parfaitement tandis que le graphe reste vide!

[ClaudeLELOUP]

Bonjour,

Désolé, je ne peux malheureusement pas t'aider.

Espérons que quelqu'un d'autre prendra le relais.