Verwijderd
Vreemd dat nog niemand gereageerd heeft, want het is niet zo moeilijk.
In het after_update-event van de combobox, zet je een stukje code:
Select case me.cbonaam (<-- = de naam van de combobox)
CASE'optie1
me.controlnaam.visible = false
...etc voor alle controls
CASE óptie2
''etc
end select
ZO moet het wel lukken denk ik toch.
Er zijn natuurlijk wel nettere oplossingen maar die zijn wat ingewikkelder. Ik zal er nog een geven, voor het geval je er toch meer van weet dan ik nu vermoed:
Alle controls hebben een dummy-propertie genaamd tag. Deze zou je kunnen misbruiken. Zet bijvoorbeeld in de tag, de optie van de combobox waarbij hij zichtbaar moet zijn. Je kutn nu in het afterupdate-event alle controls nalopen, en de property visible op true zetten als de tag overeenkomt met de waarde in de combobox. Dit maakt het wat onderhoudbaarder.
Snappie?
In het after_update-event van de combobox, zet je een stukje code:
Select case me.cbonaam (<-- = de naam van de combobox)
CASE'optie1
me.controlnaam.visible = false
...etc voor alle controls
CASE óptie2
''etc
end select
ZO moet het wel lukken denk ik toch.
Er zijn natuurlijk wel nettere oplossingen maar die zijn wat ingewikkelder. Ik zal er nog een geven, voor het geval je er toch meer van weet dan ik nu vermoed:
Alle controls hebben een dummy-propertie genaamd tag. Deze zou je kunnen misbruiken. Zet bijvoorbeeld in de tag, de optie van de combobox waarbij hij zichtbaar moet zijn. Je kutn nu in het afterupdate-event alle controls nalopen, en de property visible op true zetten als de tag overeenkomt met de waarde in de combobox. Dit maakt het wat onderhoudbaarder.
Snappie?