Selectie vak ja dan tekstvak is....

[jacko83]

Hallo,

ten eerste zou ik graag willen zeggen dat ik totaal geen verstand heb van VBA....

Ik probeer iets in Microsoft Word voor elkaar te krijgen wat volgens mij super simpel is maar waar ik niet uitkom.....

Ik heb in een word formulier een selectievakje. Als deze is aangevinkt wil ik graag in een tekstvak daar onder een tekst weergeven en als deze is uitgevinkt dan een andere tekst:

Kan iemand mij hier misschien mee helpen?



If selectie1 = true then
tekst1 = "test" else
tekst1 = "test2"

 

[Bakk4318]

Probeer onderstaande code eens. Wel de namen van de objecten aanpassen naar jouw situatie.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Me.TextBox1.Text = "Hallo"
Else
    Me.TextBox1.Text = "Tot ziens"
End If
End Sub

 

[snb]

Was het maar zo eenvoudig.

Sub vink()
    ActiveDocument.FormFields("tekst1").Result = IIf(ActiveDocument.FormFields("vink1").CheckBox.Value, "zeker", "")
End Sub

Mijn voorkeur: werkset besturingselementen

 

[Bakk4318]

Helemaal gelijk SNB. Zeker met de manier waarop je het uitlegt, zal iedereen inclusief TS meteen begrijpen wat jij bedoeld.