currency 1

[stallion]

how do i make a value in a text box have 2 decimal places so that it looks like a monetary value? ie $12.75 instead of $12.749 an so on<br>
cheers

 

[2dogs]

Try something like this:<br>
<br>
<br>
Dim amount As Single<br>
amount = 7.952<br>
Text1.Text = Format(amount, &quot;currency&quot<br>
<br>
<br>
<br>
hope this helps<br>
Bob <p>Robert L Norton<br><a href=mailto:2dogs@webace.com.au>2dogs@webace.com.au</a><br><a href= > </a><br>

 

[stallion]

cheers, but how would i make the amount equal the value in a text box?

 

[JimHorton]

stallion,<br>
<br>
Dim amount As Single<br>
amount = val(me!text1)<br>
Text1.Text = Format(amount, &quot;currency&quot<br>
--Jim

 

[stallion]

to jim<br>
my program works absolutely perfectly i can't thank you enough, you are my tipmaster of the week, keep up the good work<br>
cya<br>
nick

 

[Igeeky1]

You could also use <br>
<br>
Dim amount As Single<br>
amount = val(me!text1)<br>
Text1.Text = Format(amount, &quot;$ ###,###,###0.00&quot<br>
<br>
This would place the dollar sign, then a space before your ammount.<br>
<br>
The # are used only if there is a nuber to place there.<br>
The 0 are place takers that must be occupied. ie .847 would yield $ 0.85<br>
<br>
I'm not saying this is better, in most cases it is not, it is however more flexible.<br>
<br>
<br>