[SOLVED]Easy! Restrict textbox to just numbers and letters.

[squakMix]

I know this is an easy one. I have found the answere, but It wasnt quite what i wanted, and it didnt work for me. Can I have some quick help thanks!

[Bruce Fox]

Post the code you think is close, and identify the deficiencies.

(This question has been answered many, many times before)



Bruce.

[squakMix]

This code doesnt work. When i enter a normal character into the textbox, it shows nothing:

Private Sub Text2_KeyPress(KeyAscii As Integer)
    If Not (KeyAscii > 47 And KeyAscii < 58) Or (KeyAscii > 64 And     KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Or (KeyAscii = 95) Then
     KeyAscii = 8
   End If

I also want to be able to do NON upper case letters also.

[Bruce Fox]

You wern't evaluating all other NOT's, so try:

Option Explicit
 
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii > 47 And KeyAscii < 58) Or (KeyAscii > 64 And KeyAscii < 91) Or (KeyAscii > 96 And KeyAscii < 123) Or (KeyAscii = 95)) Then
        KeyAscii = 0
    End If
End Sub

Bruce.

[squakMix]

Thanks. That's what i needed.

[Bruce Fox]

To clarify: I enclosed the whole 'Or AND' structure (with ()), and if that
was evaluated, then send KeyAscii = 0.


Bruce.

[Bruce Fox]

Although that works for the user typing in the TextBox, you should also check the data thats Cut 'n' Pasted!


One (probably the best) method is to use the Text2_Validate() Event, and if there is an unwanted character, then highlight it and
set the Validation's Cancel = False (kepping the Focus in the TextBox until its correct)


Bruce.

[squakMix]

with the coding you sent me, the user CANT cut and paste! it doesnt allow for ctrl.

[squakMix]

...If the user uses the mouse, I have coding that says something like "If len(text2.text) = 0 then"...

[Bruce Fox]

Originally posted by squakMix
with the coding you sent me, the user CANT cut and paste! it doesnt allow for ctrl.

Ahhh, I should have checked that

[Bruce Fox]

Originally posted by squakMix
...If the user uses the mouse, I have coding that says something like "If len(text2.text) = 0 then"...

Not too sure if you indend that (above) to counter the use of the Mouse|Paste....

I was able to paste unwanted characters using the Right Mouse Button.

Again, you may have taken care of that.

[squakMix]

yea, My actual Coding Has MANY more lines.