Sele mytable lnCurRec = Getnextmodified(0) If lnCurRec = 0 Else * DO until all modified records are processed. Do While .T. * Move to the current modified record. Goto (m.lnCurRec) =Tablerevert(.F.) * Get the next modified record from here. lnCurRec = Getnextmodified(m.lnCurRec) If m.lnCurRec = 0 && No more modified records. Exit Endif Enddo Endifthanks