Newsgroup: it.comp.appl.access
Titolo: Virgolette in formattazione condizionale (Access 2000)

Salve a tutti,
ho predisposto una procedura per la modifica da codice della formattazione 
condizionale di alcuni controlli di una maschera. Il codice relativo nella 
procedura � il seguente:
            Set ctr = .Controls("txtControllo")
            With ctr
                .FormatConditions.Delete
                Set objFrc = .FormatConditions.Add(acFieldValue, acBetween, 
Chr$(34) & "10" & Chr$(34), Chr$(34) & "10z" & Chr$(34))
                Set objFrc = .FormatConditions.Add(acFieldValue, acBetween, 
Chr$(34) & "9" & Chr$(34), Chr$(34) & "9z" & Chr$(34))
                Set objFrc = .FormatConditions.Add(acFieldValue, acBetween, 
Chr$(34) & "0" & Chr$(34), Chr$(34) & "0z" & Chr$(34))
                With .FormatConditions(0)
                    .FontBold = True
                    .BackColor = enColori.Giallo
                    .ForeColor = enColori.Verde
                End With
                With .FormatConditions(1)
                    .FontBold = True
                    .BackColor =enColori.Giallo
                    .ForeColor = enColori.Rosso
                End With
                With .FormatConditions(2)
                    .FontBold = True
                    .BackColor = enColori.Bianco
                    .ForeColor = enColori.nero
                End With
            End With
dove enColori � un enumerazione dei diversi colori da utilizzare.
Mentre inserendo la formattazione a mano, ed inserendo come condizione che 
il valore del campo debba essere compreso tra "10" e "10Z" (con le 
virgolette),  la formattazione condizionale funziona correttamente, 
inserendo la formattazione da codice (usando il codice riportato sopra)  non 
riesco a inserire le virgolette nelle espressioni e la formattazione non 
funziona. Ho provato a raddoppiare le virgolette, ma Access non accetta 
questa sintassi, ho quindi provato ad inserire Chr$(34), ma poi se verifico 
la formattazione condizionale del controllo non ritrovo ugualmente le 
virgolette nelle espressioni corrispondenti.
Qualche suggerimento?
Grazie
Ciao
--
Nina 

 ha scritto nel messaggio 
news:4b0510a0$0$6840$5fc...@news.tiscali.it...

Ho provato il tuo esempio. Non capisco cosa sia l'oggetto objFrc... a me ha 
funzionato facendo cos�:
Set ctr = Me.Controls("txtControllo")
With ctr
   .FormatConditions.Delete
   .FormatConditions.Add acFieldValue, acBetween, Chr$(34) & "m" & Chr$(34), 
Chr$(34) & "n" & Chr$(34)
   .FormatConditions.Add acFieldValue, acBetween, Chr$(34) & "u" & Chr$(34), 
Chr$(34) & "v" & Chr$(34)
   With .FormatConditions(0)
      .FontBold = True
       .BackColor = RGB(255, 0, 0)
   End With
   With .FormatConditions(1)
      .FontBold = True
       .BackColor = RGB(0, 255, 0)
   End With
End With
Ciao
Antonio

>
CUT

Ciao Antonio,
objFrc  � un oggetto di tipo FormatCondition (Dim objFrc As FormatCondition 
� la riga che ho dimenticato di inserire nel post), cui assegno il formato 
appena creato, ma non cambia (o non dovrebbe cambiare) la sostanza del 
codice.
Non ho trovato alcuna differenza quindi tra il tuo codice e il mio, ma nel 
frattempo ho trovato che il problema non era dovuto al codice, ma la fatto 
che eseguendo il codice su una maschera nascosta,  se questa non viene resa 
visible prima della chiusura con salvataggio (acSaveYes), le modifiche non 
vengono  apportate. Potrebbe sembrare strano, anzi lo �, ma ho risolto 
aggiungendo una riga in cui rendo visible la maschera prima di chiuderla e 
salvarla e adesso funziona.
Ti ringrazio comunque, sei stato molto gentile
Ciao
Nina