TextBox en el cual solo se permita ingresar números o valores

27/03/2007 - 19:00 por Insumos | Informe spam
Hola Gente del Foro:

Tengo un UserForm en el que se encuentre un TextBox que es utilizado para
introducir datos numéricos (por ejemplo importes) los cuales son volcados a
una base con la que luego se realizan operaciones con esos valores
numéricos. Yo quisiera evitar que "por accidente" (o no) se introdujera
algún caracter que no sea un número en ese TextBox, como ser que se ponga
alguna letra o una palabra, lo que provocaria una serie de errores en las
fórmulas ya que esta todo preparado en base a la suposición que solo se
ingresaran valores.
Se me ocurre que se podría hacer que el código, antes de volcar el dato a la
base, se "fije" si es un número. Si es así que siga adelante y si no es así
que tire algún MsgBox pidiendo que por favor se reintroduzca el número
correctamente. Alguna sugerencia de como seria este código?
Pero tal vez exista la posibilidad (que no lo sé) de "trabar" el ingreso de
caracteres no númericos (excepto el punto decimal) y directamente al teclear
una letra, por ejemplo, esta no sea introducida en el TextBox. Algo así como
que en el TextBox solo se ingrese lo que se teclea en el teclado numérico.
Espero que mi explicación haya sido clara. Desde ya muchas gracias!
Saludos!

Mariano

CONTADURIA

Preguntas similare

Leer las respuestas

#1 Abraham
27/03/2007 - 21:53 | Informe spam
Respuesta Responder a este mensaje
#2 Insumos
27/03/2007 - 22:35 | Informe spam
Hola Abraham:

Muchas gracias!! Es exactamente lo que yo queria. Con la pequeña salvedad
que el código no me permitía introducir el "-" para admitir números
negativos, lo que solucioné con un sencilla modificación. A continuación
expongo el código que admite solo introducir números, "." (para los
decimales) y "-" (para los negativos) en un TextBox llamado TextBox1 por si
a alguien le sirve.

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Not (KeyAscii >= 48 And KeyAscii <= 57) And KeyAscii <> 46 And
KeyAscii <> 45 Then
MsgBox prompt:="Sólo se admiten números y el punto decimal.",
Buttons:=vbInformation + vbOKOnly
KeyAscii = 0
End If
End Sub

Nuevamente Muchas Gracias y Saludos!!

Mariano

"Abraham" escribió en el mensaje
news:
Mira esta opcion:




http://groups.google.com/group/micr...read/threa
d/c04b6de3e97730eb/63434f16cfe65896?lnk=gst&q=solo+numeros+textbox&rnum=2&hl
=es#63434f16cfe65896

Abraham

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida