[AC-2007] Echelle graphique dans un état [Résolu]

[damalaan]

Bonjour,

J'ai un état avec des graphiques, or l'échelle a besoin d'être modifier, mais j'ai une erreur "membre de méthode ou données introuvable"

Code :

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
Dim mini As Variant
Dim maxi As Variant
Dim vlchart As Graph.chart
 
'mise à l'échelle MG
'recherche du minimum et maximum de la série mg
mini = DMin("val_mg", "qry_limite", "ctl_id=" & ctl_id)
maxi = DMax("val_mg", "qry_limite", "ctl_id=" & ctl_id)
 
If mini < (ctl_mgref - 0.5) Then
mini = mini - 0.1
Else
mini = (ctl_mgref - 0.6)
End If
 
If maxi > (ctl_mgref + 0.5) Then
maxi = maxi + 0.1
Else
maxi = (ctl_mgref + 0.6)
End If
 
Set vlchart = Me.graph_mg.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
 
'mise à l'échelle MP
'recherche du minimum et maximum de la série
mini = DMin("val_mp", "qry_limite", "ctl_id=" & ctl_id)
maxi = DMax("val_mp", "qry_limite", "ctl_id=" & ctl_id)
 
If mini < (ctl_mpref - 0.5) Then
mini = mini - 0.1
Else
mini = (ctl_mpref - 0.6)
End If
 
If maxi > (ctl_mpref + 0.5) Then
maxi = maxi + 0.1
Else
maxi = (ctl_mpref + 0.6)
End If
 
Set vlchart = Me.graph_mp.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
'mise à l'échelle cellules
'recherche du minimum et maximum de la série
mini = DMin("val_cell", "qry_limite", "ctl_id=" & ctl_id)
maxi = DMax("val_cell", "qry_limite", "ctl_id=" & ctl_id)
 
If mini < (ctl_cellref * 0.9) Then
mini = mini - 5
Else
mini = (ctl_cellref * 0.9 - 5)
End If
 
If maxi > (ctl_cellref * 1.1) Then
maxi = maxi + 5
Else
maxi = (ctl_cellref * 1.1 + 5)
End If
 
Set vlchart = Me.graph_cell.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
'mise à l'échelle fpd
'recherche du minimum et maximum de la série
mini = DMin("val_fpd", "qry_limite", "ctl_id=" & ctl_id)
maxi = DMax("val_fpd", "qry_limite", "ctl_id=" & ctl_id)
 
If mini < (ctl_fpdref - 5) Then
mini = mini - 1
Else
mini = (ctl_fpdref - 6)
End If
 
If maxi > (ctl_fpdref + 5) Then
maxi = maxi + 1
Else
maxi = (ctl_fpdref + 6)
End If
 
Set vlchart = Me.graph_fpd.Object.Application.chart
vlchart.Axes(2).MinimumScale = mini
vlchart.Axes(2).MaximumScale = maxi
 
End Sub

ce code marche très sur un formulaire mais dans un état, rien à faire!!

[lelensois16]

Bonjour,
Pourriez vous indiquer la ligne d'erreur ?
Cdt

[damalaan]

ça marche!!!

bon en fait, une erreur de débutant : mon graph était mal nommé!!