Private Sub textAdjust_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Me.textAdjust.Value = Format(Me.textAdjust.Value, "$#,###,###.00")
'checks to see if adj amount is less than $150
If Me.textAdjust.Value > "150" Then
MsgBox "Adjustment amount should be $150 or Less. Please check the amount entered."
Me.textAdjust.Value = ""
End If
End Sub
If you need text in this field, convert it after IF
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
From novice to tech pro — start learning today.
Open in new window
Regards,Brian.