Conditional display of subreport

F

FergusonH

Hi! I found some posting but can't quite get this to work (I'm a vba novice
so please bear with me).

I have a report (ReportA) with a subreport (SubA). I'm trying to SubA to
display only when the sum of amounts (control name: Text1) is greater than
0.00.

The subreport is in the detail section of ReportA. There are other
subreports too.

I'm trying to use the "Me.subreportcontrol.visible = (text1 >0)" but I'm
getting errors - do I put this code in the subreport or in the main report?

thanks!
 
A

Al Campagna

FergusonH,
A very basic method is to Use the OnFormat event
for the Report A's Detail Section.

If Text1 > 0 Then
Me.SubreportControl.Visible = True
Else
Me.SubreportControl.Visible = False
End If
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."
 
M

Marshall Barton

FergusonH said:
Hi! I found some posting but can't quite get this to work (I'm a vba novice
so please bear with me).

I have a report (ReportA) with a subreport (SubA). I'm trying to SubA to
display only when the sum of amounts (control name: Text1) is greater than
0.00.

The subreport is in the detail section of ReportA. There are other
subreports too.

I'm trying to use the "Me.subreportcontrol.visible = (text1 >0)" but I'm
getting errors - do I put this code in the subreport or in the main report?


If Text1 (a very poor name) is in the subreport's header or
footer section and has an expression that totals the
subreport amounts (e.g. =Sum(amount)), then the code in the
main report detail section's Format event could be:

Me.SubA.Visible = (Me.SubA.Report.Text1 > 0)

Make sure the main report detail section and the SubA
subreport **control** has its CanShrink property set to Yes.
 
F

FergusonH

Hi Al,

I'm sure it's user error but I can't get this to work.

In the main report, in the detail section, I clicked on properties, event,
on format...I used the code builder option and added the below:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Text14 > 0 Then
Me.subreportcontrol.Visible = True
Else
Me.subreportcontrol.Visible = False
End If

End Sub

I'm getting "Compile error: method or data member not found"

I tried swapping "subreportcontrol" with my sub report control name, but I'm
still getting an error.
 
F

FergusonH

Thank you! This worked!!!

I now have a blank page - because I put page breaks in the detail section of
the main report around each subreport.

Are there any quick fixes to that? Should I take the page breaks out of the
detail of main report and just put page breaks in the sub reports?

thanks!
 
F

FergusonH

Thank you Al, it was user error - I found the problem and fixed, my real
subreport has spaces and underscores in the name , so i had to put brackets
around it.
 
M

Marshall Barton

FergusonH said:
Thank you! This worked!!!

I now have a blank page - because I put page breaks in the detail section of
the main report around each subreport.

Are there any quick fixes to that? Should I take the page breaks out of the
detail of main report and just put page breaks in the sub reports?


PageBreak does nothing in a subreport so that won't solve
anything.

You can use a little more code in the main report's Format
event to turn a main report page break on or off when a
subreport does not have any data:

Me.pgBreak1.Visible = (Me.SubA.Report.Text1 > 0)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top