Urgent: Unable to change the RowSource property in a chart object through macro ot code.

Hi everybody,

In my database, I produce a report with charts. These charts are not to be based on records in a table but on calculated controls on the report itself.
To do that, I want to be able to change the rowsource property through either a macro or some code started when the report is open. (note: the Rowsourcetype is set to Value List and column count to 4.) It seems simple yet it does not work!

Both when I use a macro (SetValue) or the code below, I receive the following error message: “Run-time error ‘2455’: you entered an expression that has an invalid reference to the property RowSource.”

However, when I use the same code in a form, it works fine. Should I understand that what is true for a form in not true for a report. Or is there a way to solve this issue?

Thanks.

Arnaud


Private Sub Report_Open(Cancel As Integer)
    Dim Chartsource As String
    Chartsource = "Road ; Paved ; Maintainable ;  Maintained ;  Country ; .95 ; .50 ; .25 ; Region ; .10 ; .45 ; .35"
    Me!Network_condition_graph.RowSource = Chartsource
End Sub
desmarchAsked:
Who is Participating?
 
xtrahandsCommented:
I'm pretty sure that the rowsource cannot be changed at runtime.  Instead you need to open the report in design view change the rowsource and then open the report in preview/print mode.  E.g.

Sub chnggraph()

Dim Chartsource As String
Dim rpt As Report

 
DoCmd.OpenReport "Report1", acViewDesign
Set rpt = Reports("Report1")
Chartsource = "Road ; Paved ; Maintainable ;  Maintained ;  Country ; 0.95 ; .50 ; .25 ; Region ; .10 ; .45 ; .35"
rpt!Network_condition_graph.RowSource = Chartsource

Set rpt = Nothing
DoCmd.OpenReport "Report1", acViewPreview

End Sub
0
 
nico5038Commented:
for desmarch

No comment has been added for the last two months.
So it's time to clean up this TA.
I will leave a recommendation in Community Support that this question is:
 - PAQ'd and pts removed
Please leave any comments here within the
next seven days.

PLEASE DO NOT ACCEPT THIS COMMENT AS AN ANSWER !

Nic;o)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.