limit decimal numbers displayed on textbox

[adelvoira]

hello, i have a problem with my textboxes to display decimal numbers with just two (2) decimals no more,
i tried this code:

Private Sub TextBox75_Change()
If IsNumeric(TextBox75.Value) Then
TextBox75.Text = Format(TextBox75, "0.00")
End If
End Sub

and it's not working good as you show in the attached screen caption
https://ibb.co/igUVP6

Thank you

 

[FormR]

Hi, you could try like this:

Private Sub TextBox75_Change()
If IsNumeric(TextBox75.Value) Then
  TextBox75.Text = Format(cdbl(TextBox75.Value), "0.00")
End If
End Sub

 

[adelvoira]

Thank you now it's working

Hi, you could try like this:

Private Sub TextBox75_Change()
If IsNumeric(TextBox75.Value) Then
  TextBox75.Text = Format(cdbl(TextBox75.Value), "0.00")
End If
End Sub

 

[mikerickson]

Rather than the Change event, you might try the AfterUpdate event so the textbook doesn't keep changing as the user types into it.

Add code like this to handle the textbox being filled programmatically

Private Sub TextBox75_AfterUpdate()
    If IsNumeric(TextBox75.Value) Then
        TextBox75.Text = Format(cdbl(TextBox75.Value), "0.00")
    End If
End Sub

Private Sub TextBox75_Change()
    With TextBox75.Parent
        If .ActiveControl.Name <> "TextBox75" Then
            Call TextBox75_AfterUpdate
        End If
    End With
End Sub

The .Parent is there to handle textboxes that are in Frames or Multipages

 

[adelvoira]

The code didn't work when i use Microsoft office 2013 because i tried on Microsoft office 2010 on first time

 

[mikerickson]

Which code didn't work? and what do you mean "didn't work"? What did happen that wasn't what you wanted?

 

[adelvoira]

The first one, it didn't crash, but it's still display more than two decimals

 

[FormR]

The first one

Do you mean the code I posted? If so I'd try Mike's if I were you, I didn't notice that the code I posted was inappropiately using the change event.

it's still display more than two decimals

It would help if you told us the unformatted value of the text box, what your locale decimal seperator is and what the formatted value should have looked like?

 

[adelvoira]

yes i meant this code

[LEFT][COLOR=#333333][FONT=monospace]Private Sub TextBox75_Change()
If IsNumeric(TextBox75.Value) Then
  TextBox75.Text = Format(cdbl(TextBox75.Value), "0.00")
End If
End Sub[/FONT][/COLOR][/LEFT]

look to understand me well, i want from each texbox on my userform around all values to just two decimals (290298.59 or arround it to 290298.60) as you show on my screen caption below:
https://postimg.org/image/c5b62zjfv/

 

[FormR]

look to understand me well

Hi, I do understand you well. Have you tried Mike's code? What is the unformatted value that you are entering in the text box? What is your locale decimal seperator? And do you want the formatted value to look like after the code has executed.

Try to answer directly in a reply here.