Enabling Disabling Combo Boxes from Values

[vdanelia]

Hello Dear friends, I have a question about Enabling Disabling Combo Boxes From 1 Combo Box Value.

I have 1 combo box [Warrtype] with values "Nowarranty, Year, Month, Day" I also have
1 Text Box [Warranty]
1 Text Box - Date/Time [Warroff]

I disabled both of the text boxes from the property sheet to disable.

If I choose from combo box the values "Year, Month, Days" the disabled combo boxes must be enabled, if i choose from combo box value "Nowarranty" all the text boxes must be locked again:
I did something like, but not working correctly....
I set the event procedure on combo box onEnter:

Select Case Me.WARRTYPE
Case "Year"
Case "Month"
Case "Day"
Me.Warranty.Enabled = True
Me.Warroff.Enabled = True
Case "Nowarranty"
Me.Warranty.Enabled = false
Me.Warroff.Enabled = false
End Select

Please correct my mistakes or suggest the best variant...

Thank you in advanced

 

[Mr. B]

Try the following code in the AfterUpdate event of your combo box:

If Me.WARRTYPE = "Nowarranty"
     Me.Warranty.Enabled = False
     Me.Warroff.Enabled = False
Else
     Me.Warranty.Enabled = True
     Me.Warroff.Enabled = True
End If

 

[vdanelia]

It says error: In the editor it's red

 

[missinglinq]

As to your code

Select Case Me.WARRTYPE
Case "Year"
Case "Month"
Case "Day"
Me.Warranty.Enabled = True
Me.Warroff.Enabled = True

needs to be

Select Case Me.WARRTYPE
Case "Year", "Month", "Day"
Me.Warranty.Enabled = True
Me.Warroff.Enabled = True

Linq ;0)>

 

[Mr. B]

Is one of the lines highlighted? If so, which one.

You might try Missinglinq's suggestion.

 

[vdanelia]

"If Me.WARRTYPE = "Nowarranty" is highlighted in red

 

[Mr. B]

This makes it seem as though the value return by your combo box is not "Nowarranty".

Did you try Missinglinq's suggestion to see if it will work?

 

[vdanelia]

I don't know what is it, how to do that?

 

[Mr. B]

Can you post you database here so I can see how to try to help you?

 

[vdanelia]

Here it is
Thanks

 

[Mr. B]

I have attached a modified version of your file. I have fixed your combo box and it now enables or disables the text box controls.

Have a look at the code in the AfterUpdate event of the combo box.

I have some notes there to explain some of the changes I made.

 

[vdanelia]

Mr. B

Thank you very much, Perfect