CheckBox.Visible = False

[dawkirst]

Greetings.

I have a ComboBox and a CheckBox on my form.

The ComboBox gets its values from a table called Colors.

I want the CheckBox's Visible property to turn False when the ComboBox has a certain value.

This is the code I used:

Private Sub Product_AfterUpdate()
If Combo75.Value = "W/Blue" Then Stripe.Visible = False
End If
End Sub

Combo75 is my ComboBox; Stripe is my CheckBox. (Excuse my bad VB basics please )

Any ideas?

Thanks ahead!

 

[Bat17]

you will probably want to do it from the combobox afterupdate event., and call the combobox afterupdate from the Forms Current event so it updates it as you scroll through records.

If Combo75.Value = "W/Blue" Then
Stripe.Visible = False
else
Stripe.Visible = true
End If


HTH

Peter

 

[dawkirst]

Thanks, it worked.

However, I want the CheckBox's Visible property to turn False on four specific values (not only one.) The colors are W/Blue, W/Green, W/Brown, and W/Orange.

This code does not work. Only one color keeps toggling the Visible property:

Private Sub Combo75_BeforeUpdate(Cancel As Integer)

If Combo75.Value = "W/Green" Then
Stripe.Visible = False
Else
Stripe.Visible = True
End If

If Combo75.Value = "W/Blue" Then
Stripe.Visible = False
Else
Stripe.Visible = True
End If

If Combo75.Value = "W/Orange" Then
Stripe.Visible = False
Else
Stripe.Visible = True
End If

If Combo75.Value = "W/Brown" Then
Stripe.Visible = False
Else
Stripe.Visible = True
End If

End Sub

Neither this code. It gives me a mismatch error:

If Combo75.Value = "W/Green" Or "W/Blue" or "W/Brown" Or "W/Orange" Then
Stripe.Visible = False
Else
Stripe.Visible = True
End If

Can you help me here? Should I perhaps take out the "End If"s?

 

[Summerwind]

Try using a SELECT CASE clause with a Case Else for ircumstances where your checkbox is to stay visible


------------------------------------------------
Employ a teenager whilst he still knows everything

 

[Bat17]

try

Select Case Combo75.Value
Case "W/Green"
    Stripe.Visible = False
Case "W/Blue"
    Stripe.Visible = False
Case "W/Orange"
    Stripe.Visible = False
Case "W/Brown"
    Stripe.Visible = False
Case Else
    Stripe.Visible = True
End Select

Peter

 

[MarkK]

Or even...

Select Case Combo75.Value
  Case "W/Green", "W/Blue", "W/Orange", "W/Brown"
    Stripe.Visible = False
  Case Else
    Stripe.Visible = True
End Select

 

[Bat17]

Forgot you could list them!

Peter