Discussion :

[mennick]

Bonjour,

J'ai un formulaire avec plusieurs onglets, dans un onglet qui se nomme statistiques j'ai un graphique qui se nomme graphique351.
mon formulaire se nomme accueilform.

J'aimerai lors du chargement du formulaire qu'il me charge une requête suivant la date, le problème n'est pas dans la requête mais dans le chargement du contrôle.
Ci-dessous, le code fonctionne car il est lié à un formulaire unique qui n'a rien à voir avec accueilform c'est un formulaire qui s'appelle statFam, mais avec des onglets je sèche.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
vGraph.pTitrePrincipal = Me.txttitre 'passe le titre à la propriété
  Dim sql As String
 
sql = "TRANSFORM Sum([debitop]) AS [SommeDedebitop] " & _
"select [libdeb] from ( " & _
"SELECT sf.libelle AS libdeb, debitop, format(dateop,'yyyy') AS [DATE] " & _
"FROM t_op AS op, t_ss_famille AS sf " & _
"WHERE op.id_ssfam=sf.id_ssfam and op.id_fam=sf.id_fam and debitOp is not null and debitop <> 0 And op.ID_FAM = '" & categorie & "' " & _
"GROUP BY sf.libelle, debitop, dateop) " & _
"group by [libdeb] " & _
"PIVOT [Date];"
 
 vGraph.Initialiser Me.graphique1 'initialise l'objet Chart   ''''Donc ici je veux faire appel à mon graphique lié à mon onglet.
    vGraph.pSql = sql 'passe la string sql à la propriété

Merci d'avance

[marot_r]

Bonjour.

Si il s'agit bien d'un contrôle onglet dans un formulaire, alors il peut être "invisible".
Les contrôles de l'onglet sont accessibles directement au niveau du formulaire, via leurs noms.
Donc ton code devrait marcher directement en précisant le nom de ton graphique.

A+

[mennick]

l'onglet se nomme statistique et fait parti du formulaire accueilform, le graphique est attaché au formulaire accueilform mais dans l'onglet statistiques




J'ai essayé pleins de choses mais rien n'y fait.

[marot_r]

Bonjour.

Peux-tu poster le code qui crée l'erreur ?

A+

[mennick]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim sql As String
 
sql = "TRANSFORM Sum([debitop]) AS SommeDedebitop " & _
"SELECT [libdeb] " & _
"FROM (SELECT f.libelle AS libdeb, debitop, format(dateop,'yyyy') AS [DATE] FROM t_op AS op, t_famille AS f " & _
"WHERE op.id_fam=f.id_fam And debitOp Is Not Null And debitop<>0  and dateop >=  #01/01/2018# GROUP BY f.libelle, debitop, dateop)  AS [%$##@_Alias] " & _
"GROUP BY [libdeb] " & _
"PIVOT [DATE];"
 
 
 
 vGraph.Initialiser Graphique351  
    vGraph.pSql = sql

[marot_r]

Bonjour.

L'erreur se produit sur vGraph.Initialiser j'imagine.

• Vérifie ce que vGraph est.
• Vérfie ce que Graphique351 est et si il est bien initialisé.

A+

[hyperion13]

Salut
Question : as-tu pensé à activer Microsoft Graph 1x.0 Object Library ?

[mennick]

Bonjour,

Merci pour vos réponses, en fait j'avais oublié de faire appel à la classe vgraph
Désolé pour le dérangement

[marot_r]

Bonjour.

Si tu considères le sujet clos, merci d'appuyer sur le bouton en bas de discussion.

A+