Dynamic footer height no changing

[Paul Wagner]

Based on a footer code, I'm trying to shrink vertical heights, but the code below just doesn't want to listen. Any ideas?

If BudgetCategoryReportOrder = 4 Or BudgetCategoryReportOrder = 5 Then
Me.txtBCROSubtotal.Visible = False
Me.BudgetCategoryDescription.Visible = False
Me.txtAmtCol0Subtotal.Visible = False
Me.txtAmtCol1Subtotal.Visible = False
Me.txtAmtCol2Subtotal.Visible = False
Me.txtAmtCol3Subtotal.Visible = False
Me.txtBCROSubtotal.Height = 0
Me.BudgetCategoryDescription.Height = 0
Me.txtAmtCol0Subtotal.Height = 0
Me.txtAmtCol1Subtotal.Height = 0
Me.txtAmtCol2Subtotal.Height = 0
Me.txtAmtCol3Subtotal.Height = 0
Me.GroupFooter0.Height = 0.1
Me.Line128.Visible = False
Me.Line133.Visible = False
Me.Line137.Visible = False
Me.Line140.Visible = False
Else
Me.txtBCROSubtotal.Visible = True
Me.BudgetCategoryDescription.Visible = True
Me.txtAmtCol0Subtotal.Visible = True
Me.txtAmtCol1Subtotal.Visible = True
Me.txtAmtCol2Subtotal.Visible = True
Me.txtAmtCol3Subtotal.Visible = True
Me.Line128.Visible = True
Me.Line133.Visible = True
Me.Line137.Visible = True
Me.Line140.Visible = True
Me.GroupFooter0.Height = 0.54
Me.txtBCROSubtotal.Height = 0.125
Me.BudgetCategoryDescription.Height = 0.125
Me.txtAmtCol0Subtotal.Height = 0.125
Me.txtAmtCol1Subtotal.Height = 0.125
Me.txtAmtCol2Subtotal.Height = 0.125
Me.txtAmtCol3Subtotal.Height = 0.125

End If

 

[Paul Wagner]

Hi Pat:

By your statement "The control needs to be set to not visible", I'm assuming this statement in the code (assuming the same If/Else logic)
Me.GroupFooter0.Visible = False

All Headers have been set to Can shrink/Can grow.

"The detail section itself is set to yes". I've set the Visible, CanShrink and CanGrow all to Yes. Why is the detail area important?

<<And make sure that there is no overlap in the controls.>>
I don't understand what you mean by "overlap".

I've set these accordingly with no effect so I've missed something, likely in the "overlap" arena.

 

[Paul Wagner]

I don't think this works. I created a small test report with one break on category, one field showing in that break, changed the CanShrink and CanGrow both to yes and in the code inserted this:

Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
If txtBCC = "HA" Then
Me.txtBCC.Visible = False
Else
Me.txtBCC.Visible = True
End If

End Sub

It did hide the field but did NOT shrink the height. Any other ideas?