I put the code in the both sections of the subreport. I have also attached a picture of the report screen.
Code:
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Me.subreportPerfIssuesIssueKeyP.Report.HasData Then
Me.subreportPerfIssuesIssueKeyP.Visible = True
Else
Me.subreportPerfIssuesIssueKeyP = False
End If
End Sub
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next
If Me.subreportPerfIssuesIssueKeyP.Report.HasData Then
Me.subreportPerfIssuesIssueKeyP.Visible = True
Else
Me.subreportPerfIssuesIssueKeyP = False
End If
End Sub