Problema con if

Hola a todos,
qué hay de malo en:

If Not IsEmpty(FrmInici.TxtTelf.Text) And Not
IsNumeric(FrmInici.TxtTelf.Text) Then

para qué no me lo haga correctamente? Lo que quiero es que si el campo
no es vacío y no es numérico, me de un error, pero no consigo hacer bién
el if

Gracias y saludos

Hola!

Porque no lo pones asi?

if FrmInici.TxtTelf.Text.Lenght = 0 AndAlso
IsNumeric(FrmInici.TxtTelf.Text) = False Then
' Hacer saltar el error

end if

Saludos
Roberto M. Oliva


ccm1714 ha escrito:

Hola a todos,
qué hay de malo en:

If Not IsEmpty(FrmInici.TxtTelf.Text) And Not
IsNumeric(FrmInici.TxtTelf.Text) Then

para qué no me lo haga correctamente? Lo que quiero es que si el campo
no es vacío y no es numérico, me de un error, pero no consigo hacer bién
el if

Gracias y saludos

A lo mejor ando espeso, pero tu rutina Roberto, creo que no funcionaría.

Si ponemos el carácter 'a' no daría error. Creo que en lugar de AndAlso
deberías indicar OrElse, de todos los modos, seguiría dando error en el caso
de que la cadena tenga longitud 0 o tenga un espacio en blanco.

Bajo mi punto de vista, la rutina que funcionaría sería la siguiente (por
ejemplo):

If texto.Trim.Length > 0 And Not IsNumeric(texto) Then
MessageBox.Show("error catacrash")
End If

Espero que ayude.

Un saludo.
Jorge Serrano Pérez
Microsoft MVP VB.NET
PortalVB.com
http://www.portalvb.com/
Blog de Jorge Serrano
http://geeks.ms/blogs/jorge/default.aspx


"Roberto M. Oliva" wrote:

>
> Hola!
>
> Porque no lo pones asi?
>
> if FrmInici.TxtTelf.Text.Lenght = 0 AndAlso
> IsNumeric(FrmInici.TxtTelf.Text) = False Then
> ' Hacer saltar el error
>
> end if
>
> Saludos
> Roberto M. Oliva
>
>
> ccm1714 ha escrito:
> > Hola a todos,
> > qué hay de malo en:
> >
> > If Not IsEmpty(FrmInici.TxtTelf.Text) And Not
> > IsNumeric(FrmInici.TxtTelf.Text) Then
> >
> > para qué no me lo haga correctamente? Lo que quiero es que si el campo
> > no es vacío y no es numérico, me de un error, pero no consigo hacer bién
> > el if
> >
> > Gracias y saludos
>
>

Hola!

Porque no lo pones asi?

if FrmInici.TxtTelf.Text.Lenght = 0 AndAlso
IsNumeric(FrmInici.TxtTelf.Text) = False Then
' Hacer saltar el error

end if

Saludos
Roberto M. Oliva


ccm1714 ha escrito:

Hola a todos,
qué hay de malo en:

If Not IsEmpty(FrmInici.TxtTelf.Text) And Not
IsNumeric(FrmInici.TxtTelf.Text) Then

para qué no me lo haga correctamente? Lo que quiero es que si el campo
no es vacío y no es numérico, me de un error, pero no consigo hacer bién
el if

Gracias y saludos

Hola de nuevo,
no me deja poner ésto con el vb 6.0. No existe la propiedad Lenght. La
verdad es que no encuentro ningua que me devuelva el número de caracteres

Saludos y gracias

En/na Roberto M. Oliva ha escrit:
> Hola!
>
> Porque no lo pones asi?
>
> if FrmInici.TxtTelf.Text.Lenght = 0 AndAlso
> IsNumeric(FrmInici.TxtTelf.Text) = False Then
> ' Hacer saltar el error
>
> end if
>
> Saludos
> Roberto M. Oliva
>
>
> ccm1714 ha escrito:
>
>>Hola a todos,
>>qué hay de malo en:
>>
>>If Not IsEmpty(FrmInici.TxtTelf.Text) And Not
>>IsNumeric(FrmInici.TxtTelf.Text) Then
>>
>>para qué no me lo haga correctamente? Lo que quiero es que si el campo
>>no es vacío y no es numérico, me de un error, pero no consigo hacer bién
>>el if
>>
>>Gracias y saludos
>
>