View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
Brad Brad is offline
external usenet poster
 
Posts: 846
Default Last item on a userform

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