Resize subform to fit Detail Section

[mycall]

Hi There,

Im having a bit of a problem tryin to get my subform to automatically stretch to the size of the detail section when the main form changes size.
I have set the autoresize on both the main and subforms along with the can grow/shrink settings.

I also tried some code which almost worked on the onload event on the main form.

Me.frm_subAssetEdit.Height = Me.Section(0).Height

This would resize the subform to the original height of the detail section when first opened however on resize no change would take place even with a .Refresh call.

Anyhelp is greatly appreaciated.

Mike

[Rabbit]

The size of the main form will never change unless you do it through code. If you are doing this through code then you'll want to put the subform resize code in the same place.

If you're talking about maximizing the window and resizing the window by using the mouse, this does not increase the size of the form, this only increases the size of the window. The size of the form remains the same regardless of the size of the window.

[MSeda]

you need to put the code in the form resize event.

[mycall]

>If you're talking about maximizing the window and resizing the window by
>using the mouse, this does not increase the size of the form, this only
>increases the size of the window. The size of the form remains the same
>regardless of the size of the window.

Yes this is what im refering too.

What is happening is that when i open the main form on computers with different resolutions the subform which takes up the entire space of my details section changes size. Whent he details sections changes size and becomes smaller the scroll bar on the side is then partly hidden and only the top arrow and half of the bar can be seen making it hard to scroll down the list of records in the subform.

[Rabbit]

The easiest solution is to develop on the lowest resolution that it will be used on.

[MSeda]

If you need to adjust for different screen sizes and resolution you can reference WindowWidth and WindowHeight.

This is just a sample of some code to format a form containing a tab control and some images. It takes a little trail and error to get the proportions right. But as you can see the code is very simple.

Private Sub Form_Open(Cancel As Integer)
Dim img As Object
 
DoCmd.Maximize
Me.Form.Width = Me.WindowWidth
Me.Label9.Left = (Me.Form.Width - Me.Label9.Width) / 2    'center the label
Me.Label10.Left = (Me.Form.Width - Me.Label10.Width) / 2    'center the label
Me.TabCtl15.Width = Me.Form.Width * 0.98
Me.Detail.Height = Me.WindowHeight * 0.86
Me.TabCtl15.Height = Me.Detail.Height * 0.98
For Each img In Me.Controls
If TypeOf img Is Image Then
img.Width = Me.TabCtl15.Width * 0.975
img.Height = Me.TabCtl15.Height * 0.925
End If
Next
 
End Sub

the resize event I mentioned would be used to reformat the form if the user resizes it after opening it either by dragging the borders or using the control box.