Newsgroup: it.comp.appl.access
Titolo: Colore sfondo campo calcolato

Ciao ciao,
ho un campo calcolato, a cui vorrei cambiare colore di sfondo al 
cambiare di parecchi controlli...
Se fosse un solo controllo che ne fa cambiare il colore sarei a posto, 
ma visto che sono tanti mi viene in mente di aggiungere lo stesso codice 
all'evento after_update di ogni controllo... ma ï¿œ un pï¿œ macchinoso!
Che evento di verifica quando viene calcolata un'espressione di un campo 
calcolato?
In questo modo metto il codice corretto solo nel campo calcolato:
Private Sub txtIncassiReg_BeforeUpdate(Cancel As Integer)
     'Colora i campi calcolati in base ai loro valori
     If txtIncassiReg.Value = txtImponibileIvato.Value Then
      txtIncassiReg.BackColor = vbGreen
     ElseIf txtIncassiReg.Value > txtImponibileIvato.Value Then
      txtIncassiReg.BackColor = vbYellow
     Else
      txtIncassiReg.BackColor = vbRed
     End If
End Sub
Ho provato a porlo nella su_corrente della form ma, ovviamente, funziona 
solo quando si cambia record!
Grazie mille!
Marco


o ti guardi i WithEvents o ti crei una sub centralizzata e la richiami da 
dove ti serve


> funziona solo quando si cambia record!
Per ora sto provando con la formattazione condizionale...
Finisco e poi vi dico!
Grazie!!!
Marco

 Marco
Funziona!
Per una cosa cosï¿œ semplice, forse ï¿œ la strada migliore!
Posso colorare di colori diversi per vari stati del valore...
Saluti
Marco

 Marco
Con questo codice puoi impostare per tutte le txtbox e combo le tre
condizioni della Formattazione condizionale:
http://support.microsoft.com/kb/304104/it
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
http://support.microsoft.com/kb/304104/it
Interessante, cavolo!
Grazie!
Marco

 Marco
si ma a me d� errore su Freight della sezione
Private Sub cmdApplyCondFormat_Click()
    AddFormats Me.Freight, Me
End Sub
bah!
l.


 l.
Che tipo di errore?. L'ho testato e funziona perfettamente..
--
sv


 sv
pigiando sul pulsante cmdApplyCondFormat mi da:
Errore di compilazione: impossibile trovare il metodo o il membro dei dati
penso di aver seguito passo passo tutti i passaggi con i relativi
copiaincolla!   penso!
l.


 l.
Prima di "pigiare" esegui il debug di quanto hai copia/incollato.. e dicci
dove si ferma..
--
sv


 sv
fatto! e si ferma sempre su .Freight  
rigo giallo - Private Sub cmdApplyCondFormat_Click()
evidenziato blu.Freight del rigo - AddFormats Me.Freight, Me
 
con il messaggio di errore detto in precedenza.
l.


 > sv


Me.freight non � altro che la casella di testo "trasporto" della maschera
"Ordini". Se � in italiano sar� Me.trasporto.
--
sv


 sv
ok modificato .freight in .trasporto, l'errore non me lo da pi�, ma quando
pigio sul pulsante mi compare un avviso : there were 3 conditional
format(s) applied to all text and combo boxes except the source.
che vuol d�?
ma ho capito bene a cosa serve questo codice? 
il colore della casella trasporto rimane sempre la stessa anche variando
il valore in euro.
mah!
l.


 l.
Devi comunque associare uno dei tuoi controlli ad un certo tipo di
formattazione condizionale. Nell'esempio tre tipi di formattazione
condizionale. A quel punto ti richiami questa per tutti i controlli sia
testo che combo. Insomma ne fai uno per tutti..
--
sv
