• Home
 · 
• Miscellaneous
 · 
• Checks the ASCII code to validate characters.

Checks the ASCII code to validate characters.

Checks the ASCII code to validate characters.

Rate Checks the ASCII code to validate characters.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim intASCII As Integer
    
    intASCII = Asc(strChar)
    
    'The following are the accepted characters in the ID field.
    '45--> "-"
    '48-57-->"0-9"
    '65-90 -->"A-Z"
    '95-->"_"
    '97-199-->"a-z"
    
    If (intASCII = 45) Or (intASCII > 47 And intASCII < 58) Or (intASCII > 64 And intASCII < 91) Or (intASCII = 95) Or (intASCII > 96 And intASCII < 123) Then
    Else
        Check_ASCII = True
    End If
    
End Function