if combobox.value is x then y problem

[DB73]

Hi all,

Maybe stupid question, but why is this not working
cant the combobox read the value as text ??

thanks in advance

Private Sub ComboBox2_Change()

    If (ComboBox2.value = "alleen rit registratie") Then
 
        'werklocatie
             ComboBox3.Enabled = False
             ComboBox3.value = "-"
             ComboBox3.BackColor = RGB(210, 210, 210)
        'BTW verlegd ja/nee
            ComboBox9.Enabled = False
            ComboBox9.value = "-"
            ComboBox9.BackColor = RGB(210, 210, 210)
             
    Else
        'project
             ComboBox3.Enabled = True
             ComboBox3.value = ""
             ComboBox3.BackColor = RGB(255, 255, 255)
        'BTW verlegd ja/nee
            ComboBox9.Enabled = True
            ComboBox9.value = ""
            ComboBox9.BackColor = RGB(255, 255, 255)
        
        End If
End Sub

 

[DanteAmor]

Are you sure the code goes in combobox2?
The text "alleen rit registratie" is correct?
Should it be lowercase?

Try this:

Private Sub ComboBox2_Change()
  If UCase(ComboBox2.Value) = UCase("alleen rit registratie") Then
    'werklocatie
    ComboBox3.Enabled = False
    ComboBox3.Value = "-"
    ComboBox3.BackColor = RGB(210, 210, 210)
    'BTW verlegd ja/nee
    ComboBox9.Enabled = False
    ComboBox9.Value = "-"
    ComboBox9.BackColor = RGB(210, 210, 210)
  Else
    'project
    ComboBox3.Enabled = True
    ComboBox3.Value = ""
    ComboBox3.BackColor = RGB(255, 255, 255)
    'BTW verlegd ja/nee
    ComboBox9.Enabled = True
    ComboBox9.Value = ""
    ComboBox9.BackColor = RGB(255, 255, 255)
  End If
End Sub

 

[DB73]

Are you sure the code goes in combobox2?
The text "alleen rit registratie" is correct?
Should it be lowercase?

Try this:

Private Sub ComboBox2_Change()
  If UCase(ComboBox2.Value) = UCase("alleen rit registratie") Then
    'werklocatie
    ComboBox3.Enabled = False
    ComboBox3.Value = "-"
    ComboBox3.BackColor = RGB(210, 210, 210)
    'BTW verlegd ja/nee
    ComboBox9.Enabled = False
    ComboBox9.Value = "-"
    ComboBox9.BackColor = RGB(210, 210, 210)
  Else
    'project
    ComboBox3.Enabled = True
    ComboBox3.Value = ""
    ComboBox3.BackColor = RGB(255, 255, 255)
    'BTW verlegd ja/nee
    ComboBox9.Enabled = True
    ComboBox9.Value = ""
    ComboBox9.BackColor = RGB(255, 255, 255)
  End If
End Sub

thanks...how stupid i could be...it was about that uppercase


thanks anyway...solved