Autor Tema: Re: Campo Númerico (Leído 955 veces)

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

Jessuss · « **Respuesta #1 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.

Jessuss · « **Respuesta #2 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

FRIJU · « **Respuesta #3 en:** Jueves 22 de Mayo de 2003, 16:38 »

Muchas gracias!!!