Controling form sizes

[ghudson]

And that could not be any easier using the InsideHeight & InsideWidth commands...

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
    
    'just for testing
    MsgBox "InsideHeight = " & InsideHeight & vbCrLf & vbLf & "InsideWidth = " & InsideWidth
    
    InsideHeight = 5450 'twips is the unit of measurement
    InsideWidth = 7870
    
Exit_Form_Open:
    Exit Sub
    
Err_Form_Open:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Form_Open
    
End Sub

 

[supercharge]

And that could not be any easier using the InsideHeight & InsideWidth commands...

No, ghudson, that will not work either. I tried it by maximize the database window first, then double clicked on the form to open it and no matter what sizes you set, it'll be maximized anyway.

 

[ghudson]

All you have to do is add the DoCmd.Restore command to the end of the code. I just tested this and it does reset the form size. You have to close and save the changes to all forms involved with the process.

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
    
    'just for testing
    MsgBox "InsideHeight = " & InsideHeight & vbCrLf & vbLf & "InsideWidth = " & InsideWidth
    
    InsideHeight = 5450 'twips is the unit of measurement
    InsideWidth = 7870
    [COLOR=Blue]DoCmd.Restore[/COLOR]
    
Exit_Form_Open:
    Exit Sub
    
Err_Form_Open:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Form_Open
    
End Sub

 

[NewfieSarah]

supercharge has hit it on the nail, with exactaly what I need. Thanks for all the help ghudson.

 

[darylm]

I used the code ghudson suggested with the DoCmd.Restore line in it, and it works for me (the message box feature is really useful by the way). I'm opening my forms from a switchboard however - not sure if that makes a difference. There was a small "side effect"; when the code resizes my form, it also "unmaximizes" my switchboard in the back ground. The best I could come up with in answer to this was to run a maximize macro on the close event of the form.

 

[sonofben]

I am using ghudson's code and it works like a charm. It is possibly the event procedure you plunk the code into which is causing grief. I tried the form's Activate event, and now the form stays the way I want it to. thanks ghudson!

 

[pervezjee]

Searching the forum is a great way to discover and learn the answers to your Access programming questions.

Here is how I set [force] the size of my forms...

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open
    
    'just for testing
    MsgBox "InsideHeight = " & InsideHeight & vbCrLf & vbLf & "InsideWidth = " & InsideWidth
    
    InsideHeight = 5450 'twips is the unit of measurement
    InsideWidth = 7870
    
Exit_Form_Open:
    Exit Sub
    
Err_Form_Open:
    MsgBox Err.Number & " - " & Err.Description
    Resume Exit_Form_Open
    
End Sub

Thanks but it does not work with me

 

[Gasman]

Thanks but it does not work with me

You have to select Overlapping Windows in the database options. It will not work with Tabbed documents.