ComboBox waarde '2' heeft dan ComboBox 14 verplicht invullen

[carloschouw]

Goedenavond!

Ik zou graag mijn userform (in de bijlage is slechts een test) willen uitbereiden met een functie zoals de titel zegt. De code die ik gebruik voor het verplicht invullen van een veld is b.v.

    If Trim(Me.ComboBox2.Value) = "" Then
        Me.ComboBox2.SetFocus
        MsgBox "Definitie invullen", vbOKOnly + vbInformation, "Definitie"
        StayOpen = True
        Exit Sub
    End If

Dat werkt allemaal prima. ComboBox14 hoeft niet verplicht ingevuld te worden tenzij je waarde 2 hebt geselecteerd. Dan zou er deze ComboBox verplicht ingevuld moeten worden.

Iemand een idee hoe ik dat in zou kunnen richten?

 

[emields]

zo?

If Trim(Me.ComboBox2.Value) = "2" Then
        Me.ComboBox14.SetFocus
        MsgBox "Definitie invullen", vbOKOnly + vbInformation, "Definitie"
        StayOpen = True
        Exit Sub
    End If

 

[carloschouw]

Goedemorgen!

Neen, helaas dat werkt niet. Deze code meldt dat je bij keuze 1 en 3 door kunt gaan met opslaan, bij keuze 2 blijft hij vragen om ComboBox2 in te vullen.

 

[edmoor]

Zo dan?
Bekijk bijlage Userform (1).xlsm

 

[carloschouw]

Yes, dat is het!

Dank voor je hulp