Is toegevoegd. Staat onder de aantal box. "1e klasse, 2e klasse, 3e klasse, 1e/2e klasse, 2e/3e klasse"
Heb er geen Search_ tabel van gemaakt. Deze was namelijk te simpel. En aanpassing daarvan is later niet nodig.
Goederen/passagiersvervoer = Zichtbaar
Goederenvervoer = Niet zichtbaar
Passagiersvervoer = Zichtbaar
Speciaalvervoer = Niet zichtbaar
En voor de persoon die de code later wil aanpassen
Private Sub Vervoer_Click()
If Me.Vervoer.Value = "Passagiersvervoer" Then
Me.KlasseWagon.Visible = True
End If
If Me.Vervoer.Value = "Goederen/passagiersvervoer" Then
Me.KlasseWagon.Visible = True
End If
If Me.Vervoer.Value = "Goederenvervoer" Then
Me.KlasseWagon.Visible = False
End If
If Me.Vervoer.Value = "Speciaalvervoer" Then
Me.KlasseWagon.Visible = False
End If
End Sub
En wat kan ik nog meer verbeteren. Laat het weten of ik gooi een nieuwe versie online.