Hola a todos!!


Soy nuevo en VB y necesito un poco de ayuda aqui...creo yo... muy basica para usuarios expertos en Visual Basic...necesito validar unas cuantas cajas de texto...ejemplo: en una caja de texto donde necesito ingresar un numero telefonico no debe permitir caracteres y en otra caja de texto donde necesito ingresar un nombre no debe permitir valores numericos...espero ser claro en mi peticion...de antemano muchas gracias

No batalles, usa MaskedEdBox agrega ese componente, se llama Microsoft Masked Edit Control

bye salu2 a to2

OK..GRACIAS.!! pero??....


solo lo agrego??...a que parte?? lo inluye el VB?

Esos son componentes que trae VB, para acersar a ellos te vas al menú Proyecto escojes Componentes o bien presionas Ctrl T, y luego buscas de la lista:


Microsoft Masked Edit Control 6.0


Luegocreas uno enel form y para efectos practicos, le das click derecho y escojes propiedades

Ok...gracias!!..lo he ingresado a mi formulario...me imagino que debo manipular sus propiedades para lograr las validaciones que necesito...le he intentado pero aun no puedo lograr que solo el campo sea numerico o de caracter...que propiedad debo modificar o codigo ingresar??..


muchisimas gracias..yorch & Jamec

La verdad no he utilizado el Microsoft Masked Edit Control ahora que lo mecionaron lo intente manipularlo para lo mismo que quiere hacer Misterioso pero bueno espero te sirva de ayuda esto le das doble click a la caja de texto y le pones ya sea en el evento click o el validate creo que funciona en los dos


If Not IsNumeric(Text1.Text) Then
MsgBox "Solo Numeros"
End If


y para la caja que solo lleva letras pues le cambias en


If IsNumeric(Text1.Text) Then
MsgBox "Debe de ser letras"
End If


me parece que asi lo hace intentale

tambien puedes provar otra cosa. En el evento KeyPress del cuadro de texto puedes poner esto:

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then KeyAscii = 0

Utilizando el codigo Ascii de los caracteres/numeros, puedes hacer una discriminacion. De esta manera que te he puesto solo te permite escribir numeros y presionar la tecla BackSpace (borrarlos).
Si quieres que solo te escriba texto no numerico, buscas el codigo ascii de los caracters de a-z y de A-Z y simbolos si quieres. Espero que se haya entendido

MIL GRACIAS nam85 & skinet!!


probé de las dos maneras y funcionan....vaya que me han ayudado en mucho...

Esta es otra manera y lo mandas a llamar como funcion, y ya


'Numeros


Function SoloNumEnt(ByVal keyascii As Integer) As Integer
'permite que solo sean ingresados los numeros, el ENTER y el RETROCESO
If InStr("0123456789", Chr(keyascii)) = 0 Then
SoloNumEnt = 0
Else
SoloNumEnt = keyascii
End If
' teclas especiales permitidas
If keyascii = 8 Then SoloNumEnt = keyascii ' borrado atras
If keyascii = 13 Then SoloNumEnt = keyascii 'Enter
End Function


'Para las letras o cualquier cosa solo borra "0123456789" esa parte y pon las letras que necesites "abcde" Por ejemplo, ojala y tambien te sirva esta forma

if text1.format<> "texto" then


msgbox "formtato decampo incorrecto", vbokonly + vbexclamation, "mensage de error"


else


with adodc1


.fields "campo" = text1.text


.update


end with


end if