Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Forms resizing in Access 2007

Status
Not open for further replies.

addy

Technical User
May 18, 2001
743
GB
Hi

I recently got upgraded to Office 2007 at work and I am having problems with my forms.

I have several forms which are set to a certain size. However, Access 2007 continuously resizes them to fit into the available window size.

Auto resize is set to No, Fit to Screen is set to no and Border Style is set to Dialog.

Is there any way I can stop Access 2007 resizing my forms? It's driving me mad.
 
Though I haven't used Access2007..

I think Access 2007 can have MDI interface and Tabs
Tabs style will resize the forms to full screen.

________________________________________________________
Zameer Abdulla
Help to find Missing people
 
Hi addy,

I'm not sure if this is relevant, but you may have a look at Height and Width (and/or Insideheight) properties of your forms.

In access2007 help they give this procedure to resize a form; you could use it on dblclick event for instance; I put it here for info:


Code:
Sub ResetWindowSize(frm As Form)
    Dim intWindowHeight As Integer
    Dim intWindowWidth As Integer
    Dim intTotalFormHeight As Integer
    Dim intTotalFormWidth As Integer
    Dim intHeightHeader As Integer
    Dim intHeightDetail As Integer
    Dim intHeightFooter As Integer

    ' Determine form's height.
    intHeightHeader = frm.Section(acHeader).Height
    intHeightDetail = frm.Section(acDetail).Height
    intHeightFooter = frm.Section(acFooter).Height
    intTotalFormHeight = intHeightHeader _
        + intHeightDetail + intHeightFooter
    ' Determine form's width.
    intTotalFormWidth = frm.Width
    ' Determine window's height and width.
    intWindowHeight = frm.InsideHeight
    intWindowWidth = frm.InsideWidth

    If intWindowWidth <> intTotalFormWidth Then
        frm.InsideWidth = intTotalFormWidth
    End If
    If intWindowHeight <> intTotalFormHeight Then
        frm.InsideHeight = intTotalFormHeight
    End If
End Sub



let me know if it works! :p I may need it one day, autosizing is indeed a bit heavy..

Jonath.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top