zichtbaar maken van ctl -> fout 13

[Tamara27]

Hieronder een code die ik halvelings heb samengeraapt om afhankelijk van de keuze van de gebruiker een deel ctl zichtbaar / onzichtbaar te maken.

Er zit toch iets niet helemaal juist blijkbaar, want krijg altijd foutmelding 13: typen komen niet met elkaar overeen.

Ziet iemand wat ik fout doe?

Private Sub cmbIBD_AfterUpdate()
If [cmbIBD] = "Colitis Ulcerosa" Then

For Each ctl In Controls
    With ctl
        Select Case .ControlType
            Case acTextBox Or acComboBox Or acOptionButton Or acCheckBox
                If Not ctl.Tag = "Standaard" Or "GegevensComplicaties" Or "GegevensEIAandoeningen" Or "Colitis Ulcerosa" Then
                    ctl.Visible = False
                Else
                    ctl.Visible = True
                End If
            Case Else
        End Select
    End With
Next ctl

Else
If [cmbIBD] = "Ongedefinieerd" Then

For Each ctl In Controls
    With ctl
        Select Case .ControlType
            Case acTextBox Or acComboBox Or acOptionButton Or acCheckBox
                If Not ctl.Tag = "Standaard" Or "GegevensComplicaties" Or "GegevensEIAandoeningen" Or "Ongedefinieerd" Then
                    ctl.Visible = False
                Else
                    ctl.Visible = True
                End If
            Case Else
        End Select
    End With
Next ctl

Else
If [cmbIBD] = "Crohn" Then

For Each ctl In Controls
    With ctl
        Select Case .ControlType
            Case acTextBox Or acComboBox Or acOptionButton Or acCheckBox
                If Not ctl.Tag = "Standaard" Or "GegevensComplicaties" Or "GegevensEIAandoeningen" Or "Crohn" Then
                    ctl.Visible = False
                Else
                    ctl.Visible = True
                End If
            Case Else
        End Select
    End With
Next ctl
End If
End If
End If
End Sub

DANK JE !!!!

 

[Superzeeuw]

Stuur eens een voorbeeld bestand zonder gevoelige info dan kunnen we beter helpen.

 

[OctaFish]

Bij welke regel krijg je de foutmelding?