How to Lock Texboxes based on another Textbox value in a form

[skpanuganti]

Hi All -

In the form all texboxes(values) are populated based on the selection of a value from a combo box.Say for example, the combo box has values from 1 to 100 & there are few Textboxes txt1,txt2,txt3,txt4,txt5. The possible values for txt1 are X1,X2,Y1&Y2. i.e., whatever we select from a combo, txt1 value should be from one of those four values. Now my question is, how to lock other textboxes txt2,txt3,txt4 if txt1 value is either X1/X2 else unlock.



Many Thanks in Advance.

[June7]

Try in the AfterUpdate event of combobox something like:

Dim booVar As Boolean
booVar = (Me.txt1 = "X1" Or Me.txt1 = "X2")
Me.txt2.Locked = booVar
Me.txt3.Locked = booVar
Me.txt4.Locked = booVar

[skpanuganti]

Thanks June, its working. But i did a small change, instead of "AfterUpdate" event i inserted the code in "OnChange" event.

Thank you so much.