Access - Propiedades de la fuente

   
Vista:

Propiedades de la fuente

Publicado por Sara (171 intervenciones) el 08/04/2013 20:27:10
Buenas.

Estoy intentando hacer un código, de manera que cuando la longitud del campo (Campo1 tamaño 70caracteres) vaya sobrepasando ciertos valores, el tamaño de la fuente se reduzca. Creo haberlo conseguido con FontSize de esta forma:

Dim Longitud As Integer
Longitud = Len(Campo1)
If Longitud > 40 Then Campo1.FontSize = 18
If Longitud > 50 Then Campo1.FontSize = 14
If Longitud > 60 Then Campo1.FontSize = 12
End If

pero creo que es un poco rudimentario. Hay alguna otra forma de hacerlo?.
Cómo puedo cambiar los atributos de una fuente mediante código (tamaño, color, fuente, etc.) en una sola línea?

Gracias y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto

Propiedades de la fuente

Publicado por Norberto (432 intervenciones) el 09/04/2013 15:31:21
Hola.

Para cambiar los atributos de fuente tienes que cambiar varias propiedades. Lo de una o más líneas...

Campo1.FontSize = 18
Campo1.ForeColor = vbBlue
Campo1.FontBold = True
etc.

se podría poner
Campo1.FontSize = 18: Campo1.ForeColor = vbBlue: Campo1.FontBold = True
pero seguro que no es lo que buscas.

En cuanto a simplificar la condición de la longitud para establecer la propiedad usa IIf

Campo1.FontSize = IIf(Longitud > 60, 12, IIf(Longitud > 50, 14, IIf(Longitud > 40, 18, 20)))

Un saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar