Enlarge the form

[aabbbcc]

Hi

I use th code of the following to maximize the form
but it doens't work.

______________________________
Private Sub Form_Activate()
On Error Resume Next
Application.DoCmd.RunCommand acCmdAppMaximize
End Sub
______________________________
Private Sub Form_Current()
Application.DoCmd.RunCommand acCmdAppMaximize
End Sub
____________________________________
Private Sub Form_Onload()
Application.DoCmd.RunCommand acCmdAppMaximize
End Sub
____________________________________

any wrong here???
from the attached pic,
I want the form to be maximized enough for more userfriendly.

 

[Pyro]

Try:

DoCmd.Maximize

 

[aabbbcc]

tried.
didnt work as well

 

[Pyro]

See my example from your other current thread, the onload event maximizes the form. Note it will not maximize to full screen unless you set the forms Pop up property to "Yes".

 

[aabbbcc]

ok . i got what u mean
but actually i want the form to be bigger,
not just the screen ..

 

[Pyro]

Try setting both the "Horizontal Anchor" and "Vertical Anchor" properties to "Both".

 

[aabbbcc]

not work still

 

[Pyro]

See my last attachment in your other thread.

 

[aabbbcc]

sad that it cant appear the result that I want
i want the word and all items zoom octomatically to fit the screen when readers open the form.

Is it possible?

 

[gemma-the-husky]

what about
runcommand accmdsizetofitform


I don't think a command will resize controls on an existing form, though.

 

[aabbbcc]

how about just zoom the the words and all items to the size that can be read more easily?

 

[gemma-the-husky]

try changing the screen resolution to 800 x 600, say.

 

[aabbbcc]

Where to set the screen solution then ??
Thanks a lot .

 

[arnelgp]

here is a sample of resizing controls.

 

[aabbbcc]

Thanks...

But could I do that without pop up function>?

 

[arnelgp]

you may try it with tabbed form.

 

[aabbbcc]

any sample?? THANKS