ACCESS FEED: Re:RE: [MS_AccessPros] How to grow or shrink subform according to the number of records?

Kamis, 24 September 2015

Re:RE: [MS_AccessPros] How to grow or shrink subform according to the number of records?

Graham-

Thanks a lot. I am going try it today.

Regards,

Kevin

发自我的小米手机

在 "'Graham Mandeno' graham@mandeno.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com>，2015年9月25日上午8:11写道：

Hi Kevin
To accommodate all the records in a continuous form, the form's height should be at least:
<height of header> + <height of footer> + (<height. of detail> x <number of records>)
In VBA, for a subform, this would translate to:
Dim lRequiredHeight As Long
With Me.SubformControlName
    With .Form
        lRequiredHeight = .Section(acHeader).Height + .Section(acFooter).Height + .Section(acDetail).Height * .Recordset.RecordCount
    End With
    .Height = lRequiredHeight
End With
Be careful though, because the height of the section on your main form that contains the subform control must be sufficient to contain the newly sized control, otherwise an error will occur.
It would probably be better to anchor the subform to the top and bottom of your main form so that it resizes automatically. Then you can change the height (Me.InsideHeight) of your main form to suit, or just allow the user to resize it with the mouse.
All the best!
Graham [Access MVP since 1996]
From: MS_Access_Professionals@yahoogroups.com [mailto:MS_Access_Professionals@yahoogroups.com]
Sent: Friday, 25 September 2015 02:06
To: MS_Access_Professionals <ms_access_professionals@yahoogroups.com>
Subject: [MS_AccessPros] How to grow or shrink subform according to the number of records?

Dear All,
Can anybody teach me how to grow or shrink a subform according to its number of records? Thanks in advance.
Regards,
Kevin