Subform woes ...

[m.cringle]

Hi folks

I have a subform which spans the entire height of the main form. Only
problem is that I don't want it to!! I want to leave a space at the
bottom of the main form (directly underneath the subform), so I can put
the exit command button the same place as all the other forms.

I have tried to adjust the size of the subform but it makes no
difference in form view. I even tried deleting and inserting a new
version but had the same problem.

Are there any settings that I might have acccidentally applied?

Any ideas?

 

[Guest]

Hi

Open the main form in Form View (not design) move and resise the subform by
draging it around then press "Control S" - close the form and re-open.

Hope this helps

 

[m.cringle]

Hi

Open the main form in Form View (not design) move and resise the subform by
draging it around then press "Control S" - close the form and re-open.

Sorry, didn't explain myself very well! I have already tried this but
for some reason it refuses to change. It will let me change the size
while in design view but when going back into form view it remains the
same (changes remain in design view). I have even tried setting to
height property for the subform to 5cm but it still takes the full
screen in form view).

 

[Guest]

It sounds like there may be something on the subform - like a line or hidden
object off to the right of the form design. Trying dragging your mouse over
the "Blanc" areas of the form and see if you select anything.

 

[Guest]

Sorry forgot to add.

Open the form in design view and check that there is no code OnOpen / OnLoad
/ OnActivate, etc that would increase the size of the form

 

[m.cringle]

This is the offending code:

Private Sub Form_Resize()
Me.sfrmReports.Height = Me.InsideHeight - (Me.sfrmReports.Top + 100)
'Me.lblResize.Top = Me.InsideHeight - (Me.lblResize.Height + 200)
'Me.lblResize.Left = Me.InsideWidth - (Me.lblResize.Width + 200)
End Sub


Tried changing the numbers but nothing happened - any more ideas?

 

[m.cringle]

This is the offending code:

Private Sub Form_Resize()
Me.sfrmReports.Height = Me.InsideHeight - (Me.sfrmReports.Top + 100)
'Me.lblResize.Top = Me.InsideHeight - (Me.lblResize.Height + 200)
'Me.lblResize.Left = Me.InsideWidth - (Me.lblResize.Width + 200)
End Sub

Actually, don't worry. I have changed my design so it can stay how it
is (much easier!)

Thanks anyways