Auto Collapsing text box

[scottm0690]

I am looking for a way that will allow me to click on a text box and it auto expands out with more info and then will collapse when done. I have a form with a text box that has a short description on it. I want to be maybe click a "+" or something that will expand the box out so it will show a full description and then I press a "-" to collapse it back. Not sure all I would need to make this happen or even if it is possible. I tried the Controltips box but it is limited to 255 characters. Thanks,

[ranman256]

use a checkbox to expand:

sub chkExpand_afterupdate()
if chkExpand.value then 
  txtBox.width = 4000
  txtBox.width = 2000
else
  txtBox.width = 500
  txtBox.width = 100
endif
end sub

end sub

[scottm0690]

Thanks for the quick response, do I create a checkbox and then put the code in the on click event? Sorry to ask, I am new and trying to learn this. I have an existing text box that I wanted to do it on, if that is possible. Thanks,

[scottm0690]

This is kind of what I want to do. Or something like this.

Looks like this:


Then you press the + and it does this:


This is an old web app we have that is very minimal, but this is the last thing I need to get in my DB before moving on to reporting. Thanks,