met keuzerondje textwaarde laten invullen

Hallo,

Ik heb een textvakje genoemd "txt01" waar ik een waarde invult bijvoorbeeld "40".
Dan heb ik 5 keuzerondjes welke ik aan of uit kan zetten genoemd kr01,kr02,kr03,kr04 en kr05.
Deze keuzerondjes zijn gelijk aan als ik kr01 aanzet zou d01 ingevuld moeten worden met "40".
en zo heb ik dus de volgende velden d01,d02,d03,d04 en d05.
Wanneer ik een keuzerondje (kr01) aanklikt en bijvoorbeeld ook (kr03) en de andere niet dan zou ik graag de waarde van het textvakje "txt01" in d01 en d03 willen hebben.
Als ik dan op de button druk krijg ik dat echte niet voor elkaar?

Private Sub btn01_Click()
If Me.kr01.Value = True Then
d01.Value = Me.txt01
Else
d01.Value = ""

If Me.kr02.Value = True Then
d02.Value = Me.txt01
Else
d02.Value = ""

If Me.kr03.Value = True Then
d03.Value = Me.txt01
Else
d03.Value = ""

If Me.kr04.Value = True Then
d04.Value = Me.txt01
Else
d04.Value = ""

If Me.kr05.Value = True Then
d05.Value = Me.txt01
Else
d05.Value = ""

end if
end if
end if
end if
end if




End Sub

Begin eens met je code tussen de CODE tags te zetten, dan is hij wellicht wat leesbaarder. En daarnaast heb ik geen flauw idee wat je nu aan het doen bent. Een db erbij zou dat wellicht wat duidelijker maken.

Misschien dat je dit bedoelt?

Hierbij in zipbestand wat ik bedoel en ook de code erbij gedaan zoals werdt aangegeven maar dit werkte ook niet?

Volgens mij heb je de naamgeving van de labels niet zoals je zou willen.
Probeer deze eens:

Dank je wel Edmoor,

Maar de vorige klopte wel ik kreeg eerst een fout melding en nadat ik jou andere code had gebruikt werden de velden boven de keuzerondjes gevuld.
Ik bedoelde dat de velden in de tabel gevuld moesten worden en de code die je me gaf

d01.Value = IIf(Me.kr01 = True, txt01.Text, "") de txt01.text had txt01.value moeten zijn en nu werkt het wel


Private Sub btn01_Click()
d01.Value = IIf(Me.kr01 = True, txt01.Value, "")
d02.Value = IIf(Me.kr02 = True, txt01.Value, "")
d03.Value = IIf(Me.kr03 = True, txt01.Value, "")
d04.Value = IIf(Me.kr04 = True, txt01.Value, "")
d05.Value = IIf(Me.kr05 = True, txt01.Value, "")
End Sub
deze klopt en werkt en is hiermee opgelost dank je wel

Ok dan :thumb:

Ik zou de hele procedure eens tegen het licht houden, en een oplossing bedenken die in een database thuishoort.