SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Jueves 22 de Mayo de 2003, 15:53

Título: Re: Campo Númerico
Publicado por: FRIJU en Jueves 22 de Mayo de 2003, 15:53
Hola a Tod@s!

    Como se puede controlar que el campo que se introduce es númerico.
Yo lo he hecho así, pero no es del todo correcto,:
'* Pasamos el valor asci para controlar que el dato sea númerico
IntNumero = Asc(Me.TxtCad)

If IntNumero < 48 Or IntNumero > 57 Then
    MsgBox "El valor del campo debe de ser númerico", vbExclamation, "Introdución de Horas"
    Else
    Call ValidacionCamposHoras
    Call SumaHorasProyecto
End If

:kicking:
Título: Re: Campo Númerico
Publicado por: Jessuss en Jueves 22 de Mayo de 2003, 16:33
Para controlar si un campo es numerico o no usa la funcion IsNumeric, devuelve True si es numero o False si no lo es. Mira en la ayuda de Visual, verás.

Sería:
If IsNumeric(txt.Text) = true then
MsgBox "El valor del campo debe de ser númerico", vbExclamation, "Introdución de Horas"
end if


Saludos.:jumpie:
Título: Re: Campo Númerico
Publicado por: Jessuss en Jueves 22 de Mayo de 2003, 16:36
Perdona en la condicion que he puesto me he colao es:

If IsNumeric(txt.Text) = false then
MsgBox "El valor del campo debe de ser númerico", vbExclamation, "Introdución de Horas"
end if


Saludos
Título: Campo Númerico
Publicado por: FRIJU en Jueves 22 de Mayo de 2003, 16:38
Muchas gracias!!!
:jumpie: