Tengo un formulario con una serie de cuadros de textos, se requiere que
cambien de color cuando arrojen cifras negativas
RESPONDE MCPEGASUS
==================
En la propiedad formato del Cuadro de Texto ...
#.##0,00;-#.##0,00[Rojo]
Los negativos cambiarán a rojo.
RESPONDE CHEA
=============
Lee la ayuda acerca de Format() y de la propiedad Format. Para campos
numéricos existe la posibilidad de indicarle el color dependiendo de que
sera positivo, negativo o cero.
AMPLIACION BHUO
===============
Format es una función multiuso extremadamante util y aplicable a muchos tipos
de datos: Tipo Fecha, Tipo Numerico etc
En el ejemplo que nos ocupa, se entiende que los cuadros de texto contienen
números.
La ayuda de Access respecto a Format y numeros, dice lo siguiente (Caso que nos ocupa):
Por ejemplo, puede utilizar el siguiente formato Moneda personalizado:
$#.##0,00[Verde];($#.##0,00)[Rojo];"Cero";"Null"Este formato numérico
contiene cuatro secciones separadas por signos de punto y coma y utiliza
un formato diferente para cada sección.
Si utiliza varias secciones pero no especifica un formato para cada sección,
las entradas para las que no hay ningún formato no mostrarán nada o tomarán
como valor predeterminado el formato de la primera sección.
Ejemplo de Format para tipo fechas:
En este ejemplo se muestran varios usos de la función Format para dar formato a valores utilizando formatos definidos por el usuario y formatos con nombre. La verdadera salida formateada presentada por el sistema para el separador de fecha (/), de hora (:) y el literal AM/ PM depende de las configuraciones en ese momento. Cuando las horas y las fechas se vuelven a listar en el entorno de desarrollo, se utilizan los formatos abreviados de hora y de fecha de la configuración regional del código. Cuando son presentados por el código en ejecución, se utilizan los formatos abreviados de fecha y hora de la configuración regional del sistema, los cuales pueden diferir de la configuración regional del código. En este ejemplo se asume que es Inglés/Estados Unidos.
MiHora y MiFecha se presentan en el entorno de desarrollo utilizando configuraciones actuales de fecha corta y hora corta.
Dim MiHora, MiFecha, MiCadena
MiHora = #17:04:23#
MiFecha = #27 enero 1993#
' Devuelve la hora actual del sistema en el formato largo de hora definido por el sistema.
MiCadena = Format(Time, "Long Time")
' Devuelve la fecha actual del sistema en el formato largo de fecha definido por el sistema.
MiCadena = Format(Date, "Long Date")
MiCadena = Format(MiHora, "h:m:s") ' Devuelve "17:4:23".
MiCadena = Format(MiHora, "hh:mm:ss AMPM") ' Devuelve "05:04:23 PM".
MiCadena = Format(MiFecha, "dddd, d mmm aaaa")' Devuelve "Miércoles,
' 27 de Ene de 1993".
' Si no se suministra el formato, devuelve una cadena.
MiCadena = Format(23) ' Devuelve "23".
' Formatos definidos por el usuario.
MiCadena = Format(5459.4, "##,##0.00") ' Devuelve "5.459,40".
MiCadena = Format(334.9, "###0.00") ' Devuelve "334,90".
MiCadena = Format(5, "0.00%") ' Devuelve "500,00%".
MiCadena = Format("HOLA", "<") ' Devuelve "hola".
MiCadena = Format("Esto es", ">") ' Devuelve "ESTO ES".
(
geocities.com/es/ensolva/Descargas) (
geocities.com/es/ensolva) (
geocities.com/es)