How can I make sure that currency is only entered into text box on userform

Thanks mike

On Jun 26, 7:10 pm, Mike wrote:
How can I make sure that currency is only entered into text box on userform

Thanks mike

Hi, Mike:

Is it possible to pop up a message if your input is not a numerical
number?

Thanks,

George

How can I make sure that currency is only entered into
text box on userform

Do you mean you want to restrict what the user types in the TextBox to an
entry composed of at maximum, a single decimal point, digits characters (at
maximum, only two of them after the decimal point) and, at most, a single
currency symbol in character position 1 (with all other keystroke being
rejected)? What about thousands separator characters? Or did you have
something else in mind?

Rick

Rick thanks for the reply
I think I have got it but you may suggest something else

What I have done first is in the AfterUpdate event to takes care of the 99
or 110
dollar entry and turn into $99.00 $110.00
Private Sub txtIQPrice_AfterUpdate()
txtIQPrice.Value = Format(txtIQPrice.Value, "Currency")
End Sub

Then in the button click event I have this code to look at the non numeric
entries
If you think I might be missing something or if you foresee problems please
give suggestions

Thanks Mike

If IsNumeric(txtIQPrice.Value) = False Then
MsgBox "Must enter a valid dollar amount for" & " " _
& lblIQPrice.Caption & vbCrLf & txtIQPrice.Value _
& " " & "is not a valid entry", vbCritical, "360 Price Matrix"
Exit Sub

"Rick Rothstein (MVP - VB)" wrote:

How can I make sure that currency is only entered into
text box on userform

Do you mean you want to restrict what the user types in the TextBox to an
entry composed of at maximum, a single decimal point, digits characters (at
maximum, only two of them after the decimal point) and, at most, a single
currency symbol in character position 1 (with all other keystroke being
rejected)? What about thousands separator characters? Or did you have
something else in mind?

Rick

What does your code do if the user types the following in (parentheses,
dollar signs and all)?

($1,23,,3.4,,,5,,E267$)

Is it what you expected?

Rick



"Mike" wrote in message
...
Rick thanks for the reply
I think I have got it but you may suggest something else

What I have done first is in the AfterUpdate event to takes care of the 99
or 110
dollar entry and turn into $99.00 $110.00
Private Sub txtIQPrice_AfterUpdate()
txtIQPrice.Value = Format(txtIQPrice.Value, "Currency")
End Sub

Then in the button click event I have this code to look at the non numeric
entries
If you think I might be missing something or if you foresee problems
please
give suggestions

Thanks Mike

If IsNumeric(txtIQPrice.Value) = False Then
MsgBox "Must enter a valid dollar amount for" & " " _
& lblIQPrice.Caption & vbCrLf & txtIQPrice.Value _
& " " & "is not a valid entry", vbCritical, "360 Price Matrix"
Exit Sub

"Rick Rothstein (MVP - VB)" wrote:

How can I make sure that currency is only entered into
text box on userform

Do you mean you want to restrict what the user types in the TextBox to an
entry composed of at maximum, a single decimal point, digits characters
(at
maximum, only two of them after the decimal point) and, at most, a single
currency symbol in character position 1 (with all other keystroke being
rejected)? What about thousands separator characters? Or did you have
something else in mind?

Rick