Here's a validation function used to verify numeric values. The code
checks for null values, non-numeric values and negative values and returns an identifier,
to report the level of success and provide a means to generate appropriate error messages.
The following code should be added as a form or standard module function:
Public Function ValidateNum(CheckValue As String) As Integer
'*******************************************************
'<DESC> Validates numeric values passed
' to function</DESC>
'<RETURN> Integer value pertaining to level of
' success</RETURN>
'<ACCESS> Public
'<ARGS> CheckValue: Numeric value for interrogation
<ARGS>
'<USAGE> See below:</USAGE>
'*******************************************************
'0 - OK
'1 - no value
'2 - non numeric value
'3 - negative value
'4 - unknown error
On Error GoTo ErrorHandler
If CheckValue = "" Then
ValidateNum = 1
Exit Function
End If
If Val(CheckValue) <> CheckValue Then
ValidateNum = 2
Exit Function
End If
If CheckValue < 0 Then
ValidateNum = 3
Exit Function
End If
ValidateNum = 0
Exit Function
ErrorHandler:
If Err.Number = 13 Then
ValidateNum = 2
Else
ValidateNum = 4
End If
End Function
An example of the code used to call the Validation function is shown below:
Private Sub cmdValidate_Click()
Select Case ValidateNum(txtValueEntry.Text)
Case 0
'passed validation check
Case 1
Msgbox "No Value Entered"
Case 2
Msgbox "Non-numeric Value Entered"
Case 3
Msgbox "Negative Value Entered"
Case 4
Msgbox "Please Check Value Entered"
End Select
End Sub
|
