After Exit For: End If Also move: forms!mainform.dirty=false Before: forms!mainform.Recalc Cj, it is for op.