Misschien dat je het met de volgende code wel snapt:
Code:
Private Sub Form_Current()
Call Medicijnen_Click
Slaapgedrag
End Sub
Code:
Private Sub chkslaap_overdag_Click()
Slaapgedrag
End Sub
Code:
Sub Slaapgedrag()
If Me.chkslaap_overdag.Value = -1 Then
Me.txtslaap_van.Visible = True
Me.txtslaap_tot.Visible = True
Me.lblSlaapVan.Visible = True
Me.lblSlaapTot.Visible = True
Else
Me.txtslaap_van.Visible = False
Me.txtslaap_tot.Visible = False
Me.lblSlaapVan.Visible = False
Me.lblSlaapTot.Visible = False
End If
End Sub
Ik heb, zoals je uit de procedure kunt zien, een aantal objectnamen veranderd. Dit voor de duidelijkheid. Zo heb ik de
tekstvelden voorzien van de veldaanduiding
txt, de
labels van de aanduiding
lbl en het
selectievakje van de aanduiding
chk
Verder is de procedure in wezen gelijk aan het selectievakje Medicijnen: je controleert de waarde van het selectievakje,en bij -1 (vakje gevinkt) worden tekstvak en label getoond, bij overige waarden verborgen.
Ook deze procedure roep je weer aan bij het Laden van het formulier, want je wilt gelijk de goede status op het formulier zien.
Formulieren met tabbladen werken wat dit betreft niet heel anders als normale formulieren. Als de naam van het object te selecteren is, kun je het instellen/aanroepen.
Heb je meer tekstblokken/labels die je wilt verbergen/tonen a.d.h. van selectievakjes, dan raad ik je dus aan om tekstvak en label duidelijk herkenbaar te benoemen, zodat je ze gemakkelijk terug kunt vinden met ME.
Een label met de naam
Bijschrift249 kan geen mens zomaar plaatsen.... Jij weet zonder dat je in de db kijkt ook niet welk label dat is. Het label
lblSlaap_Tot kun je met je ogen dicht aanwijzen...