Text inputs in lower case

[skippypaul]

I am a VB beginner and trying to get a client name entering text box to only accept alphabetic inputs. The box accepts UpperCase (Capital) inputs (using &quot;KeyASCII >=A or KeyASCII <=Z), but I cannot work out how to get it to accept lower case. The same code with lower case letters does not work.

 

[ADoozer]

lowercase alpha characters

if keyascii>=97 and keyascii<=122 then

uppercase alpha characters

if keyascii>=65 and keyascii<=90 then

 

[johnwm]

You may also want to allow backspace (keyascii = 8)
________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'People who live in windowed environments shouldn't cast pointers.'

 

[Digimon02]

skippypaul

try this code...

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case UCase(Chr(KeyAscii))
Case &quot;A&quot; To &quot;Z&quot;, Chr(vbKeyBack), Chr(vbKeySpace) 'Allowed
Case Else
KeyAscii = 0
End Select
End Sub


hope i help you...

Tholits

 

[Transcend]

Also if you want to allow fullstops, comma's or punctuation ....

Transcend