Ci sarebbe da capire meglio lo scenario... perchè così non è chiaro... ipotizzo un Calendario di 365gg in cui ogni gg ha una FC dipendente da eventuali Attività presenti nel gg...
In questo caso ad esempio coviene scrivere una funzione, ma serve sempre passare un parametro che diversifica poi il risultato della funzione...!
Esempio
Public Function AttivitaGG(mioGiorno as integer) as Boolean
End Function
IN Espressione poi scrivo
=AttivitaGG(1)
=AttivitaGG(2)
....
=AttivitaGG(365)
Io in questi casi, che poi parliamo di 1 Volta sola ovviamente, scrivo un codice che apre in struttura la Maschera e va a modificare il parametro nella Funzione quindi vado ad editare direttamente la Proprietà della F.C. in modo che poi sia scritta correttamente.
Lancio il Codice da Finestra Immediata, si apre la Form... edito chiudo salvando.
Una cosa simile, solo a titolo di ESEMPIO:
Function SetFC()
Dim iDx As Byte
Dim mF As Access.Form
Dim mFC As Access.FormatCondition
Dim mExpr As String
DoCmd.OpenForm "NomeForm", acDesign, , , , acHidden
Set mF = Forms("NomeForm")
For iDx = 1 To 365
With mF.Controls(Source)
mExpr = "=AttivitaGG(" & iDx & ")"
Set mFC = .FormatConditions.Add(Tipo, Oper, mExpr)
With mFC
.ForeColor = FColor
.BackColor = BColor
.FontBold = FBold
.FontItalic = FItalic
.FontUnderline = FUnderline
End With
Set mFC = Nothing
End With
Next
DoCmd.Close acForm, mF.Name, acSaveYes
End Function