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

Por que con esto MsgBox "&text_color. Text&" lo que estas haciendo es que te imprima &text_color. Text& por que sta dentro de las comillas

/*

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?

*/

Se puede hacer de las dos formas, con Access en el campo que sea unico y en visual basic despues de introducir el texto hay que hacer una consulta a la base de datos y checar si ya existe

/*

*/

Cambiales de nombre control por control

/*

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

*/

En vez de text box usa un maskedit y donde lo encuentras pues buscalo en controles active X

Para validar campos debes comparar lo que ingresas y lo que hay en la base de datos lo puedes hacer con un while y el next to
y claro la condicion if

Para validar usuari y contraseña utiliza el if
if (usuario=""){
msgbox "llenar campos"
}else{
if(contraseña="")
{
msgbox "llenar campos"
}else{
//envia a la paguina que desees
}

/*

*/

No se aceptan ms preguntas aquí