Need to shrink footer only

[kmclane]

I have tried a few things I found by searching, but cannot get them to work. I have two text boxes in a group footer and if one is empty, I don't want them shown, Plus I would like to recover the space. Here is what I have so far:

If IsNull(Me.Notes1) Then
Me.Notes.Visible = False
Me.Notes1.Visible = False
Me.Notes = ""
Me.Notes.Height = 0
Me.Notes1.Height = 0
Else
Me.Notes.Visible = True
Me.Notes1.Visible = True
Me.Notes = "Notes"
Me.Notes.Height = 0.1667
Me.Notes1.Height = 0.1667

I can make them invisible, but not shrink them to 0. I first tried this in the detail section, then moved them to a footer thinking it might work there. Now I think I can only make the footer visible or not by doing the same to the header, which I need in all cases. Any suggestions on how toaccomplish this?
Thanks, Ken

- If you are flammable and have legs, you are never blocking a fire exit.
Mitch Hedburg

 

[atray04]

try this:

Me.Notes.CanShrink = True
Me.Notes1.CanShrink = True

If that does not work then try shrinking your 2 text boxes vertically until they are only a hairline. And in the properties change CanShrink and CanGrow to True.

Hope that helps

-ATray