1.1直接将SYSTEM.MESSAGE_LEVEL 设成25,这样大于25的信息提示就不会提示了。
Declare
t_l number := :SYSTEM.MESSAGE_LEVEL;
Begin :
SYSTEM.MESSAGE_LEVEL :=25;
…….. :
SYSTEM.MESSAGE_LEVEL := t_l;
End;
1.2上述方法只适用于小于25的信息提示,无法屏蔽错误提示屏蔽错误提示可以FORM的ON-ERROR或ON-MESSAGE中加入拦截代码(不提倡屏蔽错误提示。)。
declare
t varchar2(10) := error_type;
begin
if (error_code=40202 or error_code=40401) or t='FRM' then NULL;
end if;
end;