Problem adding textboxes together and view as currency

[at51178]

Hi

I am creating a form and would like to have the results how up as a currency value but every time I run my code it keeps freezing not sure why.

--Code --

Dim Add1 As Decimal
Dim Add2 As Decimal
Dim Total As Decimal

Add1 = Me.Text1.Text
Add2 = Me.Text2.Text
Total = Me.Text3.Text

Total = Me.Text1 + Me.Text2
-- End Code --

I am not sure though how to format it as currency
some sites that i have been to said to use this method but it does not work.
Format(Total,"Currency")

Thanks

 

[ThatRickGuy]

I'm kinda confussed by what your code is doing. I'm pretty sure it is not what you want though.

If you have 2 values:

dim Total as Decimal
Total = Value1 + Value2

text2.text = format(Total,"Currency")

If you want to take the values from 2 text boxes:

dim Total as Decimal
Total = double.Parse(Text1.text) + double.Parse(Text2.Text)

text2.text = format(Total,"Currency")

-Rick


----------------------

http://www.ringdev.com