>> >>ON ESCAPE ThisForm.QuitProcess = .T. >> >>ThisForm.QuitProcess = .F. >> >>BEGIN TRANSACTION >> >>DO WHILE NOT ThisForm.QuitProcess >> * here, we do stuff like calculations, record inserts >>ENDDO >> >>IF ThisForm.QuitProcess >> ROLLBACK >>ELSE >> COMMIT >>ENDIF >>>>