how ignore currency in textbox when read amount ?

[abdelfattah]

hello
actually I have textbox contains like this LYD 1,324,555.00 the textbox link with lable and function to read amount , but the problem is in currency LYD . the function can't read it because of the currency how I can avoid reading currency to fix the problem ?
by the way the code works if there is no currency in textbox .
here is my code

Private Sub TextBox49_Change()

TextBox49 = Format(TextBox49, "#,##0.00")
Label47.Caption = " " & "amount only" & " " & _
kh_TextNum(TextBox49, 0, "dinner", "dananner", "only cent,,,", 3, "cents", 1)

With Me.TextBox49
Dim s As String

s = "LYD"
        If IsNumeric(.Value) Then
        .Value = s & " " & Format(CStr(.Value), "#,##0.00")
        End If
    End With

End Sub

thanks

 

[abdelfattah]

textbox using the property sheet but that probably would not work either

what's the property name ?

 

[Micron]

I thought there was such a textbox property in Excel like there is in Access. Silly me for thinking that M$ Excel and Access program designers would be on the same page when it comes to such common features. Sorry.

 

[Siddharth Rout]

@Siddharth Rout

thanks for your notice , but still doesn't treat problem the numberformat

That is because we we are not handling the format in the TextBox49_KeyPress code that I gave .

"," is a character. My code doesn't allow charcaters. Only numbers. If you want to allow that you will have to edit the code that I gave and format the numbers accordingly.

 

[abdelfattah]

if you want to allow that you will have to edit the code that I gave and format the numbers accordingly.

I have no idea how do that. I try many times without any result .