Invalid alert ID

Question

Hello there,
I have a form with alerts. I always use FIND_ALERT before SHOW_ALERT.
Suppose a user updates a record and tries to exit the form, i have an alert that should ask " do you want to save changes".
Here's my key exit code
Declare
Msg_Lvl Number;
Alt_Num Number;
alert_is alert;
Begin
     if :System.Mode != 'ENTER-QUERY' Then
          if :System.Form_Status Not In ('NEW','QUERY') Then
               alert_is := FIND_ALERT('ASK_COMMIT');
     alt_Num := Show_Alert('ASK_COMMIT');
     if Alt_Num = Alert_Button1 Then
     commit_form;
     else
          clear_Form(No_Validate);
     end If;
     end If;
     end If;
End;
Declare
X Number;
alert_is alert;
Begin
If :System.Mode = 'ENTER-QUERY' Then
     Exit_Form;
Else
If :System.Form_Status In ('NEW','QUERY') Then
     alert_is := FIND_ALERT('TMPL_EXIT');
X := Show_Alert('TMPL_EXIT');
If X = Alert_Button1 Then
Exit_Form(no_validate);
End If;
Else
Exit_Form;
End If;
End If;
End;
For some reason if i try to exit the form after update I get "Invalid alert ID o" error.
If i copy CG$ASK_COMMIT alert, the error doesn't occur.
My form is not designer generated.
Any help is appreciated.

Answer 1

Declare
Msg_Lvl Number;
Alt_Num Number;
alert_is alert;
Begin
if :System.Mode != 'ENTER-QUERY' Then
if :System.Form_Status Not In ('NEW','QUERY') Then
alert_is := FIND_ALERT('ASK_COMMIT');
IF Id_Null(alert_is) THEN
Message('alert does not exist');
RAISE Form_Trigger_Failure;
ELSE
alt_Num := Show_Alert('ASK_COMMIT');
end if;
if Alt_Num = Alert_Button1 Then
commit_form;
else
clear_Form(No_Validate);
end If;
end If;
end If;
End;
Hope this works