B
Brad
I have multipage userform that has three input items on one page
When I enter a valid number on the last item, it doesn't do anything until I
click somewhere else. When I input a valid number on the other two items,
the logic formats the numbers correctly. How do I get the last field to
format, without clicking the mouse? Code found below -
Sub txbP20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call FaceLimitCheck(txbP20)
End Sub
Sub txbP30_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call FaceLimitCheck(txbP30)
End Sub
Sub txbP65_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call FaceLimitCheck(txbP65)
End Sub
Sub FaceLimitCheck(Facecheck)
If Not (Facecheck = vbNullString) Then
If Not (IsNumeric(Facecheck)) Then
MsgBox ("Invalid entry please use numbers")
Facecheck.Value = ""
Facecheck.SetFocus
Else
If Facecheck < 25000 Then
MsgBox ("Minimum face amount is 25,000")
Facecheck.Value = ""
Else
Facecheck.Value = Format(Facecheck, "$ #,##0,000")
End If
End If
End If
Call CheckTotalFace
End Sub
When I enter a valid number on the last item, it doesn't do anything until I
click somewhere else. When I input a valid number on the other two items,
the logic formats the numbers correctly. How do I get the last field to
format, without clicking the mouse? Code found below -
Sub txbP20_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call FaceLimitCheck(txbP20)
End Sub
Sub txbP30_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call FaceLimitCheck(txbP30)
End Sub
Sub txbP65_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call FaceLimitCheck(txbP65)
End Sub
Sub FaceLimitCheck(Facecheck)
If Not (Facecheck = vbNullString) Then
If Not (IsNumeric(Facecheck)) Then
MsgBox ("Invalid entry please use numbers")
Facecheck.Value = ""
Facecheck.SetFocus
Else
If Facecheck < 25000 Then
MsgBox ("Minimum face amount is 25,000")
Facecheck.Value = ""
Else
Facecheck.Value = Format(Facecheck, "$ #,##0,000")
End If
End If
End If
Call CheckTotalFace
End Sub