Optellen textboxen in formulier

[arnose09]

Beste Helpmij'ers,

Waarschijnlijk is mijn code erg omslachtig maar voor mij nog enigzins begrijpbaar.

Het doel is de subtotalen samen op te tellen naar het totaalveld binnen in een formulier. Dit lukt aardig bij hele getallen:

Maar als er een Komma in het 1e subtotaal veld naar voren komt dan wordt het 2e subtotaal veld niet meer als vol aantal gezien maar als 2e cijfer achter de komma. M.a.w. 9 wordt 0,09:

Ik dacht dit te kunnen verhelpen door de eigenschappen van de textbox aan te passen (het is immers geen cijferbox). Maar ben er nog niet achter wat nu de oorzaak is van dit falen.

Voor de zekerheid hier de eigenschappen van het totaalveld:

En de code achter de text boxen voor het geval dat hier wat te winnen is:

Private Sub TextBox1_Change()

If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "" Then Exit Sub
TextBox12.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)

End Sub

Private Sub TextBox2_Change()
If TextBox1.Value = "" Then Exit Sub
If TextBox2.Value = "" Then Exit Sub
TextBox12.Value = CDbl(TextBox1.Value) * CDbl(TextBox2.Value)
End Sub

Private Sub TextBox4_Change()
If TextBox4.Value = "" Then Exit Sub
If TextBox5.Value = "" Then Exit Sub
TextBox45.Value = CDbl(TextBox4.Value) + CDbl(TextBox5.Value)
End Sub

Private Sub TextBox5_Change()
If TextBox4.Value = "" Then Exit Sub
If TextBox5.Value = "" Then Exit Sub
TextBox45.Value = CDbl(TextBox4.Value) + CDbl(TextBox5.Value)
End Sub

Private Sub TextBox12_Change()
If TextBox12.Value = "" Then Exit Sub
If TextBox45.Value = "" Then Exit Sub
TextBoxZ.Value = CDbl(TextBox12.Value) + CDbl(TextBox45.Value)
End Sub

Private Sub TextBox45_Change()
If TextBox12.Value = "" Then Exit Sub
If TextBox45.Value = "" Then Exit Sub
TextBoxZ.Value = CDbl(TextBox12.Value) + CDbl(TextBox45.Value)
End Sub

Kan iemand mij de juiste richting op helpen? Alvast bedankt voor de moeite.

P.s. ik gebruik Office 2007

In Office 2003 geeft hij zelfs geen komma in het eerste subtotaal veld.

 

[arnose09]

Helaas heb ik geen antwoord gekregen op mijn vraag.

Stel ik een verkeerde vraag of is dit lastig om op te lossen? Misschien is er een andere manier om hetzelfde resultaat te bereiken?

Alle hulp is welkom. Alvast bedankt.

 

[Cobbe]

Had je nu een vb-tje gepost was het hele geval al opgelost, zeker weten.

Maar een textbox bevat tekst en rekenen met tekst is nogal moeilijk.
Dan moet je dus die tekst omzetten in echte getallen en dan kom je er wel.

TextBox12.Value = Format(Val(TextBox1.Value) * Val(TextBox2.Value), "0.00")

 

[arnose09]

Had je nu een vb-tje gepost was het hele geval al opgelost, zeker weten.

Heel suf van mij , volgende keer beloof ik beter!

Hartelijk bedankt voor de code, werkt super! :thumb: