Format Validation of a Form Input Box

[NSN_VBA]

Hi,

I have created a form where I would like to validate the information entered in the input box is a specific format.

The format I am trying to confirm is that it is fixed, i.e. "[FONT=&quot]Display at least one digit to the left and two digits to the right of the decimal separator."[/FONT]

Here is what I have written, but it doesn't seem to work;

If Not Format(TargetDiameter, "Fixed") Then
Call TargetDiameterShowError("Incorrect Format!")
Cancel = True
End If

Please would you be able to help?

Thanks

 

[Fluff]

How about

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   If Not Me.TextBox1.Value Like "*#.##" Then
      Call TargetDiameterShowError("Incorrect Format!")
      Cancel = True
   End If
End Sub

 

[mikerickson]

How about just fixing the format rather than nagging the user

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
   TextBox1.Text = Format(Val(TextBox1.Text), "0.00")
End Sub

 

[NSN_VBA]

Thanks guys, both scenarios worked great! I appreciate your help

 

[Fluff]

Glad we could help & thanks for the feedback