Hola Adriana.

En VB es muy facil validar si una entrada es numérica, se comprueba el valor de la tecla pulsada (KeyAscii).

Ejemplo: Permitir solo valores numéricos

En la función KeyPress de la caja de texto

Private Sub Text1_KeyPress(KeyAscii As Integer)
     If IsNumeric(Text1. Text) = False Then
         KeyAscii=0    
      end if
end sub

Cada tecla contiene un valor KeyAscii o KeyCode, en este caso compruebas el valor de KeyAscii y si no es numérico le asignas el valor 0 y es como si no se hubiese pulsado.

Otra función muy util que utilizo en mis aplicaiones.

Con esta función evito en una caja que solo permite valores numéricos que se pueda escribir dos veces el símbolo decimal.

Function Contiene_Decimal(Cadena As String) As Boolean
Dim mCadena As String
Dim i As Integer
For i = 1 To Len(Cadena)
 mCadena = CStr(Mid$(Cadena, i, 1))
 If mCadena = "," Then
  Contiene_Decimal = True
  Exit Function
 End If
Next i
End Function

Y se aplica del siguiente modo:

Private Sub Text1_KeyPress(KeyAscii As Integer)
     if KeyAscii=44 then
         If Contiene_Decimal(Text1. Text) = True Then KeyAscii=0
         end if
end sub

Espero te sirva mi explicación y los ejemplos.

Atentamente, Juanma

Te pongo otro ejemplo de como validar cualquier caracter intruducido en un TextBox.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim vbConts As Integer

Select Case KeyAscii

Case Asc(0) To Asc(9)
 
Case Asc("a") To Asc("z")
 
Case Asc("A") To Asc("Z")
 
Case Asc("ñ")
 
Case Asc("Ñ")
 
Case 46     "//Tecla Punto
 
Case vbKeyBack    "// Valor 8 Tecla retroceso
 vbConts = vbKeyBack

Case 44    "//Tecla coma

Case 45     "//Tecla -
 
Case Else

End Select

End Sub

Puedes utilizar los valores numéricos(44,45,etc. ) como Constantes de códigos de tecla

Esto es una muestra, mira en la ayuda de VB.

Atentamente, Juanma.

doble clic en el text

pasa en declaraciones al evento keypress

" el codigo es:"

select case keyascii

case 68 to 90

case 97 to 122

case 8

case 32

case else

msgbox "solo letras"

keyascii=0

end select

Hola tengo un formulario y salo quiero el valor que introduje le pongo MsgBox "text_color. Text" o

MsgBox "&text_color. Text&"

Y me imprime el String completo +

Gracias por su ayuda

Que no permita ingresar letras solo numeros

Hola necesito ayuda ya que tengo que rediseñar mi proyecto(un sistema de inventario en vb6. 0) y me dijeron que use sstab con varias pestañas pero ya los formularios estan codificados y nose como mandarlos a llamar es que la mayoria de los controles tienen el mismo nombre. Ayudenme.

Hola, disculpen... Ojala alguien me pueda ayudar...
necesito validar fechas en un textbox, no tiene que ver con bases de datos, solo en Visual Basic..

gracias!

Bien antes que nada un saludo, necesito sabes que posibilidades o que me sugieren estoy haciendo un programa con VB6 y base de datos access 2003 y en uno de los campos no puedo dejar que se repitan los numeros, en este caso les dejo un ejemplo, el campo requiere de un numero de operacion generado por otro programa pero este no a su vez(en el formulario) que no permita que se repita el numero de operacion y en este caso al ingresarlo en la base de dato que notifique que ya existe, habra alguna manera de hacer eso en access o en VB?

Soy mayra espero que e ayude sip

Hola una consulta quiero saber por favor lo mas urgente como puedo ingresar en un textbox los numeros de 0 hasta el 20 es un rango