E' stata una lettura sicuramente interessante anche se resto ancora molto fuori da certe logiche così raffinate.
Purtroppo l'esito sperato non è stato raggiunto in quanto nella SM continua, il confronto fra il campo "scadenza" e Now(), la routine applicata a Form_current me lo fa una sola volta per tutti i record per cui anche se soltanto nel record di testa la scadenza è minore di oggi, mi colora tutto di giallo o viceversa.
Dim Red, Black, Yellow, White As Long
Red = RGB(255, 0, 0) Black = RGB(0, 0, 0) Yellow = RGB(255, 255, 0)
White = RGB(255, 255, 255)
If Me!scadenza.Value < Now() Then
Me!scadenza.BorderColor = Red
Me!scadenza.ForeColor = Red
Me!scadenza.BackColor = Yellow
Else
Me!scadenza.BorderColor = Black
Me!scadenza.ForeColor = Black
Me!scadenza.BackColor = White
End If
Ho fatto qualcosa che non va o di incompleto?