Restrict Characaters in a text box

[Benwatson]

So i have a text box called Description. this is the only text box in which they would add alphabetical characters. if they where to put an incorrect character such as a ' then i would stop the macros that sends the data to a table :/

i need a way of restricting such characters

any ideas please

 

[sneuberg]

There's several way of handling this. I suggest looking at an input mask first.

 

[MarkK]

You can also handle the KeyPress event, and for selected characters, change the value of the keyascii parameter, like...

Private Sub Text5_KeyPress(KeyAscii As Integer)
    Select Case Chr(KeyAscii)
        Case "0" To "9", "'", """"
            KeyAscii = 0
    End Select
End Sub

...so that simply cancels all numbers and quotes.

 

[Benwatson]

mark-Thanks that worked a treat

steve- was unable to work the input mask but thanks for the suggestion

 

[sneuberg]

I don't believe the KeyPress event is fired when someone pastes data into a textbox so you might want to supplement MarkK's code with beforeupdate code that checks the input for invalid characters.