subreport control visibility

[bobh]

Hi All,

I'm having trouble figuring out the vba(AccessXP) for the following
issue;

I have a report which has a sub-report in the report footer section.
The sub-report has most of it's controls set to visible false. I want
to make some sub-report controls visible if the report name equals a
specific name and other sub-report controls visible if the report name
equals a different report name. The sub-report controls that get
toggled are in the sub-report reportheader section. I can't seem to
get the actual vba code for

I assume the vba code would go in the sub-report header 'on format'
section and would say

if the parent report name is "Blue" then
sub-report reportheader section controlname "Location" visible true
sub-report reportheader section controlname "Direction" visible true
elseif the parent report name is "Red" then
sub-report reportheader section controlname "Sit" visible true
sub-report reportheader section controlname "Section" visible true
end if

thanks
bobh.

[Salad]

bobh wrote:

Hi All,

I'm having trouble figuring out the vba(AccessXP) for the following
issue;

I have a report which has a sub-report in the report footer section.
The sub-report has most of it's controls set to visible false. I want
to make some sub-report controls visible if the report name equals a
specific name and other sub-report controls visible if the report name
equals a different report name. The sub-report controls that get
toggled are in the sub-report reportheader section. I can't seem to
get the actual vba code for

I assume the vba code would go in the sub-report header 'on format'
section and would say

if the parent report name is "Blue" then
sub-report reportheader section controlname "Location" visible true
sub-report reportheader section controlname "Direction" visible true
elseif the parent report name is "Red" then
sub-report reportheader section controlname "Sit" visible true
sub-report reportheader section controlname "Section" visible true
end if

thanks
bobh.

Hi Bob:

I went and created a couple of temp Reports. Put the Subreport with two
fields in the footer. Then in the OnOpen event I had the following code.

If Me.Parent.name <"Junk" Then
Me.CountField.Visible = False
Else
Me.SumFieldt.Visible = False
End If

Worked fine. It's funny tho, when I entered Parent. it didn't present
Name in the dropdown list. I forged ahead anyway without problems.

[bobh]

that worked..... thanks :)
bobh.

On Sep 27, 4:43 pm, Salad <[e-mail]:

bobh wrote:

Hi All,

I'm having trouble figuring out the vba(AccessXP) for the following
issue;

I have a report which has a sub-report in the report footer section.
The sub-report has most of it's controls set to visible false. I want
to make some sub-report controls visible if the report name equals a
specific name and other sub-report controls visible if the report name
equals a different report name. The sub-report controls that get
toggled are in the sub-report reportheader section. I can't seem to
get the actual vba code for

I assume the vba code would go in the sub-report header 'on format'
section and would say

if the parent report name is "Blue" then
sub-report reportheader section controlname "Location" visible true
sub-report reportheader section controlname "Direction" visible true
elseif the parent report name is "Red" then
sub-report reportheader section controlname "Sit" visible true
sub-report reportheader section controlname "Section" visible true
end if

thanks
bobh.

Hi Bob:

I went and created a couple of temp Reports. Put the Subreport with two
fields in the footer. Then in the OnOpen event I had the following code.

If Me.Parent.name <"Junk" Then
Me.CountField.Visible = False
Else
Me.SumFieldt.Visible = False
End If

Worked fine. It's funny tho, when I entered Parent. it didn't present
Name in the dropdown list. I forged ahead anyway without problems.- Hide quoted text -

- Show quoted text -