Hallo,
twee vraagjes:
ik heb onderstaande code gemaakt om er voor te zorgen dat achter het juiste lokaal de juiste lokaalopstelling komt te staan, en waar zo mogelijk er een keuze gemaakt kan worden uit verschillende lokaalopstellingen. Wanneer ik nu een ander lokaal aanklik komt er automatisch dus de lokaalopstelling te staan. Wanneer ik lokaal 1 geselecteerd heb komt er "E" te staan in ComboBox65. Tot zover mooi, maar wanneer ik nu lokaal 1 wijzig in "Lokaal 2 & 3" dan moet de ComboBox eigenlijk direct leeg gemaakt worden. Bij Lokaal 2 & 3 kan namelijk gekozen worden uit "A" en "B", maar de "E" van lokaal 1 blijft staan. Hoe kan ik dit oplossen?
Nu is deze code nogal lang en maar voor één ListBox en ComboBox. Ik heb 8 keer een ListBox met daarachter een ComboBox. Moet ik deze code dan voor alle 8 maken of is er een manier om dit eenvoudiger en korter te doen?
twee vraagjes:
ik heb onderstaande code gemaakt om er voor te zorgen dat achter het juiste lokaal de juiste lokaalopstelling komt te staan, en waar zo mogelijk er een keuze gemaakt kan worden uit verschillende lokaalopstellingen. Wanneer ik nu een ander lokaal aanklik komt er automatisch dus de lokaalopstelling te staan. Wanneer ik lokaal 1 geselecteerd heb komt er "E" te staan in ComboBox65. Tot zover mooi, maar wanneer ik nu lokaal 1 wijzig in "Lokaal 2 & 3" dan moet de ComboBox eigenlijk direct leeg gemaakt worden. Bij Lokaal 2 & 3 kan namelijk gekozen worden uit "A" en "B", maar de "E" van lokaal 1 blijft staan. Hoe kan ik dit oplossen?
Nu is deze code nogal lang en maar voor één ListBox en ComboBox. Ik heb 8 keer een ListBox met daarachter een ComboBox. Moet ik deze code dan voor alle 8 maken of is er een manier om dit eenvoudiger en korter te doen?
Code:
Private Sub ListBox13_Change()
Select Case ListBox13.Value
Case "Lokaal 1"
ComboBox65.Value = "E"
ComboBox65.Locked = True
Case "Lokaal 2"
ComboBox65.Value = "A"
ComboBox65.Locked = True
Case "Lokaal 3"
ComboBox65.Value = "A"
ComboBox65.Locked = True
Case "Lokaal 4"
ComboBox65.Value = "A"
ComboBox65.Locked = True
Case "Lokaal 5"
ComboBox65.Value = "A"
ComboBox65.Locked = True
Case "Lokaal 6"
ComboBox65.Value = "A"
ComboBox65.Locked = True
Case "Lokaal 7"
ComboBox65.Value = "B"
ComboBox65.Locked = True
Case "Lokaal 8"
ComboBox65.Value = "N.v.t."
ComboBox65.Locked = True
Case "Lokaal 9"
ComboBox65.Value = "N.v.t."
ComboBox65.Locked = True
Case "Lokaal 10"
ComboBox65.Value = "N.v.t."
ComboBox65.Locked = True
Case "Lokaal 11"
ComboBox65.Value = "B"
ComboBox65.Locked = True
Case "OLC"
ComboBox65.Value = "N.v.t."
ComboBox65.Locked = True
Case "Lokaal 2 & 3"
ComboBox65.RowSource = "Lokaalopstelling23"
ComboBox65.Locked = False
Case "Lokaal 4 & 5"
ComboBox65.RowSource = "Lokaalopstelling45"
ComboBox65.Locked = False
Case "Lokaal 4, 5 & 6"
ComboBox65.RowSource = "Lokaalopstelling456"
ComboBox65.Locked = False
Case Else
ComboBox65.RowSource = ""
End Select
End Sub