Look at the isnumeric vba function.

? isnumeric("+123.23456789")
True
? isnumeric("-123.445")
True
? isnumeric("21/7")
False
? isnumeric("")
False
? isnumeric("123.456.789")
False
? isnumeric("-3")
True

--
Regards,
Tom Ogilvy

"Carlee" wrote:

hi there,

I use the following code to make sure that all required fields are complete
prior to commiting data to my master log.

Question: I want to use this code to check that all numeric fields contain
only numeric data (postive, negative, whole and decimals). I have modified
the numeric field names to 'txtNear_Miss_num" to flag all numeric text boses.

Can anyone help with the code on this?


For Each ctrl In frmRaglanDailyInput.Controls
If TypeOf ctrl Is msforms.TextBox Then
If ctrl.Value = "" And ctrl.Name Like "*1*" Then
MsgBox "Missing Data in " & ctrl.Name
Exit Sub
End If
End If
Next

--
Carlee