Checkbox wordt zichtbaar na keuze uit combo

[Rap261]

Hoi,

Ik ben op zoek naar een script die het mogelijk maakt een checkbox te laten verschijnen wanneer men een keuze maakt in een combobox. Kiest men voor een andere keuze dan verschijnt er een andere checkbox. Een soort Cases verhaal waarin "Labels" van tekst veranderen bij verschillende opties maar dan met checkboxen.
De reden dat ik ze wil laten verdwijnen indien men voor een andere keus gaat is vanwege het afwijkende aantal checkboxen per keuze. Zo.. is dat ook weer afgedekt.

Ik heb wel een soort script gevonden en aangepast maar dit werkt nog niet helemaal

Private Sub Combo1_BeforeUpdate(Cancel As Integer)
FollowLink (Combo1.ListIndex)
End Sub

Private Sub FollowLink(ByVal intIndex As Integer)
Select Case intIndex
Case 0
Me.Check1.Visible = True
Case1
Me.Check2.Visible = True
End Select
End Sub

Wie kan mij helpen?
Alvast bedankt!

 

[Bakk4318]

Wat werkt er dan wel en wat werkt er dan niet?

 

[Rap261]

Charles,

Ik heb weer wat aanpassingen gemaakt in de code en nu werkt het gedeelte dat bij het kiezen in de combo de checkbox verschijnt. Ik heb daarvoor ook de Visible van de checkboxen op No moeten zetten. onderstaand het script wat ik nu heb

Private Sub Combo381_BeforeUpdate(Cancel As Integer)
FollowLink10 (Combo381.ListIndex)
End Sub

Private Sub FollowLink10(ByVal intIndex As Integer)
Select Case intIndex
Case 0
'---Cash-------------------
Me.Check383.Visible = True
Label384.Caption = "Gelukt"
Case 1
'---Stukken----------------
Me.Check385.Visible = True
Label386.Caption = "en weer"
'Label384.Caption = "en weer"
End Select
End Sub

Wat nu nog niet werkt is dat bij een andere keuze in de combo de "oude" checkbox niet verdwijnt. Deze blijft zichtbaar

Weet jij hier iets voor?

 

[Bakk4318]

Private Sub FollowLink10(ByVal intIndex As Integer)
Select Case intIndex
Case 0
'---Cash-------------------
Me.Check383.Visible = True
Me.Check385.Visible = False
Label384.Caption = "Gelukt"
Case 1
'---Stukken----------------
Me.Check385.Visible = True
Me.Check383.Visible = False
Label386.Caption = "en weer"
'Label384.Caption = "en weer"
End Select
End Sub

Voeg het rode gedeelte eens toe.

 

[Rap261]

Ik zat er ineens aan te denken.
Thanx!

 

[Bakk4318]

Soms kan het heel simpel zijn.