مشكلة في منح الصلاحيات من FORMS

أخي الكريم إذا لم تكن المشكلة في طريقة نداء الرسالة ALERT ، فجرب الكود التالي وإذا لم يضبط الموضوع حاول مراسلتي على إيميلي : igb_igsb@hotmail.com .

begin

if:USER IS NULL THEN
  set_alert_property('NOTE',alert_message_text,'لم يتم اختيار اسم');
  if show_alert('NOTE')=alert_button1
  then
  raise form_trigger_failure;
  end if;
end if;

  IF:PRIVLIGE IS NULL THEN
  set_alert_property('NOTE',alert_message_text,'لم يتم اختيار صلاحية');
  if show_alert('NOTE')=alert_button1
  then
  raise form_trigger_failure;
  end if;
  end if; 
  
IF :PRIVLIGE='mang' THEN 
FORMS_DDL('grant mang to'||:USER);

ELSIF :PRIVLIGE='entered' THEN
FORMS_DDL('grant entered to'||:USER);

ELSIF :PRIVLIGE='clint' THEN
FORMS_DDL('grant clint to'||:USER);
  
else
	message('لم تكن ضمن الخيارات');
	message('لم تكن ضمن الخيارات');
end if;


if FORM_success THEN
set_alert_property('NOTE',alert_message_text,'تم إعطاؤة الصلاحية');
  if show_alert('NOTE')=alert_button1
  then
  null;
  end if;

  else 
set_alert_property('NOTE',alert_message_text,'لم يتم إعطاؤة الصلاحية');
  IF show_alert('NOTE')=alert_button1
  then
  null;
  end if;
  end if;

end;

وبالتوفيق ،،،

أخي الكريم أنا آسف توجد مسافة بين grant clint to ' وعلامة التنصيص يجب وضعها حتى لا تصبح :

grant clint toali

ولتصبح

grant clint to ali

الكود مرةً أخرى :

begin

if:USER IS NULL THEN
  set_alert_property('NOTE',alert_message_text,'لم يتم اختيار اسم');
  if show_alert('NOTE')=alert_button1
  then
  raise form_trigger_failure;
  end if;
end if;

  IF:PRIVLIGE IS NULL THEN
  set_alert_property('NOTE',alert_message_text,'لم يتم اختيار صلاحية');
  if show_alert('NOTE')=alert_button1
  then
  raise form_trigger_failure;
  end if;
  end if; 
  
IF :PRIVLIGE='mang' THEN 
FORMS_DDL('grant mang to  '||:USER);

ELSIF :PRIVLIGE='entered' THEN
FORMS_DDL('grant entered to  '||:USER);

ELSIF :PRIVLIGE='clint' THEN
FORMS_DDL('grant clint to  '||:USER);
  
else
	message('لم تكن ضمن الخيارات');
	message('لم تكن ضمن الخيارات');
end if;


if FORM_success THEN
set_alert_property('NOTE',alert_message_text,'تم إعطاؤة الصلاحية');
  if show_alert('NOTE')=alert_button1
  then
  null;
  end if;

  else 
set_alert_property('NOTE',alert_message_text,'لم يتم إعطاؤة الصلاحية');
  IF show_alert('NOTE')=alert_button1
  then
  null;
  end if;
  end if;

end;