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
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
Laatst bewerkt: