Macro to restrict user to enter double quotes in text box

[Dhamo]

Hi,


This is my code.


Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii

Case Asc(":"), Asc("?"), Asc("*"), Asc("<"), Asc(">"), Asc(""), Asc("/"), Asc("|") ', Asc(""")

KeyAscii = 0

End Select

End Sub


If I uncomment for ", I am getting error. I need to fix this. I tried Chr(34) also. But vain. Pls help.

 

[shrivallabha]

You need to add one more quote like this:

[pre]

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(":"), Asc("?"), Asc("*"), Asc("<"), Asc(">"), Asc(""), Asc("/"), Asc("|"), Asc("""")
KeyAscii = 0
End Select
End Sub
and also try chr(34) as below:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(":"), Asc("?"), Asc("*"), Asc("<"), Asc(">"), Asc(""), Asc("/"), Asc("|"), Asc(Chr(34))
KeyAscii = 0
End Select
End Sub

[/pre]

 

[Dhamo]

It worked. Thanks.!