TextBox calculation
 

Hello,

I have 3 textboxes (Labour, Materials and Total)

I am trying to get the totalcharge textbox to show sum of labour +
materials after labour change and/or materials change but it this is
what happens:

Labour = £10.00
Materials = £5.00
Total = £10.005 (Instead of just £15.00)
and if i tab back up to the labour box the totalcharge value changes
again to £10.00£5.00

my code is:


Private Sub Labour_AfterUpdate()
TotalCharge.Text = Labour.Value + Materials.Value
Labour.Text = Format(Labour.Value, "£###,,###.00")
End Sub
Private Sub materials_AfterUpdate()
TotalCharge.Text = Labour.Value + Materials.Value
Materials.Text = Format(Materials.Value, "£###,,###.00")
End Sub

I'm not really sure when to use .text or .value either
any help would be really appreciated!!

thanks


--
johncassell
------------------------------------------------------------------------
johncassell's Profile: http://www.excelforum.com/member.php...o&userid=25016
View this thread: http://www.excelforum.com/showthread...hreadid=385423

TextBox calculation
 

I don't think it matters.

I changed the Pound symbol to my USA setting $ and did this:

Option Explicit
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub Labour_AfterUpdate()
TotalCharge.Text _
= Format(CDbl(Labour.Value) + CDbl(Materials.Value), "$###,###.00")
Labour.Text = Format(CDbl(Labour.Value), "$###,###.00")
End Sub
Private Sub materials_AfterUpdate()
TotalCharge.Text _
= Format(CDbl(Labour.Value) + CDbl(Materials.Value), "$###,###.00")
Materials.Text = Format(CDbl(Materials.Value), "$###,###.00")
End Sub
Private Sub UserForm_Initialize()
Me.Labour.Text = "$10.00"
Me.Materials.Text = "$5.00"
Me.TotalCharge.Text = "$15.00"
End Sub

The code was seeing the values in the textboxes as text--cdbl() converted the
text values (including the currency symbol) to a real number.

You may want to make sure that there are numbers in those textboxes, too.


johncassell wrote:

Hello,

I have 3 textboxes (Labour, Materials and Total)

I am trying to get the totalcharge textbox to show sum of labour +
materials after labour change and/or materials change but it this is
what happens:

Labour = £10.00
Materials = £5.00
Total = £10.005 (Instead of just £15.00)
and if i tab back up to the labour box the totalcharge value changes
again to £10.00£5.00

my code is:

Private Sub Labour_AfterUpdate()
TotalCharge.Text = Labour.Value + Materials.Value
Labour.Text = Format(Labour.Value, "£###,,###.00")
End Sub
Private Sub materials_AfterUpdate()
TotalCharge.Text = Labour.Value + Materials.Value
Materials.Text = Format(Materials.Value, "£###,,###.00")
End Sub

I'm not really sure when to use .text or .value either
any help would be really appreciated!!

thanks

--
johncassell
------------------------------------------------------------------------
johncassell's Profile: http://www.excelforum.com/member.php...o&userid=25016
View this thread: http://www.excelforum.com/showthread...hreadid=385423

--

Dave Peterson

TextBox calculation
 

Thanks a lot that worked brilliantly, i can stop banging my head agains
the wall now! cheer

--
johncassel
-----------------------------------------------------------------------
johncassell's Profile: http://www.excelforum.com/member.php...fo&userid=2501
View this thread: http://www.excelforum.com/showthread.php?threadid=38542