Suppress the enter-query mode when no-data-found after execute a query.

Question

HI,
Greetings of the day, Can any one suggest me that how to Suppress the enter-query mode when no-data-found after execute a query on the form by a button.
whenever i execute query on form and result is no data found then form :system.mode is still in enter-query mode.
i want that if result is no data found then form comes back it initial state.
i will thank full of him who will help me..
Thanks in Advance..

Answer 1

Put this in your Key-ExeQry trigger:Execute_Query;
If Get_block_property(:System.current_block,query_hits)=0 then
  Exit_form; --this cancels the Enter-Query mode; Does not exit the form.
End if;You may want to trap and prevent the "FRM-40353: Query cancelled" message, and change the "FRM-40301: Query caused no records to be retrieved. Re-Enter" message. To do that, you need an On-Message form-level trigger:Declare
  Msg_Code Number        := MESSAGE_CODE;
  MSG      Varchar2(150) := SUBSTR('   '||MESSAGE_TYPE||'-'
                         ||TO_CHAR(Msg_Code)||': '||MESSAGE_TEXT,1,150);
BEGIN
  If Msg_Code=40301 then
       -- 40301: Query caused no records to be retrieved. Re-Enter
    Message('  NO RECORDS FOUND',No_acknowledge);
  Elsif Msg_Code=40353 then -- Query cancelled.
    null;
  Else
    MESSAGE(MSG,NO_ACKNOWLEDGE);
  End if;
End;