Note the spelling mistake:
Private Sub Report_Load()
If FundingStatus = "No Funding" Then
ProjectedFundEndDate.Visible = False
FundingStatus.Visible = True
ElseIf FundingStatus <> "No Funding" Then
FudningStatus.Visible = False
Else
ProjectFundedEndDate.Visible = True
End If
Try this in the Open event of the report:
Code:
If Me.FundingStatus = "No Funding" Then
Me.ProjectedFundEndDate.Visible = False
Me.FundingStatus.Visible = True
Else
Me.FundingStatus.Visible = False
Me.ProjectFundedEndDate.Visible = True
End If
This should work if your report only has one record, if multiple try to move the code to the Format event of the appropriate report section that hold the controls (any header or footer or the detail section).
Cheers,