السلام وعليكم اخواني كيفكم
انا عندي فورم للموظفين وعندي كبسة لعمل حذف للريكورد وكبسة للخروج من الفورم
برمجة كبسة الحذف هي كالتالي delete_record;
وكبسة الخروج exit_form(ask_commit
عند الضغط على كبسة حذف فانه يحذف السجل الحالي وبعدها عند الضغط على خروج فانه يعطيني مسج هل تريد الحفط ام لا؟
اذا كان الجواب نعم يعطيني رسالة "غير قادر على اجراء insert للسجل"
ارجوكم فهمونيشو المشكلة وشو حلتها ازا تكرمتو علينا

تأكد من عدم وجود تكرار للسجل..

شو قصدك عدم وجود تكرار للسجل
وبعدين شو دخل التكرار ازا انا عم بحذف وماعم بضيف

السلام عليكم ورحمة الله وبركاته

الرجاء التاكد من انه تم حذف الريكورد فعلا عن طريق الاستعلام عنه قبل اغلاق الفورم

حاول تكتب امر commit; بعد الحذف بحيث يصبح الكود
delete_record;
commit; or forms_ddl('commit');

إليك كود الخروج من النموذج

DECLARE
   V_ALERT_ID 		ALERT;
	V_ALERT_SHOW 	NUMBER;
	V_TITLE VARCHAR2(100):=YOUR TITLE';
   
BEGIN :SYSTEM.MESSAGE_LEVEL:=25;

			V_ALERT_ID := find_alert('ALERT');
	  	SET_ALERT_PROPERTY(V_ALERT_ID,TITLE,V_TITLE);
	  	set_alert_button_property(V_ALERT_ID,ALERT_BUTTON1,LABEL,YOUR LABEL  NAME');
	  	set_alert_button_property(V_ALERT_ID,ALERT_BUTTON2,LABEL,YOUR LABEL NAME);
			SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT, YOUR MESSAGE ');
	
IF :SYSTEM.FORM_STATUS='QUERY' OR :SYSTEM.FORM_STATUS='NEW' THEN
		EXIT_FORM (NO_VALIDATE);
END IF;


IF :SYSTEM.FORM_STATUS='CHANGED'  THEN    	  	
V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
 
 IF V_ALERT_SHOW =	ALERT_BUTTON1 THEN
 	
		COMMIT_FORM;  

 	  		
 	IF :System.Form_Status <> 'QUERY' THEN
 	  	 	SET_ALERT_PROPERTY(V_ALERT_ID,ALERT_MESSAGE_TEXT,  YOUR MESSAGE); 
				set_alert_button_property(V_ALERT_ID,ALERT_BUTTON1,LABEL,YOUR LABEL);
	  		set_alert_button_property(V_ALERT_ID,ALERT_BUTTON2,LABEL,NULL);
 	  	 	V_ALERT_SHOW:=SHOW_ALERT(V_ALERT_ID);	
 	  	 	Bell;
 	  	 	RAISE Form_Trigger_Failure;
 	ELSE 
 		EXIT_FORM;
 	END IF;
 
 
 
 ELSif V_ALERT_SHOW =	ALERT_BUTTON2  then
 	         
 EXIT_FORM(NO_VALIDATE);
END IF;
END IF;
END;

تم تعديل 1 يناير 201016 سنة بواسطة ABDOUH

شكرا لتجاوبك اخي
بس هاد الكود وين بدي اضعه
وشكرا لك

شكرا لتجاوبك اخي
بس هاد الكود وين بدي اضعه
وشكرا لك

في الزناد WHEN-WINDOW-CLOSED

أو في الزناد WHEN-BUTTON-PRESSED للـ PUSH BUTTON

موفق بإذن الله