declare 
  cnt number := 1;
begin
  go_block('HOPE_FORECAST_DATA');
  first_record;

  while :system.last_record = 'FALSE' 
  loop
     cnt := cnt + 1;
     next_record;
  end loop;
  
  message('There are ' || cnt || ' records in this block');
end;

--when-new-forms-instance---trigger

:control.current_record := :System.Trigger_Record;
BEGIN
   GO_BLOCK('dept');
   COUNT_QUERY;
:control.tot_rcds := GET_BLOCK_PROPERTY('dept', QUERY_HITS);
   EXECUTE_QUERY;
END;

Control Bolck:
--------------
1)WNB Trigger
DECLARE
   CNT NUMBER;
BEGIN 
  	--GO_BLOCK('Blockname'); -->Database Block Name
   CNT:=count_record('Blockname');
   --EXECUTE_QUERY;
END;
   
Find Button:
-----------
Go_Block('Blockname')  -->Database Block Name
execute_query();

LAST_RECORD;  
      message('There are ' || :SYSTEM.CURSOR_RECORD || ' records in this block');  
      message('There are ' || :SYSTEM.CURSOR_RECORD || ' records in this block');  
      FIRST_RECORD;  

      Execute_query(); 

----WHEN-BUTTON-PRESSED----

DECLARE
   counted NUMBER;
BEGIN

   counted := count_Record('dept');
    GO_BLOCK('dept');
    EXECUTE_QUERY;
END;