Procedure doesn't work

Question

Hi
i have a block which consists of buttons
(query,edit,add,delete,next,previous,exit,save,cancel)
and i create a Procedure and write this code:
PROCEDURE TOOLBAR_BUTTON IS
action varchar2(50);
BEGIN
  if action = 'query' then
  EXECUTE_QUERY;
  elsif
  action = 'edit' then
  EDIT_FIELD;
  elsif
  action = 'add' then
  create_record;
  elsif
  action = 'delete' then
  delete_record;
  elsif
  action = 'next' then
  next_record;
  elsif
  action = 'previous' then
  previous_record;
  elsif
  action = 'exit' then
  exit_form;
  elsif
  action = 'save' then
  commit_form;
  clear_form;
  elsif
  action = 'cancel' then
  clear_form;
  end if;
END;
and i created WHEN-BUTTON-PRESSED  trigger on block level and wanna to calling the Procedure, so i write this
toolbar_button;
but when i run form the buttons doesn't work
so what should i do ? is there is any thing missing or wrong in coding or what?
i'll be grateful if any one could help me in this
Thanks

Answer 1

OR: give your buttons a logical name and do this:
sorry , i don't understand this  if u can give me more details or something like example , i'll be grateful
by the way when i'm searching i found this Procedure and i think it's like what i wanna do
but unfortunately i could't understand some parts in it and i could't handle
it to work in my form ,i'll paste it may be it well be useful
-- This is a generic button procedure. It reads the NAME of the button and
-- performs a DO_KEY(item_name).
-- Regarding QUERY-operation:
-- if there are buttons called EXECUTE_QUERY and CANCEL_QUERY, this function shows
-- them, when the ENTER_QUERY button is pressed and hides them, when EXECUTE_- or
-- CANCEL_QUERY ispressed. No error should be returned, if these buttons do not exist.
-- To make naming of the buttons easier, EXIT, QUIT and EXIT_FORM all perform exit_form,
-- even if the form is in ENTER-QUERY mode !!!!!!!
-- A CANCEL_QUERY button-name cancels a currently "open" query.
PROCEDURE button_proc IS
  action varchar(80);
  -- hide a button (for ENTER_-, EXECUTE_- or CANCEL_QUERY)
  PROCEDURE show_off(item_name VARCHAR2) IS
  BEGIN
    IF NOT Id_Null(Find_Item(item_name)) THEN
      Set_Item_Property(item_name, DISPLAYED,PROPERTY_FALSE);
    END IF;
  END;
  -- try to show a button (for the two query-states. If there is no button to show,
  -- return FALSE to the calling procedure.
  FUNCTION show_on(item_name VARCHAR2) RETURN BOOLEAN IS
  BEGIN
    IF NOT Id_Null(Find_Item(item_name)) THEN
      Set_Item_Property(item_name,DISPLAYED,PROPERTY_TRUE);
      Set_Item_Property(item_name,ENABLED,PROPERTY_TRUE);
      RETURN TRUE;
    ELSE
      RETURN FALSE;
    END IF;
  END;
BEGIN   
  action := Get_Item_Property(NAME_IN('SYSTEM.TRIGGER_ITEM'),ITEM_NAME);
  IF action = 'ENTER_QUERY' THEN
    -- only hide the ENTER_QUERY button, if there are EXECUTE_QUERY and (!!) CANCEL_QUERY
    -- buttons. Otherwise an existing EXECUTE_QUERY button will be shown.
    IF show_on('EXECUTE_QUERY') AND show_on('CANCEL_QUERY') THEN
      show_off('ENTER_QUERY');
    END IF;
  END IF;
  IF action IN ('EXIT_FORM', 'EXIT','QUIT') THEN
  :GLOBAL.REDA_UNIT:='';
  :GLOBAL.REDA_FILE:='';
    --action := 'EXIT_FORM';
    EXIT_FORM;
    IF NAME_IN('SYSTEM.MODE')='ENTER-QUERY' THEN
     -- Do_Key('EXIT_FORM');
     EXIT_FORM;
    END IF;
  END IF;
  IF action = 'CANCEL_QUERY' THEN
   -- action := 'EXIT_FORM';
   EXIT_FORM;
  END IF;
  Do_Key(action);
  IF NAME_IN('SYSTEM.MODE') != 'ENTER-QUERY' THEN
    IF show_on('ENTER_QUERY') THEN
      show_off('EXECUTE_QUERY');
      show_off('CANCEL_QUERY');
    END IF;
  END IF;
END;