Problemas con un TextBox

23/11/2005 - 17:32 por Edison Torres | Informe spam
Tengo un textBox en la cual solo deseo que me ingresen palabras (incluida la
ñ mayuscula y minuscula) y no numero ni espacio en blanco, estoy utilizando
el sgte. codigo pero no me funciona ya que no me permite ingresar palabras,
el codigo que toy usando es:

Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ((KeyAscii < 65 Or KeyAscii > 123) Or (KeyAscii < 113 Or KeyAscii > 106))
Then KeyAscii = 0: MsgBox "El campo sólo debe ser Alfabético"
End Sub

Ademas como hago para que el texto se cambie a mayuscula automaticamente
cuando se escribe en minuscula.
 

Leer las respuestas

#1 Héctor Miguel
23/11/2005 - 20:04 | Informe spam
hola, Edison !

... un textBox... solo... ingresen palabras (incluida la ñ mayuscula y minuscula) y no numero ni espacio en blanco
... el sgte. codigo... no me funciona ya que no me permite ingresar palabras
Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If ((KeyAscii < 65 Or KeyAscii > 123) Or (KeyAscii < 113 Or KeyAscii > 106))
Then KeyAscii = 0: MsgBox "El campo solo debe ser Alfabetico"
End Sub
Ademas como hago para que el texto se cambie a mayuscula automaticamente cuando se escribe en minuscula.



1) yo... dejaria de usar un msgbox y 'ganaria tiempo' [en proceso y respuesta] usando la propiedad 'ControlTipText'
con una 'especie' de aviso que diga [p.e.]: "Introduce solamente letras" ;)
[solo es 'visible' cuando el mouse 'anda por encima' del control] :))

2) puedes 'verificar' una serie de 'caracteres validos' y 'forzar/convertir' la entrada a mayusculas/minusculas con algo +/- como...
en el modulo de codigo del formulario ==Private Sub TextBox9_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If LCase(Chr(KeyAscii)) Like "[a-zñ]" _
Then KeyAscii = Asc(UCase(Chr(KeyAscii))) _
Else KeyAscii = 0
End Sub

saludos,
hector.

Preguntas similares