• Home
 · 
• String Manipulation
 · 
• Accept Upper Character only.

Accept Upper Character only.

Accept Upper Character only.

API Declarations



It is just a function. make use of this code in the module



Rate Accept Upper Character only.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim Char As String
    If (KeyAscii > 96 And KeyAscii <= 122) Or (KeyAscii >= 65 And KeyAscii
                       < 91) Or KeyAscii = 39 Then
         Char = Chr$(KeyAscii)
         AcceptChar = Asc(Char)
    ElseIf KeyAscii = 8 Or KeyAscii = 32 Then
         AcceptChar = KeyAscii
    Else: KeyAscii = 0
    End If
    
End Function