Dynamically placed text boxes

[rstainbrook]

Hello,

Is there a way to have textbox placement be dynamic depending on the visibility of another textbox? For example, I'm creating a form where people enter time. There's a field for each day of the month but I don't want to display weekend days. I also don't want a gap on the form for the days that are being hidden. I'd like to have the visible day fields all next to each other.

So basically I want to
* make a field invisible if the day of the week that it corresponds to is a Sat or Sun
* move the visible Mon-Fri fields next to each other
* Have this be dynamic as of course the calendar changes each month.

Any ideas out there would be appreciated.

Thanks!

[ADezii]

You can dynamically and precisely position Text Boxes on a Form by manipulating their Left, Top, Width, and Height Properties. In the sample code I created, 4 Text Boxes (txtBox1, txtBox2, txtBox3, and txtBox4), three of which are dynamically and precisely positioned below txtBox1. They are also aligned Left with txtBox1, and all have a 1/8" Spaced between them vertically. It would only be a simple matter to create the logic which would now control their positioning. Be advised that the newly created positions of these Text Boxes will not persist and they will revert to their original positions when the Form opens again. Hope this helps.
P.S. Download the Attachment to see the simple demo that I created.

Dim T1 As TextBox
Dim T2 As TextBox
Dim T3 As TextBox
Dim T4 As TextBox
Const conSpacerInTwips As Integer = 180
 
Set T1 = Me![txtBox1]
Set T2 = Me![txtBox2]
Set T3 = Me![txtBox3]
Set T4 = Me![txtBox4]
 
'Position txtBox2 below txtBox1, aligned Left with 1/8" Spacer
T2.Left = T1.Left
T2.Top = T1.Top + T1.Height + conSpacerInTwips
 
'Position txtBox3 below txtBox2, aligned Left with 1/8" Spacer
T3.Left = T1.Left
T3.Top = T2.Top + T2.Height + conSpacerInTwips
 
'Position txtBox4 below txtBox3, aligned Left with 1/8" Spacer
T4.Left = T1.Left
T4.Top = T3.Top + T3.Height + conSpacerInTwips