Change control height

[ct]

I want to expand the height to 1" on a list box when the
user tabs into the field(OnEnter,OnGotFocus?) and then
contract back to .2" when they leave the field. Is that
possible and can someone explain how to a VBA novice.
Thanks.

 

[fredg]

I want to expand the height to 1" on a list box when the
user tabs into the field(OnEnter,OnGotFocus?) and then
contract back to .2" when they leave the field. Is that
possible and can someone explain how to a VBA novice.
Thanks.

Access measurments are in Twips... 1440 per inch.

Code the List Box Enter event:
Me!ListBoxName.Height = 1440

Code the List Box Exit event:
Me!ListBoxName.Height = 0.2 * 1440

 

[ct]

Perfect. Thanks.

-----Original Message-----


Access measurments are in Twips... 1440 per inch.

Code the List Box Enter event:
Me!ListBoxName.Height = 1440

Code the List Box Exit event:
Me!ListBoxName.Height = 0.2 * 1440
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.
.