Set value for subreport on load or current-to prevent dispalying "#Error"

Question

I've got a Work Orders Report which I use to Print Production Copies for Operators.  This report uses a subreport to pass information about Purchase Orders to the Report and then I use "=[Reports]![WORK ORDERS REPORT]![AssociaterQuery subreport]![SIZE]"
to display the information in text boxes on my main report.  The problem is that sometimes customers supply their own raw material and there is no Purchase Order record, this causes "#Error" to be displayed in my text boxes, which can be confusing.
 I've got a "Customer Supplied Checkbox" to denote that the customer is supplying their own material.  So I'm trying to use an OnLoad event to set these values to an empty string, but I can't quite get it correct.  This is what I've
been trying so far, where am I going wrong?  
js
Private Sub Report_Load()
If Me.CustSupplied Is true Then
[Reports]![WORK ORDERS REPORT]![AssociaterQuery subreport]![Size] = ""
End If
End Sub

Answer 1

I've got a Work Orders Report which I use to Print Production Copies for Operators.  This report uses a subreport to pass information about Purchase Orders to the Report and then I use "=[Reports]![WORK ORDERS REPORT]![AssociaterQuery subreport]![SIZE]"
to display the information in text boxes on my main report.  The problem is that sometimes customers supply their own raw material and there is no Purchase Order record, this causes "#Error" to be displayed in my text boxes, which can be confusing.
 I've got a "Customer Supplied Checkbox" to denote that the customer is supplying their own material.  So I'm trying to use an OnLoad event to set these values to an empty string, but I can't quite get it correct.  This is what I've
been trying so far, where am I going wrong?  
js
Private Sub Report_Load()
If Me.CustSupplied Is true Then
[Reports]![WORK ORDERS REPORT]![AssociaterQuery subreport]![Size] = ""
End If
End Sub
Hi jswan,
If you say:   "=[Reports]![WORK ORDERS REPORT]![AssociaterQuery subreport]![SIZE]" to display the information in text boxes on my main report
then the text box GETS the information form the control SIZE.
In your case you can better use:
Private Sub Report_Load()
If Me.CustSupplied Is true Then
<text box> = ""
Else
<text box> = [Reports]![WORK ORDERS REPORT]![AssociaterQuery subreport]![Size]
End If
End Sub
Substitute for <text box> the real name of the text box.
Imb.