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?
DANK JE !!!!
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?
Code:
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 !!!!