Conditionally display form control

Question

I know that one can use the visible or enabled properties to control whether or not to show/hide or enable/disable a control.

I was hoping there was a way to show/hide a control but in a way that when it would be visible it would "expand" under another control and when it is hidden in would "shrink".

I do not want to have a blank area left where the control is invisble... so would like to shrink/expand the control.  Can this be done?

Thank you,

QuestionBoy

Answer 1

It can be done by adjusting the form's InsideHeight property. (CanGrow/CanShrink only apply when the form is printed).  But before you can do that, you need to adjust the Top property of all the controls below the one you are hiding to move them up in the form.  And then, of course, you would need to be able to reverse that when you want to unhide the text box

Here's some air code (untested) that might give you an idea:

Const StandardCtrlHeight As Long = .1667 * 1440

Dim ctl As Control

For Each ctl In Me.Controls

   If ctl.Top > Me.DetachedGarageCost.Top _

   Then ctl.Top = ctl.Top - StandardCtrlHeight

Next ctl

Me.InsideHeight = Me.InsideHeight - StandardCtrlHeight

Answer 2

Using a standard Access 2007 textbox height of 315 twips, it should take about 2 seconds to reduce the height to zero if we introduce DoEvents.

'Modify the code like so:

Dim i As Integer

For i = Me!txtMyControl.Height To 0 Step -1

Me!txtMyControl.Height = i

DoEvents

Next i

"Marshall Barton [MVP]" wrote in message news:*** Email address is removed for privacy *** .com...

The computer is quicker than the eye.  ;-)

---

Regards, Graham R Seach Microsoft Access MVP Sydney, Australia

Answer 3

I've tried implementing your idea.  I set the form properties shrink and grow to True but the form does not shrink/grow based on the change in height of my controls???  ANy ideas???

    StandardCtrlHeight = inches2Twips(0.1667)

    If Me.DetachedGarage = True Then

        Me.DetachedGarageCost.Height = StandardCtrlHeight

        Me.Label1.Height = StandardCtrlHeight

    Else

        Me.DetachedGarageCost.Height = 0

        Me.Label1.Height = 0

    End If

    DoEvents

The control does shrink/grow, but the form does not ajust accoringly.  So if I put another control below the "shruken" control and it gets activated, it grows and goes behind the other control rather than the form extending.

Thank you,

QuestionBoy

Answer 4

The computer is quicker than the eye.  ;-)

Answer 5

Take a look at the Height property. You can create a loop that incrementally reduces/increases the control's Height.

Warning: Aircode - untested. It's just to give you the idea. You can also do it using the control's Top property.

Dim i As Integer

For i = Me!txtMyControl.Height To 0 Step -1

Me!txtMyControl.Height = i

Next i

"QuestionBoy" wrote in message news:*** Email address is removed for privacy *** .com...

I know that one can use the visible or enabled properties to control whether or not to show/hide or enable/disable a control.

I was hoping there was a way to show/hide a control but in a way that when it would be visible it would "expand" under another control and when it is hidden in would "shrink".

I do not want to have a blank area left where the control is invisble... so would like to shrink/expand the control.  Can this be done?

Thank you,

QuestionBoy

---

Regards, Graham R Seach Microsoft Access MVP Sydney, Australia