Pulsante, ad ogni click colora o blu o rosso
robviv
che, ad ogni click , un pulsante assegna colore blu allo sfondo
di una textbox o rosso se prima era blu?
Inoltre, in riapertura maschera, nella txtbox viene mantenuto
l'ultimo colore assegnato; quindi se ripremo sul
pulsante, viene riconosciuto l'ultimo colore assegnato e quindi
viene applicato l'altro??
Ciao
robviv
lbo dal portatile
>E' possibile (sicuramente con VBA) fare in modo
>che, ad ogni click , un pulsante assegna colore blu allo sfondo
>di una textbox o rosso se prima era blu?
sul click del pulsante:
if me.textbox.backcolor=rgb(255, 0, 0) then
me.textbox.backcolor=rgb(0,0,255)
else
me.textbox.backcolor=rgb(255,0,0)
end if
>Inoltre, in riapertura maschera, nella txtbox viene mantenuto
>l'ultimo colore assegnato; quindi se ripremo sul
>pulsante, viene riconosciuto l'ultimo colore assegnato e quindi
>viene applicato l'altro??
fatti una tabella di configurazione, cioe' una tabella che abbia un
campo per ognuna delle caratteristiche che vuoi "salvare". quando
setti una certa caratteristica scrivi anche un valore adeguato nel
campo, chesso', un valore sì/no (booleano), un numerico... in questo
modo conservi le impostazioni anche quando chiudi l'applicazione,
oltre che, ovviamente, all'interno dell'applicazione stessa quando
apri o chiudi maschere.
in apertura dell'applicazione o delle maschere leggi i valori che ti
servono dalla tabella e setti adeguatamente le proprietà dei i
controlli.
--
make it idiot proof and someone will make a better idiot.
--
il sito comune di it.comp.appl.access:
http://members.xoom.it/it_db_access/
Roberto dal portatile
"robviv" <XXXv...@usa.net> ha scritto nel messaggio
news:3997C1EC...@usa.net...
> E' possibile (sicuramente con VBA) fare in modo
> che, ad ogni click , un pulsante assegna colore blu allo sfondo
> di una textbox o rosso se prima era blu?
> l'ultimo colore assegnato; quindi se ripremo sul
> pulsante, viene riconosciuto l'ultimo colore assegnato e quindi
> viene applicato l'altro??
>
> robviv
>
>
Ipotiziamo che sia il campo della tabella che il controllo della maschera
che deve cambiare colore di sfondo si chiamino Campo.
Dichiarati nella tabella un campo di tipo Si/No di nome Colore; nella
maschera inserisci una casella di controllo di nome Colore associata al
campo Colore della tabella; a questo controllo imposta la proprietą Visibile
a NO e il colore di sfondo a 255 (rosso).
Inserisci nella maschera un pulsante di comando e a fronte dell'evento "Su
clic" genera il seguente codice VBA:
If Me![Campo].BackColor = 255 Then
Me![Campo].BackColor = 16711680
Me![Colore] = False
Else
Me![Campo].BackColor = 255
Me![Colore] = True
End If
Inoltre, a fronte dell'evento "Su corrente" della maschera, genera il
seguente codice VBA:
If Me![Colore] Then
Me![Campo].BackColor = 255
Else
Me![Campo].BackColor = 16711680
End If
Ciao
Roberto