Hallo
Ik heb een formulier met verschillende selectievakjes. Bij ieder selectievakje is een tekstvak en een knop.
Nu zou ik willen, wanneer een tekstvakje is afgevinkt dat het tekstvak en de knop van opmaak wijzigen. de achtergrond van het tekstvak wordt rood. de knop krijgt een andere bitmap.
Er zijn 16 keuzevakjes, de waarde is reeds ingevuld bij het openen van het formulier, maar kan ook nog gewijzigd worden wanneer het formulier open is. Daarom dacht ik de code bij openen en bij bewerken te plaatsen.
Ik heb zelf al een stukje code ontworpen, maar het werkt niet. Ik weet zelf niet of ik al dan niet goed op weg ben.
Code:
Dim i As Integer
For i = 1 To 16
If "cbleslukt" + i Is 1 Then
Me("txtlesdoel" + i).BackColor = red
Else
Me("txtlesdoel" + i).BackColor = blue
End If
Next i
cbleslukt is het selectievakje, voor de knoppen wist ik de code niet.
Alvast bedankt voor de hulp.
Ebaert
Ik heb een formulier met verschillende selectievakjes. Bij ieder selectievakje is een tekstvak en een knop.
Nu zou ik willen, wanneer een tekstvakje is afgevinkt dat het tekstvak en de knop van opmaak wijzigen. de achtergrond van het tekstvak wordt rood. de knop krijgt een andere bitmap.
Er zijn 16 keuzevakjes, de waarde is reeds ingevuld bij het openen van het formulier, maar kan ook nog gewijzigd worden wanneer het formulier open is. Daarom dacht ik de code bij openen en bij bewerken te plaatsen.
Ik heb zelf al een stukje code ontworpen, maar het werkt niet. Ik weet zelf niet of ik al dan niet goed op weg ben.
Code:
Dim i As Integer
For i = 1 To 16
If "cbleslukt" + i Is 1 Then
Me("txtlesdoel" + i).BackColor = red
Else
Me("txtlesdoel" + i).BackColor = blue
End If
Next i
cbleslukt is het selectievakje, voor de knoppen wist ik de code niet.
Alvast bedankt voor de hulp.
Ebaert
