Programación General > Visual Basic 6.0 e inferiores

 Re: Campo Númerico

(1/1)

FRIJU:
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:

Jessuss:
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:

Jessuss:
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

FRIJU:
Muchas gracias!!!
:jumpie:

Navegación

[0] Índice de Mensajes