Autor Tema: Validacion De Datos (Leído 4522 veces)

Miguelencho · « **en:** Viernes 7 de Mayo de 2004, 23:17 »

Estimados amigos, mas preguntas jeje, si quiero validar los datos que se introducen en un textbox para que cuando mis varibles la recojan para hacer operaciones no mande error el programa

como diferencio si el usuario introdujo una cadena de caracter o un numero entero

quiero hacer algo asi

dim cantidad as integer
cantidad = txtlectura.text
if cantidad (aqui esta el problema)
msgbox (blablabla)

como hago para saber si el usuario introdujo los datos correcots

Juanolo · « **Respuesta #1 en:** Viernes 7 de Mayo de 2004, 23:25 »

En principio, se me viene a la mente la función Isnumeric().
If Isnumeric(text1.text) then
'Es Numero
else
'Es Texto
end if

Independientemente, claro está, de que primero valides que haya algo en el cuadro de texto.

Debes considerar, además, la posibilidad de usar un control Maskedbox en lugar de un cuadro de texto. Así te asegurarías de que el usuario sólo pueda ingresar números (entre otras condiciones que le puedes dar)

Espero sirva.

elmango80 · « **Respuesta #2 en:** Sábado 8 de Mayo de 2004, 02:40 »

El problema de utilizar Isnumeric es que si text1.text es igual a 123a te lo va a tomar como falso osea que es una palabra, lo cual es falso...

Otra cosa, si solamente quieres que el usuario pueda introducir numero y no quieres utilizar un MaskEdit sino un TextBox comun y corriente entonces utiliza el siguiente codigo...

Código: Text

 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strNumeros As String
    
    strNumeros = &#34;1234567890&#34; & Chr(8)
    If InStr(1, strNumeros, Chr(KeyAscii), vbBinaryCompare) = 0 Then
        KeyAscii = 0
    End If
End Sub
 
 

Shiquilla · « **Respuesta #3 en:** Sábado 8 de Mayo de 2004, 12:04 »

Yo utilizo este código, si el carácter que ha metido no es un Número le saco un Beep (sonido vaya).

Código: Text

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If KeyAscii &#60;&#62; 8 Then
      If Not IsNumeric(Chr(KeyAscii)) Then
         Beep
         KeyAscii = 0
      End If
   End If
End Sub
 

Suerte.

general · « **Respuesta #4 en:** Lunes 17 de Mayo de 2004, 04:36 »

Un Saludo a Todos

..

- Desearia conocer un procedimiento para evitar que el usuario escriba como primer caracter el "0"

por ejemplo: no permitir la cadena numerica "034" forzando al usuario
a escribir "34"

Gracias por su atencion.

pd. faltó agregar a sus soluciones el punto decimal "."

elmango80 · « **Respuesta #5 en:** Lunes 17 de Mayo de 2004, 07:05 »

Hola general!

Si quieres validar que no se pueda introducir el 0 como primer numero y tambien quieres validar los decimales, entonces no podras introducir ningun numero comprendido entre 0 y 0,9999 ... asi que no deberias validar que el primer numero sea 0... De todos modos aqui esta el codigo que querias pero con ese detalle.

Código: Text

 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim strNumeros As String
   
    strNumeros = &#34;1234567890.,&#34; & Chr(8)
    If Len(Text1.Text) = 0 And Chr(KeyAscii) = 0 Then
        KeyAscii = 0
    Else
        If InStr(1, strNumeros, Chr(KeyAscii), vbBinaryCompare) = 0 Then
            KeyAscii = 0
        End If
    End If
 
End Sub
 
 

SoloCodigo

Autor Tema: Validacion De Datos (Leído 4522 veces)

Miguelencho

Validacion De Datos

Juanolo

Re: Validacion De Datos

elmango80

Re: Validacion De Datos

Shiquilla

Re: Validacion De Datos

general

Re: Validacion De Datos

elmango80

Re: Validacion De Datos