
Originariamente inviato da
gondoliere
Ciao a tutte/i
che cosa devo fare per avere, in un report in fase di stampa, dei dati stampati in rosso?
Mi spiego meglio:
in fase di stampa vorrei che in un campo data la data dal 01/01/2007 al 01/06/2007 mi venisse stampata in rosso
Io ho dato questo comando ma nn funzione.
l'evento l'ho messo sul report in apertura
if [nomecampo] is between #01/01/2007# and #01/06/2007# then
[nomecampo].text.color = vbRed
and if
and sub
Grazie a tutti
Prima di tutto vorrei richiamare la tua attenzione sulla lettura dell'Help...!
Se ti venissero fornite risposte in linea con il tuo criterio di approssimazione non otterresti nulla di utile, quindi almeno cerca di dare l'impressione che l'Help lo usi perchè il FORUM per quanto mi riguarda non è nè un'HelpDesk nè un luogo in cui affrontare con sufficienza l'argomento sicuri che qualche volontario ti fornisca la pappa pronta.
Hai sbagliato l'uso di Between, hai usato o inventato una proprietà che non esiste "text.color" usi AND IF invece di END IF....
hai usato una costante inventata "red" quando dall'Help avresti visto che le costanti colore sono vbColore(compreso nel QBCOLOR)...!
Poi NomeCampo è reale o è NomeControllo...?
Il Campo associato a NomeCampo(Data) che dati contiene....?
Se hai popolato i campi con Now() conterrà anche hh:mm:ss ed il confronto sbaglia, quindi va preso il FIX(Data)
Private Sub Corpo_Print(Cancel As Integer, PrintCount As Integer)
if Fix([nomecampo]) >=#01/01/2007# and Fix([nomecampo])<=#01/06/2007# then
[nomecampo].Forecolor = vbRed
End if
End Sub
Saluti