• Home
 · 
• Miscellaneous
 · 
• Function to validate and allow only Alpha Numeric - not allowing to enter Special characters

Function to validate and allow only Alpha Numeric - not allowing to enter Special characters

Function to validate and allow only Alpha Numeric - not allowing to enter Special characters

Rate Function to validate and allow only Alpha Numeric - not allowing to enter Special characters

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub txtAlphNumeric_KeyPress(KeyAscii As Integer)
    KeyAscii = fnAlfaChk(KeyAscii)
End Sub

'to allow the dbl data input
Public Function fnAlfaChk(keyAsc As Integer) As Integer
    If keyAsc = 8 Then
        fnAlfaChk = keyAsc
        Exit Function
    End If
    If InStr("abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.-+_*?><| ", Chr(keyAsc)) <> 0 Then
        fnAlfaChk = keyAsc
    Else
        fnAlfaChk = 0
    End If
End Function