* Save code LOCAL llRollback BEGIN TRANSACTION IF NOT llRollBack AND NOT TableUpdate(1,.F.,"Table1") llRollBack = .T. ENDIF IF NOT llRollBack AND NOT TableUpdate(1,.F.,"Table2") llRollBack = .T. ENDIF IF llRollBack ROLLBACK TableRevert(.T.,"Table1") TableRevert(.T.,"Table2") MessageBox("Unable to save your work. Try again later.",0,"Save Failed") ELSE END TRANSACTION ENDIF RETURN NOT llRollBack