Code: Select all
OGGI = Format(Date, "DD/MM/YYYY")
ORA = Format(CDate(Now), "HH.MM")
SQL = "UPDATE APPUNTAMENTI SET APPUNTAMENTI.STATO = 'SCADUTO' WHERE APPUNTAMENTI.DATA<" & Format(OGGI, "MM/DD/YYYY") & " AND APPUNTAMENTI.ORA<" & Format(ORA, "HH.MM") & " AND APPUNTAMENTI.COMPLETATO IS NULL AND APPUNTAMENTI.CANCELLATO IS NULL"