Execute query and Message Box Problem!

[ching]

Hi,
I have a procedure to built undo function :

declare
ls_row varchar2(55);
ls_item varchar2(55);
begin
go_block(arameter.l_current_block);
ls_row := :m_form.rowid;
execute_query;
if ls_row is null then return; end if;
loop
exit when :m_form.rowid = ls_row;
exit when :system.last_record = 'TRUE';
next_record;
end loop;
end;

This procedure working fine.
When I have edit some data and want to undo, then I pressed undo button. It's always display the message box "Do you want to save change you have made?".
I don't know how to make this message box can't display and being the execute_query work directed.
It's urgent, please help!

Thanks,

[vbaskar]

check the message level help

[kmesser]

Why don't you just put the data item you wish to change/not change into a data block, then let Forms handle when to save/rollback?

Don't make your app unnecessarily complex.