Shrink empty subform

[Ellen]

Hello,
I have a form with three subforms. Is it possible to make
the subform disappear if it doesn't contain any
information? I have selected "yes" at the "can shrink"
properties' option, but it doesn't seem to give the
desired end.

Thank you in advance,
Ellen

 

[Reggie]

As seen on the Access Web (http://www.mvps.org/access/forms/frm0029.htm)

Place this on the OnCurrent event of the main form.
Private Sub Form_Current()
With Me![SubformName].Form
.Visible = (.RecordsetClone.RecordCount > 0)
End With
End Sub