I have this code
Private Sub Time_AfterUpdate()
If DSum("Time", "Timelog", "criteria = '" & Forms![Timelog Entry Form]!LotNo & "'") <> _
DLookup("RunTime", "Production and Material Usage Table", "criteria = '" & Forms![Timelog Entry Form]!LotNo & "'") + _
DLookup("Downtime", "Production and...