Hallo,
Ik wil onderstaand script gebruiken om de waarde van het veld "PrijsExclKortingInclTekenkorting" met 2% te verminderen t.o.v. het veld "PrijsExclKorting" als aan een voorwaarde wordt voldaan (Invullen letter T in het veld "Codetekenkorting") Bijv. ik vul in het veld "PrijsExclKorting" een bedrag van €200,00 in en in het veld "PrijsExclKortingInclTekenkorting" komt
€196,00 te staan als aan de voorwaarde wordt voldaan.
Het berekenen van de 2% dat werkt, maar dan houdt het op.
Als ik bij een test in het veld "Codetekenkorting" de T verwijder en weer het bedrag invul van € 200,00 dan blijft de eerder toegekende waarde (-2%) in het veld "PrijsExclKortingInclTekenkorting" staan. Dit zou dan de waarde van het veld "PrijsExclKorting" (lees €200,00) moeten worden.
Wie kan mij helpen zodat het wel werkt.
Groet,
Ton
Ik wil onderstaand script gebruiken om de waarde van het veld "PrijsExclKortingInclTekenkorting" met 2% te verminderen t.o.v. het veld "PrijsExclKorting" als aan een voorwaarde wordt voldaan (Invullen letter T in het veld "Codetekenkorting") Bijv. ik vul in het veld "PrijsExclKorting" een bedrag van €200,00 in en in het veld "PrijsExclKortingInclTekenkorting" komt
€196,00 te staan als aan de voorwaarde wordt voldaan.
Code:
Private Sub txtPrijsExclKorting_AfterUpdate()
If Me.txtCodeTekenkorting.Value = "T" Then
Me.txtPrijsExclKortingInclTekenkorting.Value = Me.txtPrijsExclKorting - Me.txtPrijsExclKorting * 0.02
ElseIf Me.txtCodeTekenkorting.Value = "" Then
Me.txtPrijsExclKortingInclTekenkorting.Value = Me.txtPrijsExclKorting
End If
End Sub
Het berekenen van de 2% dat werkt, maar dan houdt het op.
Als ik bij een test in het veld "Codetekenkorting" de T verwijder en weer het bedrag invul van € 200,00 dan blijft de eerder toegekende waarde (-2%) in het veld "PrijsExclKortingInclTekenkorting" staan. Dit zou dan de waarde van het veld "PrijsExclKorting" (lees €200,00) moeten worden.
Wie kan mij helpen zodat het wel werkt.
Groet,
Ton