Textbox formating problem.

hi

I have control array of Textbox. Text1(0),Text1(1),Text1(2),Text1(3),Text1(4). The textbox are formatted as Number(with comma after 1000).
Below is the code:

Sub Text1_Change(Index as Integer)
Select case Index

case 0 Text1(2)=val(Text1(0))+val(Text1(1))

case 3 Text1(4)=Val(Text1(2))+Val(Text1(3))

End Select

Everything works fine, except one problem. When its add the value ot Text1(2) and Text1(3), such as 123,456+123,456, it display value in Text1(4) as 246 only, while it should display 246,912. But when i remove the textbox format, it displays 246912. I want the format as well as the value to be displayed as 246,912.

Any alternative way to do this.

Thanks

When you enter 123,456 as intput and use val function, it treats it as string and not number, so thats why it only takes the first valid number 123.

You should use the format function

e.g

VB Code:

Select Case Index
    Case 0
        Text1(2).Text = Format(Val(Text1(0).Text) + Val(Text1(1).Text), "#,##0.00")
    
    Case 3
        Text1(4).Text = Format(Val(Text1(2).Text) + Val(Text1(3).Text), "#,##0.00")
End Select

do not enter , when entering number as input. Put 12345678 instaed of 123,456,78. The format function will output the number with specified format.

Hope this helps.

Danial

thanks for quick reply.

I tried your way Danial, but its not working. I am not putting the number as 123,456, I have formated the textbox.dataformat as number, and when you leave the text box it format the number as 123,456. But it works fine if i remove the text.dataformat as number. I formatted the textbox as for the end user that they can see properly what number they are putting.

Hope I made my question clear.


Thanks.

Hi,
Sorry i did not get you at the first time. I think i have got it this time !

Here is one dirty way of doing it!!

VB Code:

Option Explicit
 
Private Sub Text1_Change(Index As Integer)
    Dim T(4) As Double
    
    T(0) = Val(Replace(Text1(0).Text, ",", "", , , vbBinaryCompare))
    T(1) = Val(Replace(Text1(1).Text, ",", "", , , vbBinaryCompare))
    T(2) = Val(Replace(Text1(2).Text, ",", "", , , vbBinaryCompare))
    T(3) = Val(Replace(Text1(3).Text, ",", "", , , vbBinaryCompare))
    T(4) = Val(Replace(Text1(4).Text, ",", "", , , vbBinaryCompare))
    
    Select Case Index
        Case 0
            Text1(2).Text = Format(T(0) + T(1), "#,##0.00")
        
        Case 3
            Text1(4).Text = Format(T(2) + T(3), "#,##0.00")
    End Select
 
End Sub
 
Private Sub Text1_LostFocus(Index As Integer)
    Text1(Index).Text = Format(Text1(Index).Text, "#,##0.00")
End Sub

Is this what you are looking for? Let me know

hi danial thanks for your reply. i have found the way, i have just remove the textbox data format, as my end user doesn't need that.


thanks