Access-Report cambio colore in un campo

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 = red
and if
and sub

Grazie a tutti

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

Grazie Alex
scusami ma il mio intento non era come hai scritto tu (immagino che tu ne abbia visti di tutti i colori e molte volte ti senti "sfruttato" per le tue conoscenze);
il fatto è che provavo una cosa che forse (senza forse) era un pò + grande delle mie piccole conoscenze.
Accetto la tua "strigliata" e per la prossima volta starò + attento prima di chiedere
grazie ancora

Originariamente inviato da @Alex

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

Originariamente inviato da gondoliere

Grazie Alex
scusami ma il mio intento non era come hai scritto tu (immagino che tu ne abbia visti di tutti i colori e molte volte ti senti "sfruttato" per le tue conoscenze);
il fatto è che provavo una cosa che forse (senza forse) era un pò + grande delle mie piccole conoscenze.
Accetto la tua "strigliata" e per la prossima volta starò + attento prima di chiedere
grazie ancora

No, non mi sento affatto sfruttato, non sono obbligato a rispondere, lo faccio per piacere personale e per hobby, solo che mi urta un pò quando nella media una persona prende le cose troppo alla leggera, per imparare serve studiare e se un utente del Forum pone una domanda credo sia sottointeso che prima si sia almeno sforzato di:

1. Cercare
2. Leggere
3. Capire
4. Provare

Questo non è ovviamente emerso dalla tua richiesta per questo ho espresso la mia opinione personale su questo approccio al Forum.

Se poi il problema non è importante questo indispone ulteriormente, in quanto giustifica a maggior ragione l'esecuzione dei 4 Punti sopra indicati al fine di evitare ad entrambi ma almeno ai partecipanti del Forum, di perdere tempo per cose inutili.

Saluti