Problemilla en consulta de access 2003 !!!

[VanDamm]

Hola amigos:
He ccreado una pequeña base de datos con una consulta en un dato y quisiera saber como hacer que el dato que sale en el informe relacionado con esa consulta si el numero es mayor de 0 sea de color azul ese numero, y por la misma razon , si es menor de 0 sea de color rojo.
Gracias migos, por supuesto deciros que no soy muy avanzado en esto de access, pero necesito saberlo, si se puede hacer, claro...
de nuevo gracias

[quimfv]

Código vb:

Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
If Me.nombredetudato < 0 Then
    Me.nombredetudato.ForeColor = 255 'rojo
Else
    Me.nombredetudato.ForeColor = 16711680  'Azul
End If
End Sub
 

Debes cambiar "nombredetudato" por el nombre del campo, en realidad por el nombre del objeto que hayas creado en el informe, por defecto será el nombre del campo.

Debes pegar el codigo en el modulo asociado al informe... abre uno de los eventos y pega el codigo....

Quim

[VanDamm]

como te dije en el anterior post, soy un usuario de access y la verdad es que si no me dices, digamos, el paso a paso no sé utilizar el visual basic. He abierto el "codigo" y lo he pegado pero me dice que no encuentra el campo, y yo lo he cambiado como me has indicado, que en mi caso se llama "limitecredito".
En fin, ¿ se puede hacer sin utilizar el visual basic?, es decir, cuando abro el informe y lo pongo como "vista diseño", me voy al campo y hago doble clik y la ventana que me aparece me salen "formato, datos, eventos, otras , todas"...
¿ se puede hacer desde allí?, o bien, si me lo especificas un poco más lo intentaré de nuevo..

Muchas gracias

[VanDamm]

que al final lo he conseguido, pero hay un pequeño fallitto:
resulta que ahora aunque sea mayor o menor de 0 , me lo muestra de color rojo, y no sé por qué...

mira, te doy el codigo que he modificado a ver si tu vés algo que no es lo correcto, ok?

gracias de nuevo amigo.



Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
If Me.LIMITE_CREDITO < 0 Then
Me.LIMITE_CREDITO.ForeColor = 255 'rojo
Else
Me.LIMITE_CREDITO.ForeColor = 16711680 'Azul
End If
End Sub

[VanDamm]

YA ESTÁ !!, sí que funciona,

de todas formas, si hay otro problemilla, que no creo, por que la tabla es muy sencilla, te lo comunicaré....

Muchas gracias amigo...

[VanDamm]

Pues ahora tengo el problema de que si tengo la base de datos vacia me da un error, se puede haceralgo para que no salga el error a227 o algo así?

gracias , y muy amable

[quimfv]

Código vb:

Dim haydatos As Boolean
Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
DoCmd.SetWarnings False
If haydatos Then
If Me.LIMITE_CREDITO >0 Then
    Me.LIMITE_CREDITO.ForeColor = 255
Else
    Me.LIMITE_CREDITO.ForeColor = 16711680
End If
End If
DoCmd.SetWarnings True
End Sub
 
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "No hay registros"
    haydatos = False
End Sub
 
Private Sub Report_Open(Cancel As Integer)
    haydatos = True
End Sub
 

esto no da errores no se si habrá una cosa mejor...

Quim

[Taribo007]

Para gustos los colores. A mi personalmente me gusta comprobar, si se que se puede dar ese caso, si hay o no datos antes d elanzar el informe, con un dclunt, por ejemplo

Un saludo

[VanDamm]

GRACIAS , GRACIAS, GRACIAS Y MIL VECES GRACIAS !!!!

quimfv me has salvado "la vida"...( bueno eso es muy exagerado, ja ja ja )., gracias amigo, rezaré para que quien corresponda te sigad ando esa lucidez y amabilidad hasta que EL quiera.

Gracias amigo