abdelfattah
Well-known Member
- Joined
- May 3, 2019
- Messages
- 1,439
- Office Version
- 2019
- 2010
- Platform
- Windows
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
thanks
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
VBA 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