Access, evidenziare record

Question

Ho una form che mi mostra tutta una serie di scadenze. Vorrei che i record delle scadenze già scadute mi venissero evidenziati.

Ho provato ad evidenziare solo la data con il codice:

Private Sub Form_Open(Cancel As Integer)

    Dim A As Integer                                           'contatore

    Dim DRIF As Date                                         'data in esame

    A = Me.RecordsetClone.RecordCount         'conteggio dei record

    Me.RecordsetClone.MoveFirst

    Do Until Me.RecordsetClone.EOF

    DRIF = Me.DOP

       If DRIF < Now() Then                                 'controllo se scaduto

       Me.DOP.BackColor = 8454143                  'evidenzia in giallo

       Else

        Me.DOP.BackColor = 16777215               'lascia fondo bianco

       End If

       Me.RecordsetClone.MoveNext

    Loop

End Sub

Funziona ma mi evidenzia tutte le date anche quelle non scadute.

Dove sbaglio?

Grazie.

Answer 1

Ciao Luigix73,

valuta la formattazione condizionale come potenziale efficiente soluzione al posto di iterare ogni singolo record della form.

valuta date() al posto di now qualora di basti la data per condizionare la scadenza.

HTH.

Ciao, Sandro.

Answer 2

Grazie Sandro, risolto con la formattazione condizionale.