How do I set a text box value to 0 if there is no data in the sub.

[Guest]

I have a text box Sum_Of_unit_price text box in the sub report. I use this
text box value in my main report to calculate the total cost. When there is
no data in the sub report, my main report is showing as #Error.

I have this code

Private Sub Report_NoData(Cancel As Integer)
Sum_Of_unit_price = 0
End Sub

but this is not working. I would really appreciate if some one could help me.

Thanks

 

[Duane Hookom]

Use a control source in your text box on your main report like:
=IIf([subrptMySub].Report.HasData, [subrptMySub].Report.Sum_Of_Unit_Price,
0 )

 

[Allen Browne]

If there is no data in the subreport, the text box does not exist, and so
any attempt to refer to it results in #Error. You can avoid that by testing
the HasData property of the report in the subreport control

The ControlSource of the text box on the main report will be something like
this:
=IIf([Sub1].[Report].[HasData], Nz([Sub1].[Report].[Text1],0), 0)
where Sub1 is the name of the subreport control, and Text1 is the name of
the text box in the subreport.

 

[Guest]

Thank you for your help. This one solved my problem.

If there is no data in the subreport, the text box does not exist, and so
any attempt to refer to it results in #Error. You can avoid that by testing
the HasData property of the report in the subreport control

The ControlSource of the text box on the main report will be something like
this:
=IIf([Sub1].[Report].[HasData], Nz([Sub1].[Report].[Text1],0), 0)
where Sub1 is the name of the subreport control, and Text1 is the name of
the text box in the subreport.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

I have a text box Sum_Of_unit_price text box in the sub report. I use this
text box value in my main report to calculate the total cost. When there
is
no data in the sub report, my main report is showing as #Error.

I have this code

Private Sub Report_NoData(Cancel As Integer)
Sum_Of_unit_price = 0
End Sub

but this is not working. I would really appreciate if some one could help
me.

Thanks