• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Two lines of codes, one forcing UPPER CASE in text box and one forcing to enter numeric only in tex

Two lines of codes, one forcing UPPER CASE in text box and one forcing to enter numeric only in tex

Two lines of codes, one forcing UPPER CASE in text box and one forcing to enter numeric only in text box

Rate Two lines of codes, one forcing UPPER CASE in text box and one forcing to enter numeric only in tex

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

KeyAscii = IIf(KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyBack, KeyAscii, 0)
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
  ' 97 is lower case a and 122 is lower case z
  KeyAscii = IIf(KeyAscii >= 97 And KeyAscii <= 122, KeyAscii - 32, KeyAscii)
End Sub