aantal in keuzelijst zijn aantal textvakken

[Andor]

Ik wil in een keuzelijst 1 t/m kunnen aangeven en dan wanneer je bv 3 hebt gekozen er 3 textvakken tevoorscijnkomen.
Hoe kan ik dit doen???

Alvast bedankt!

 

[Bartuls]

Zet het maximaal aantal textvakken op je formulier en maak deze onzichtbaar (Property zichtbaar = False).

Geef de velden een nummer als naam, bijvoorbeeld Textvak1, Textvak2, etc.

Na het ingeven van het nummer moet je het gewenste aantal textvakken weer zichtbaar maken dat kan met de volgende code.

Dim intAantal as Interger
Dim intCounter as Integer
Dim txtNaam as string
Dim frm As Form

intAantal = me.AantalTextvakken
intCounter = 1
Set frm = Screen.ActiveForm

Do While intCounter <= intAantal
txtNaam = "Textvak" & cStr(intCounter)
frm.Controls(txtNaam).Visible = True
intCounter = intCounter + 1
Loop

Set frm = Nothing

 

[Andor]

geprobeerd.

Maar lukt me niet.
Kan je misschien een voorbeeld maken.

 

[Bartuls]

Ok,

voorbeeldje.

 

[Andor]

Geplaatst door Bartuls
Ok,

voorbeeldje.

Bedankt! Het is nog niet helemaal gelukt om het in m'n prog te zetten maar ik ga het proberen, Alvast bedankt!!