Conditional textbox format on Form

[foxhound]

Hello,

I have nine text boxes: box_Q1, box_quart1, box_Q2, box_quart2, box_Q3, box_quart3, box_Q4, box_quart4, box_quarter. I would like help to do the following...if box_quarter is "first" I would like box_Q1's background color to be yellow and box_quart1 to be raised with a solid, hairline border. All others' back color and border should be etched.

If box_quarter is "second" I would like box_Q2's background color to be yellow and box_quart2 to be raised with a solid, hairline border. All others' back color and border should be etched. Etc....

Whenever I change records in the form, I need to determine the new value of box_quarter and do the same. Any help offered would be greatly appreciated

 

[Dugantrain]

The best way to do this sort of thing is to write one Public Function in a Module and then Call that Function from different form-level events:

Public Function Format_Forms()
If Forms!Your_Form.Form!Box_Quarter="First" Then
'Code To Format Your TextBoxes goes here; look-up the Text Box's 'Properties to determine how to format them the way you want
Elseif Forms!Your_Form.Form!Box_Quarter="Second" Then
'Same Thing Here
End If
End Function

You would then call this function from Form-Level Events:

Form_Current()
'The Current event fires as you move from record to record
Call Format_Forms
End Sub

Box_Quarter_After_Update()
'The After_Update event would fire if you changed the text in the 'Box_Quarter Textbox
Call Format_Forms
End Sub

The idea is that you're sharing code throughout your application rather than reinventing the wheel.

 

[foxhound]

Worked great. Thank you