formulieren

  • Thread starter Thread starter Ineke
  • Start date Start date
I

Ineke

hallo allemaal,
ik ben een formulier aan het maken waarbij ik 2 selectievakjes heb,
wanneer je het eerste selectie vakje aanduid zou er in een tekstvak de
waarde van naast het tekstvakje moeten komen, ik heb de volgende code
al gegenereerd, maar deze werkt niet, kan iemand me helpen?

option explicit
Dim ineke
Dim txtVakantie

Function Item_Open()
Dim objInsp

' show demo page(s)
Set objInsp = Item.GetInspector
objInsp.ShowFormPage "Verlof"
objInsp.HideFormPage "Bericht"
objInsp.SetCurrentFormPage "Verlof"

' set controls collection(s) and unbound text boxes
Set ineke = objInsp.ModifiedFormPages("Verlof").Controls
Set txtVakantie = ineke("txtVakantie")

Set objInsp = Nothing
End Function

Sub chkVakantie_Click()
txtVakantie.visible = ineke("chkVakantie").value
End Sub


dan heb ik bij mijn tweede optionbutton ook nog een probleempje,
wanneer het selectievakje aangeduid wordt zou er een tekstvak
tevoorschijn moeten komen dat voordien niet zichtbaar was

alvast bedankt voor de hulp!!

ineke
 
ineke,

probeer je vraagstelling in het engels, want 99% van het forum snap
niks van nederlands :
 
Back
Top