Buongiorno,
questa mattina sono nello sconforto totale ...ieri il mio report funzionava oggi se sul LOAD del report metto questo codice il grafico risulta vuoto!! ieri invece funzionava
In particolare mi da "errore 2771 the bound or unbound object frame does not contain an ole object " sulla riga 104
ma soprattutto noto che pur avendo dichiarato gr as object se metto il punto dopo gr mi dovrebbe dare tutti i metodi e proprietà che invece non compaiono
Ho caricato anche le preference di "graph 15 object library"
Me.Text15 = Form_Table1.Text6
Dim rf As Axis
Dim gr As Object
104 Set gr = Me.Graph1.Object
gr.ChartTitle.Text = "prodotto"
d = DMax("[Avg Of prTS]", "primi unacolonna") + (DMax("[Avg Of prTS]", "primi unacolonna") * 5 / 100)
gr.Axes(xlValue).MaximumScale = d
gr.Axes(xlValue).MinimumScale = Int(DMin("[Avg Of prTS]", "primi unacolonna"))
'Exit Sub
Set gr17 = Me.Graph17.Object
If DMax("[mediaprTS]", "media data16car") >= DMax("[mediaofiats]", "media data16car") Then
d = DMax("[mediaprTS]", "media data16car") + (DMax("[mediaprTS]", "media data16car") * 5 / 100)
Else
d = DMax("[mediaofiats]", "media data16car") + (DMax("[mediaofiats]", "media data16car") * 5 / 100)
End If
If DMin("[mediaprTS]", "media data16car") >= DMin("[mediaofiats]", "media data16car") Then
mi = DMin("[mediaprTS]", "media data16car") + (DMin("[mediaprTS]", "media data16car") * 5 / 100)
Else
mi = DMin("[mediaofiats]", "media data16car") + (DMin("[mediaofiats]", "media data16car") * 5 / 100)
End If
gr17.Axes(xlValue).MaximumScale = d
gr17.Axes(xlValue).MinimumScale = Int(mi)