VALIDACION
Publicado por CLARA (4 intervenciones) el 09/06/2008 02:17:34
BUENAS TARDES, NECESITO AYUDA CON MI VALIDACION DE CAJAS DE TEXTO, TENGO VALIDADAS LAS CAJAS DE TEXTO PARA FECHAS, PARA QUE NO QUEDE VACIA O SEA FECHA FUTURA, EL PROBLEMA ES QUE ES CUANDO QUIERO DAR CLIC EN EL BOTON SALIR NO ME DEJA SALIR A MENOS QUE ESCRIBA ALGUN CARACTER EN LA CAJA DE TEXTO Y YO QUIERO PODER SALIR SIN TENER QUE ESCRIBIR NADA....
AQUI DEJO EL CODIGO QUE USO EN EL EVENTO VALID
bandera=0
if ENTER=1 or len(alltrim(dtoc(this.value)))=10
If this.value ={ / / }
messagebox("Dame Datos Correctos Para La Fecha"+CHR(13)+CHR(13)+;
"Fecha De Ingreso Es DD,MM,AAAA",0," < < E r r o r > > ")
this.value= { / / }
bandera=0
return.f.
else
if this.value <B
messagebox("Dame Datos Correctos Para La Fecha"+CHR(13)+CHR(13)+;
"No puede escribir una Fecha anterior a la primera",0," < < E r r o r > > ")
this.value={ / / }
bandera=0
return.f.
else
bandera=1
return.t.
endif
endif
endif
GRACIAS
AQUI DEJO EL CODIGO QUE USO EN EL EVENTO VALID
bandera=0
if ENTER=1 or len(alltrim(dtoc(this.value)))=10
If this.value ={ / / }
messagebox("Dame Datos Correctos Para La Fecha"+CHR(13)+CHR(13)+;
"Fecha De Ingreso Es DD,MM,AAAA",0," < < E r r o r > > ")
this.value= { / / }
bandera=0
return.f.
else
if this.value <B
messagebox("Dame Datos Correctos Para La Fecha"+CHR(13)+CHR(13)+;
"No puede escribir una Fecha anterior a la primera",0," < < E r r o r > > ")
this.value={ / / }
bandera=0
return.f.
else
bandera=1
return.t.
endif
endif
endif
GRACIAS
Valora esta pregunta


0