Run-time error 1004

[Kirsti]

Hi, I have a Report with a Chart in it. The chart title is set via code.



This works perfectly when there is data in the chart, but if the chart doesn't contain data, I can't open the report to view the empty graph. Instead I get: Run-time error'1004': Unable to set the Text property of the ChartTitle class.

Is anyone familiar with this and/or know how to handle it?

Thanks,
Kirsti

[June7]

In the code that sets the title need to verify there is data first. If not, skip the title edit.

[Kirsti]

Thanks June - could you please give me an example of what that code would look like?

[June7]

Try something like:

If Me.Graph74.ColumnCount > 0 Then
'some code here
End If

What event is the code in to set the title?

[Kirsti]

Thanks June, the code is set to the Detail_Format event.

[June7]

Okay, try my suggestion in there. Do you know the Format event executes only when report in NormalView (to printer) or PrintPreview?

[Kirsti]

Hi again, I didn't know that - thank you. That isn't a problem for this particular report but very helpful to know.

I have tried your suggestion, and don't have it working as yet. My code is:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Graph10.ColumnCount < 0 Then
MsgBox "No Data to Display"
Else
Me.Graph10.ChartTitle.Text = "MyReportTitle - " & Format(DateAdd("m", -1, Now()), "mmmm")
End If
End Sub

I am getting the same Run Time error with this code.

[June7]

Comment out the ChartTitle line and run. If don't get error then know something is wrong with that line. Do you want to provide project for analysis?

[Kirsti]

It is that line that is causing the Runtime error - however only when there is no data in the chart. I have that identical line in other reports where there is data, and it works perfectly.

[June7]

Just noticed you use <0. I doubt ColumnCount could ever be less than zero. It will be zero or greater. Step debug. My guess is the ChartTitle line is executing because ColumnCount is not <0. Your code must use =0. My example used >0 meaning run ChartTitle code only if there are columns. I did not know you wanted a message box.

[Kirsti]

You're right. I played around a lot and didn't get it working - hence the < 0 that I forgot to change back. But yes - when I put = 0 it opens correctly. I didn't want a messagebox, just had that in there for testing - I didn't realise you could have an If Then Else without a Then argument. But have just taken the messagebox line out of my code, and it is now exactly the way I want it.

Thanks once again, June!