forms

[Guest]

how would i go about altering the width and height of a form dynamically using code??

 

[Peter Kaufman]

This should get you going, but there are issues about what measurement
to use. The help system says it will be cm or inches, but when I
tried it, it looks like twips (1440 twips = 1 inch)


Function fnSize()
On Error GoTo procError
Dim Myform As Form
DoCmd.OpenForm "frmCritSalesDate", acDesign
Set Myform = Forms("frmCritSalesDate")
Myform.Width = 8000
DoCmd.Close acForm, Myform.Name, acSaveYes

procExit::
Set Myform = Nothing
Exit Function

procError:
MsgBox Err.Description
End Function

Peter