/* source: https://www.foxinfotech.in/2013/03/using-find_alert-and-show_alert-in-oracle-forms.html */

Declare
   al_id       alert;
   al_button   NUMBER;
BEGIN
   al_id := FIND_ALERT ('user_warning');

   IF ID_NULL (al_id)
   THEN
      MESSAGE ('user_warning alert does NOT exist');
      RAISE form_trigger_failure;
   ELSE
      /*
      ** Show the warning alert
      */
      al_button := SHOW_ALERT (al_id);
      /*
      If user pressed OK (button 1) then bring up another alert to confirm -- button mappings are specified in the alert design
      */
      IF al_button = alert_button1
      THEN
         al_id := FIND_ALERT ('are_you_sure');

         IF ID_NULL (al_id)
         THEN
            MESSAGE ('the alert NAMED:are you sure ? does NOT exist');
            RAISE form_trigger_failure;
         ELSE
            al_button := SHOW_ALERT (al_id);

            IF al_button = alert_button2
            THEN
               -- do some task
               null;
            END IF;
         END IF;
      END IF;
   END IF;
END;

1 Comment

• verasearch3 said 6 years ago Reply

  http://www.123techguru.com/alerts/
  
  https://www.experts-exchange.com/questions/20532559/Oracle-Forms-pop-up-Error-Messages.html
  
  http://www.orafaq.com/forum/t/74835/
  
  https://stackoverflow.com/questions/21914613/do-you-want-to-made-changes-in-oracle-forms
  
  http://andrewfraserdba.com/2011/03/18/oracle-forms-popup-dialog-alert-box/

You must log on to comment.