VBA Access | BTW & Korting |

[Nocturnes]

Ik durf het haast niet vragen maar ik zit met een enorm dwaas probleem.


Ik krijg het maar niet gefixed om die stomme procenten te berekenen zoals in het voorbeeld.

bv,

Aankoopprijs
Aantal
BTW
Korting

1 knop die berekent

Dus allemaal variabelen, maar bij het tekstvak BTW moet alles uitgedrukt worden in % (eveneens bij korting).

Ik krijg dus een volkomen verkeerde uitkomst

Aankoopprijs * Aantal = Totale prijs zonder btw
Prijs met btw = totale prijs zonder btw * btw

Ik doe iets verkeerd!

(ps: mijn bijlagen uploaden werkte niet dus ik probeer het op die manier)

Code:

Private Sub cmdBereken_Click()

'Declareren van gegevens
Const USDUnitPrice As Double = 0.71
Dim TotaalEuro As Double
Dim BTW As Double
BTW = (txtGetal3 / 100) + 1

'Eenheidsprijs in USD
txtGetal5 = txtGetal1 * USDUnitPrice

'Totaalprijs zonder BTW
TotaalEuro = txtGetal1 * txtGetal2

'Totaalprijs met BTW
txtGetal6 = TotaalEuro * BTW



End Sub

Hopelijk kan iemand mij helpen?

Grtjes

 

[OctaFish]

Heb je de db al gezipt? En opgeruimd met <Database Comprimeren>? Eventueel kun je 'm met Winrar opsplitsten in delen van 200kb; dan moet het toch wel lukken...

 

[OctaFish]

Ik snap overigens dit stuk niet:

BTW = (txtGetal3 / 100) + 1

En formules als: txtGetal5 = txtGetal1 * USDUnitPrice zijn uiteraard niet de meest heldere die ik heb gezien... Ik raad je toch zeker aan voordat je formules gaat maken, om de tekstvakken namen te geven waar je wat aan hebt. Dan zijn ze voor iedereen gelijk duidelijk. Ik vermoed dat je verwijst naar de velden Aantal en Prijs, dus ik zou ze zo noemen: txtAantal = txtPrijs * USDUnitPrice

 

[oeldere]

Aankoopprijs * Aantal = Totale prijs zonder btw
Prijs met btw = totale prijs zonder btw * btw

Ik doe iets verkeerd!

dit lijkt me geen VBA probleem maar waarschijnlijk maakt een denkfout.

als met BTW het btw% wordt bedoeld
wordt met je berekening in (prijs met btw) de prijs van de btw-bedrag uitgerekend.

de formule zou dan (volgens mij) moeten zijn: totale prijs zonder btw + btw

 

[OctaFish]

De formule klopt wel; TS heeft in het BTW percentage al 100% opgeteld, dus [Totale prijs zonder BTW] * [BTW] levert dus inderdaad het juiste bedrag op.