Coding data validation for a decimal .89 for form field

[GinaFlan]

If IsNumeric(Me.TxtActualBenchmark) = "False" _
And txtBenchmarks.Value = "89% of free/reduced applicatin measured at month end" Then


Me.TxtActualBenchmark.Undo
MsgBox "Please enter a decimal", _
vbInformation, "Missing Information"
Exit Sub
End If


The answer needs to be .## so the conditional formatting in my report will work. How can I force the user to put a decimal with his answer? The department head wants a validation on every benchmark in my form and the results vary. So I realize If IsNumeric would not work. If I get this right I may almost be finished.

[June7]

If it matters, "application" is misspelled in the text. Could use: txtBenchmarks Like "89%*"

Could try setting Validation Rule property for textbox: <0
And set the Validation Text property for whatever message you want.
Then Access will nag the user until they get it right.

Is this also required data? Set the field in table as required and again, Access will nag the user until they enter data. Or use code in form BeforeUpdate event to determine if data entered and if not, cancel the update and return user to the record.

[Missinglinq]

Your code and your explanation, taken together, is somewhat confusing to me; that's probably just me, but in answer to your question:

How can I force the user to put a decimal with his answer?

you can use the BeforeUpdate event that June7 mentioned:

Private Sub txtBenchmarks_BeforeUpdate(Cancel As Integer)
 If InStr(Me.txtBenchmarks, ".") = 0 Then
   MsgBox "Please enter a decimal", vbInformation, "Missing Information"
   Cancel = True
   Me.txtBenchmarks = Null 
 End If
End Sub

And FYI, IsNumeric() returns a Boolean value, not a String, so

IsNumeric(Me.TxtActualBenchmark) = "False"

would need to be

IsNumeric(Me.TxtActualBenchmark) = False

without the Quotes.

Linq ;0)>

[GinaFlan]

Ah ok thank you trying it out now

[GinaFlan]

You guys are great. The decimal code worked

If InStr(Me.TxtActualBenchmark, ".") = 0 And Me.txtBenchmarks.Value = "89 percent of free and reduced applications measured at month end" Then
MsgBox "Please enter a decimal", vbInformation, "Missing Information"
Cancel = True

Exit Sub
End If


Thank you Wonderful