Double (2 cijfers na komma)

[Nocturnes]

Simpele vraag (ik werk met access vba 2010):

Ik zit met het probleem als ik double gebruik voor te declareren er oneindig veel cijfers na de komma komen...


Zie hieronder:

Private Sub cmdBereken_Click()


Dim intTeller As Integer
Dim intBereken As Double
Dim tekst As String

tekst = " deelnemers: "

For intTeller = 10 To 25
intBereken = txtVak1 / intTeller

txtVak2 = txtVak2 & intTeller & tekst & " " & intBereken & " EUR" & vbCrLf


Next

End Sub

In mijn tekstveld krijg ik dit nu:

10 deelnemers: 645 EUR
11 deelnemers: 586,363636363636 EUR
12 deelnemers: 537,5 EUR
13 deelnemers: 496,153846153846 EUR
14 deelnemers: 460,714285714286 EUR
15 deelnemers: 430 EUR
16 deelnemers: 403,125 EUR
17 deelnemers: 379,411764705882 EUR
18 deelnemers: 358,333333333333 EUR
19 deelnemers: 339,473684210526 EUR
20 deelnemers: 322,5 EUR
21 deelnemers: 307,142857142857 EUR
22 deelnemers: 293,181818181818 EUR
23 deelnemers: 280,434782608696 EUR
24 deelnemers: 268,75 EUR
25 deelnemers: 258 EUR

Ik mag slechts 2 cijfers hebben na de komma? Enige handige tip? Aantal decimalen staat op 2.


Edit:

Ik had ook meteen graag eens een oplossing geweten op de foutmelding wanneer je niks invult in een veld:

Neem dat ik het bovenste veld leeglaat en op de knop druk dan krijg ik een null melding? Gemakkelijk op te lossen?

Alvast heel erg bedankt!

 

[old Hippy]

ik dacht zo iets
txtVak2 = FormatNumber((txtVak2 & intTeller & tekst & " " & intBereken & " EUR" & vbCrLf),2)

 

[Nocturnes]

Fout 13

Typen komen niet met elkaar overeen krijg ik daarop...

 

[old Hippy]

HU kan je hier iets mee???

Rounding in Access and VBA
CByte(), CInt(), CLng(), CCur(), and Round() all perform banker's rounding.