Fout bij optellen van Textbox

[ZZ1]

Hallo,

Ik probeer 11 textboxen optellen met deze formule:

Private Sub Optellen_Click()

Totaal.Text = Subtotaal_1.Text + Subtotaal_2.Text + Subtotaal_3.Text + Subtotaal_4.Text enz.

Maar als ik deze formule gebruik wordt alles achter elkaar opgeteld, voorbeeld:
Ik moet de volgende getallen optellen 1, 2, 3, 4 dan is de uitkomst volgens de bovenstaande formule: 1234 ipv 10.

Wie kan mij helpen???

 

[krolik]

Fout bij optellen textbox

Hier worden getallen gezien als text, niet als waarde. Dus je kunt deze niet zo maar optellen, want alle delen worden aan elkaar geplakt. Je zult dus eerst alle text moeten omzetten in getallen, zoiets als 'value1 = value(textbox1.text)', value2 etc. o.i.d. Dat was zo in VB 20 jaar geleden, dus zal er in het huidige VB ook wel zoiets bestaan.

 

[nire]

CInt(Subtotaal_1.Text) + CInt(Subtotaal_2.Text) enzovoort

 

[ZZ1]

Hallo Nire,

Dat werkt wat je zegt maar nu zit ik met nog een kleinigheidje hij rond het getal af. Het is een bedrag waardoor ik 2 cijfers achter de komma wil. Heb je hier ook een oplossing voor??

 

[nire]

CDbl ipv CInt

vervolgens over het eindresultaat een FormatNumber gooien

Totaal.Text = FormatNumber((CDbl(Subtotaal_1.Text) + CDbl(Subtotaal_2.Text)), 2)

 

[ZZ1]

Helemaal TOP Nire!!!!!

Weet jij dan ook hoe je standaard een euro teken voor het bedrag krijgt??

 

[nire]

"€ " + FormatNumber((CDbl(Subtotaal_1.Text) + CDbl(Subtotaal_2.Text)), 2)

 

[ZZ1]

Hartelijk dank!!!

Ik ben erg goed geholpen!!!!

 

[najreteip]

eenvoudig optellen

je kunt ook gewoon doen
Textbox1.text - - textbox2.text - - Textbox3.text enz
tweemaal min wordt ook plus