Resizing master form when subform resizes

[Lukael]

Hi,

I have code that dynamically resizes subforms according to records in It, and moves all controls above/below subforms.

Now I want to resize master form too, when records are added or deleted in subforms, dynamically.



What I've been trying so far is to set .InsideHeight of master form to .Top property of last control below subform (near footer of form).

Code works, but only with control's .Top property in design view. That's no use to me, since all controls are moved dynamically according to subform records, so controls move after Load_event. There are other issues with code too.

Me.InsideHeight = [Combo1].Top + [Combo1].Height + 100

How can I make this working ?

[June7]

Why bother with this? This is why forms have scroll bars. Could there be so many records that the form sizes could exceed screen space?

If control's Top property can only be grabbed during Design View, that's the way it is. What else could you use to determine form size?

[Lukael]

Why bother with this? This is why forms have scroll bars. Could there be so many records that the form sizes could exceed screen space?

It's just a desired visual effect, scroll bars are not what I would like. So you think this can't be done other way?

[June7]

Seems to me would be a rather annoying visual effect. Not something I would ever do. Maybe the height of the subform could be grabbed and used to calculate main form height.

[Lukael]

It isn't anoying visual effect. I have 6 subforms that change their .InsideHeight according to their records. When all of them have about 3-4 records entered is master form very "filled" and user can't see all data, due to small form size.

However, If there are no records in subforms (like blank master record), and I design size of form so that It will fit all 3-4 records for each subform,...then form is very big and strange, since there is a lot of blank area.

[Lukael]

Here, look at this sample :

open TblName, there you'll see combobox for field "Surname" - this is a subform. Select another value from combobox in blank combo under "Deere", and then another value. You'll notice that control under subform is moving, but when It reaches bottom of form....take a look !

Now imagine that I have many subforms like this on same form, so size of form is drastically changing according to specific records.


EDIT: Sorry, change form size "TblName" to smaller, now It' s too big. Change It so that control under will be almost at bottom of form.

[June7]

Okay, see it, don't like it.

Seems to me could add so many records the form could get too large for screen display.

Your code still uses the Top property. Since we know that doesn't work, have you tried suggestion for using subform Height to calculate revised form size?

Another poster seems to be having similar issue https://www.accessforums.net/forms/s...7-a-57004.html

[CJ_London]

to resize a main form, use the me.move function to set its size and postion relative to the access window

https://msdn.microsoft.com/en-us/lib.../ff845906.aspx

[Lukael]

thanks for responses.

Not sure I can use any of your suggestions, at least not in easy way. My solution does not contain only one subform in form, but about seven....

So I need something that will resize form whenever a record is added/deleted in those subforms. I'm thinking about .Form.Move method based on each subform .insideheight, but can't figure how to create Loop for all subforms at once.

[Lukael]

found solution

Just had to resize form .InsideHeight in Activate_event:

Private Sub Form_Activate()
Forms![TblName].InsideHeight = Forms![TblName]![TblJoin].Top + Forms![TblName]![TblJoin].Form.InsideHeight + 2300
Call Refresh_Subform
End Sub

However, haven't tested fully in my DB, so I reckon there will be some issues when navigating records, and I will need a lot of coding for each subform.