Veld tonen/zichtbaar na kiezen radio button

[Marcotica]

Hallo,

Ik probeer al een tijdje een radio button te maken, waarbij, als deze wordt gekozen dat er een veld zichtbaar wordt.
Het zijn 2 radiobuttons als 1 groep.
Dus als je bijv. kiest voor radiobutton "man" dan moet daar achter een tekstveld worden getoond, waarin je bijv de naam kan invoeren.

Het lukt wel met 'checkboxes' maar mij lukt het niet om een veld zichtbaar te maken wanneer je een bepaalde radiobutton kiest. Wie o wie kan mij assisteren.

Al vast bedankt voor het meedenken.!?!?

 

[Bakk4318]

Zie bijlage.

 

[Marcotica]

Hallo,

Ik probeer al een tijdje een radio button te maken, waarbij, als deze wordt gekozen dat er een veld zichtbaar wordt.
Het zijn 2 radiobuttons als 1 groep.
Dus als je bijv. kiest voor radiobutton "man" dan moet daar achter een tekstveld worden getoond, waarin je bijv de naam kan invoeren.

Het lukt wel met 'checkboxes' maar mij lukt het niet om een veld zichtbaar te maken wanneer je een bepaalde radiobutton kiest. Wie o wie kan mij assisteren.

Al vast bedankt voor het meedenken.!?!?

Hoi Bak4318.

Het lukt enig sinds al met onderstaande code:

Met uitzondering van de 2e. Als de ene wordt gekozen dan moet een veld 1 zichtbaar zijn. Als radiobutton 2 wordt gekozen moet veld 2 zichtbaar worden.
Dacht met het rode gedeelte daar mee te zijn, maar helaas.

Private Sub EBVB_AfterUpdate()

Select Case EBVB

Case Is = 1
Me.Verz_PolisnummerDAS.Visible = True
Case Is = 2
Me.Verz_PolisnummerDAS.Visible = False

Case Is = 1
Me.Verz_PolisnummerVolmacht.Visible = True
Case Is = 2
Me.Verz_PolisnummerVolmacht.Visible = False


End Select

End Sub

 

[Marcotica]

Gelukt

Bak,

Het is me toch gelukt. Heel simpel door proberen totdat het lukt he.

de code is:

Private Sub EBVB_AfterUpdate()

Select Case EBVB

Case Is = 1
Me.Verz_PolisnummerDAS.Visible = True
Case Is = 2
Me.Verz_PolisnummerDAS.Visible = False

End Select

Select Case EBVB

Case Is = 2
Me.Verz_PolisnummerVolmacht.Visible = True
Case Is = 1
Me.Verz_PolisnummerVolmacht.Visible = False


End Select

End Sub

Bedankt voor de aanzet!

Gr. marcotica

 

[Bakk4318]

Probeer deze eens.

Private Sub EBVB_AfterUpdate()

Select Case EBVB

Case Is = 1
Me.Verz_PolisnummerDAS.Visible = True
Me.Verz_PolisnummerVolmacht.Visible = False

Case Is = 2
Me.Verz_PolisnummerDAS.Visible = False
Me.Verz_PolisnummerVolmacht.Visible = True

End Select

End Sub

 

[Marcotica]

Werkt perfect
Echter nog één vraagje.
Op deze manier is één in te vullen veld al wel zichtbaar.
Is het ook mogelijk dat wanneer er pas een radiobutton gekozen is dat dan het veld die erbij hoort pas zichtbaar wordt?

Zie schermprint hoe ie nu is.

 

[Bakk4318]

Zet beide velden in de eigenschappen op onzichtbaar. Je formulier wordt nu geopend en beide velden zijn onzichtbaar. Let wel als je eenmaal een radiobutton hebt geselecteerd zal vanaf dat moment in deze situatie 1 van de velden altijd zichtbaar blijven. Wil je een selectie helemaal terug kunnen draaien zul je er nog wat bij moeten programmeren. Dat is natuurlijk afhankelijk van of die situatie zich in jouw geval zal voordoen. Mocht dat zo zijn probeer dan eerst zelf iets te verzinnen.