Input Validation Module

Category:

Forms and Controls

Type:

Modules

Difficulty:

Beginning

Author:

Tom McGeehan

Version Compatibility: Visual Basic 6

More information:

Copy All Code into a module. Use like this:

Private Sub Text1_KeyPress(KeyAscii As Integer)
 KeyAscii = VI(KeyAscii, Char) 'allows only characters
End Sub

See the Enum in the declarations for other validation options.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Public Enum InputValidation Numeric = 0 Char = 1 YorN = 2 AlphaNumeric_NoApos = 3 AlphaNumeric_AllowApos = 4 End Enum

Code:

Public Function VI(KeyAscii As Integer, _
                   iv As InputValidation, _
                   Optional NextFieldOnEnter As Boolean) As Integer

Dim sTemp As String

If KeyAscii = 13 Then 'Enter Key
        If NextFieldOnEnter = True Then
            VI = 9 'Return Tab Keyascii if User Selected NextFieldOnEnter Option
        Else
            VI = 13
        End If
        Exit Function
    ElseIf KeyAscii = 8 Then 'BackSpace
        VI = 8
        Exit Function
    End If

' turn input to upper case
    sTemp = UCase(Chr$(KeyAscii))

Select Case iv
        Case 0: 'Numbers Only
            Select Case sTemp
                Case "1", "2", "3", "4", "5", "6", "7", "8", "9", "0", "."
                    VI = Asc(sTemp)
                Case Else
                    VI = 0
            End Select

Case 1: 'Characters Only
            Select Case sTemp
                Case "A" To "Z"
                    VI = Asc(sTemp)
                Case Else
                    VI = 0
            End Select

Case 2: 'Y or N Only
            Select Case sTemp
                Case "Y", "N"
                    VI = Asc(sTemp)
                Case Else
                    VI = 0
            End Select

Case 3: 'AlphaNumeric Only...No Apostrophe
            Select Case sTemp
                Case "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", " "
                    VI = Asc(sTemp)
                Case "A" To "Z"
                    VI = Asc(sTemp)
                Case Else
                    VI = 0
            End Select

Case 4: 'AlphaNumeric Only...With Apostophe
            Select Case sTemp
                Case "1", "2", "3", "4", "5", "6", "7", "8", "9", ".", " ", "'"
                    VI = Asc(sTemp)
                Case "A" To "Z"
                    VI = Asc(sTemp)
                Case Else
                    VI = 0
            End Select
    End Select

If VI = 0 Then Beep

End Function