<div>
Hi tbsgadi,<br />
<br />
Create a new button on the form and add some code like this:<br />
<br />
Private Sub Command0_Click()<br />
&nbsp; &nbsp; On Error Resume Next<br />
&nbsp; &nbsp; Me.FormFooter.Visible = True<br />
&nbsp; &nbsp; RunCommand acCmdSizeToFitForm<br />
End Sub<br />
<br />
Alan :)<br />

</div>


Hi tbsgadi,

Create a new button on the form and add some code like this:

Private Sub Command0_Click()
    On Error Resume Next
    Me.FormFooter.Visible = True
    RunCommand acCmdSizeToFitForm
End Sub

Alan :)


<div>
Thanks ..all I needed was the<br />
&nbsp; DoCmd.RunCommand acCmdSizeToFitForm<br />
<br />
Sorry Alan Robert said it first!<br />

</div>


Thanks ..all I needed was the
  DoCmd.RunCommand acCmdSizeToFitForm

Sorry Alan Robert said it first!


<div>
Thats OK, glad you got it working!<br />
<br />
How about making it a toggle button<br />
<br />
&nbsp; &nbsp; On Error Resume Next<br />
&nbsp; &nbsp; ' toggle show/hide footer<br />
&nbsp; &nbsp; Me.FormFooter.Visible = Not Me.FormFooter.Visible<br />
&nbsp; &nbsp; RunCommand acCmdSizeToFitForm<br />
<br />
Alan :)<br />

</div>


Thats OK, glad you got it working!

How about making it a toggle button

    On Error Resume Next
    ' toggle show/hide footer
    Me.FormFooter.Visible = Not Me.FormFooter.Visible
    RunCommand acCmdSizeToFitForm

Alan :)


<div>
Thanks for you suggestion Alan,but it's only one way.<br />
I press the button after Stage one &amp;&nbsp;move to Stage 2
</div>


Thanks for you suggestion Alan,but it's only one way.
I press the button after Stage one & move to Stage 2

<div>
<div class="content wysiwyg-content">
Hi Experts,<br />
<br />
This sounds simple but how's it done?<br />
How do I resize a form opened in code with <br />
DoCmd.OpenForm &quot;Formname&quot;, , , , , acDialog<br />
<br />
I have a formFooter that's invisible.<br />
Iwant to press a button on the form &amp;&nbsp;make the footer visible + resize.<br />
<br />
I have to use acDialog.<br />
<br />
<br />
<br />
<br />

</div>
</div>


Hi Experts,

This sounds simple but how's it done?
How do I resize a form opened in code with 
DoCmd.OpenForm "Formname", , , , , acDialog

I have a formFooter that's invisible.
Iwant to press a button on the form & make the footer visible + resize.

I have to use acDialog.






Resize a form opened with acDialog

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.