Newsgroup: it.comp.appl.access
Titolo: Cambio colore in casella di testo

Ho provato a far cambiare colore al testo della casella di testo chiamata
txtSaldo, quando il valore contenuto (Valuta) č minore o uguale a zero il
codice č il seguente:
Private Sub txtSaldo_GotFocus()
If txtSaldo.Text <= 0 Then
    txtSaldo.ForeColor = 13209
    Else: txtSaldo.ForeColor = 0
End If
End Sub
Come mai non funziona (sono cotto!)?

 ha scritto nel messaggio
news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...

Hai controllato che la proprietą evento "Su attivato" sia impostata a
[Routine evento] ?
Ciao TIR.

 ha scritto nel messaggio
news:XyVv7.14323$pm2.2...@news1.tin.it...

Si č tutto OK, ma continua a non funzionare.
Ma la routine č giusta?
Ciao, Gippe


Il codice è corretto anche se puoi togliere il .text.
La casella però cambierà colore solo quando riceverà il focus e non
ricambierà colore finchè non riceverà di nuovo il focus ed il valore non
sarà positivo.
Se i dati provengono da una tabella con viene usare l'evento "Current" della
maschera per cambiare il colore alla casella di testo.
Ciao TIR.

 ha scritto nel messaggio
news:gkWv7.14442$pm2.2...@news1.tin.it...

Avevo pensato anche a questa soluzione ma a me serve quell'espediente dato
che il focus proviene da txtUscite (preceduto a sua volta da txtEntrate)...
penso che tu abbia capito. Quando lascio la txtUscite ho imposto un Refresh
cosicché il saldo è aggiornato nel record corrente e se fosse negativo mi
piacerebbe vederlo in rosso!
Ciao. Gippe.

 ha scritto nel messaggio
news:9ppc49$to5$1...@pegasus.tiscalinet.it...

Bisognerebbe vedere tutto il codice legato a questa maschera, perche la sub
è corretta ed applicata a delle caselle di testo funziona correttamente,
anche se il colore che hai impostato non è molto visibile.
Ciao TIR.

 ha scritto nel messaggio
news:PDWv7.14535$pm2.2...@news1.tin.it...

L'altra istruzione presente nel codice è la seguente:
Private Sub txtUscite_Exit(Cancel As Integer)
Me.Refresh
End Sub
Altro non compare.
Ciao. Gippe.

 ha scritto nel messaggio
news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...

Informo quanti leggono la seguente che di colpo il codice funziona: misteri
della vita  o invece di Access ho una versione di A cess!

 ha scritto nel messaggio
news:9pp7m3$jqu$1...@lacerta.tiscalinet.it...

Prova a scrivere:
If txtSaldo <= 0 Then
Comunque io non risolverei il tuo problema scrivendo codice VBA, ma
impostando la proprietą Formato della tua casella di testo chiamata txtSaldo
a:
#.###; -#.###[Rosso]; "Zero"[Rosso]
Il testo sarą rosso e non mattone, perņ...
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 ha scritto nel messaggio
news:wdZv7.42371$0Y2.3...@news.infostrada.it...

Non mi č chiaro dove devo scrivere la suddetta espressione: mi dici, per
cortesia dove e come?
E se non ti rubo tempo, come mai č preferibile quest'altra via?


Ho provato e funziona, ho sostituito anche "Zero" con "0" e va lo stesso.
Io avevo messo un altro giochino che puņ essere esaminato nel mio messaggio
dal titolo "Raffinatezza cercasi".
Con ansia attendo risposta.
Grazie

 Roberto
Dimenticavo di aggiungere una cosa: ho perso la visualizzazione in Lire del
testo della casella txtSaldo!
Vorrei ripristinarla

 ha scritto nel messaggio
news:9ppgga$uuu$1...@pegasus.tiscalinet.it...

Seusi Access 2000 perchè non utilizzi la formattazione condizionale?
Ciao, Salvatore

 ha scritto nel messaggio
news:9pptub$ro2$1...@lacerta.tiscalinet.it...

Caro Salvatore, mi piacerebbe farlo: ma come si fa?
Comunque grazie!