declare
cusor_it varchar2(100);
lov_names varchar2(100);
BEGIN cusor_it := :System.Cursor_Item;
IF :System.Cursor_Item = cusor_it and :System.Mode = 'ENTER-QUERY' THEN 
	lov_names := GET_ITEM_PROPERTY(cusor_it,LOV_NAME); 
	IF NOT Show_Lov(lov_names) THEN 
		RAISE Form_Trigger_Failure; 
	END IF;
end if;
EXCEPTION WHEN OTHERS THEN NULL;
END;

محلل و مطور النظم و البرامج : عبدالرحمن سيد منسي

تم تعديل 21 يوليو 200817 سنة بواسطة Amgad

يكتب هذا الكود في Trigger "When_mouse_click"

هذا من وجهة نظري

الأخ / عبد الرحمن

شكرا لك

ننتظر منك الجديد دائما

حل رائع الى حد كبير جدا

ومايعرفه الا الاذكياء مثلك ياعزيزي عبدالرحمن

ولو اختلف معك احد على هذا الحل فلاتحزن لأنك حاولت وفعلت

وبالتوفيق الدائم وانا احييك في نشر المعلومة نفع الله بك وبعلمك

يكتب هذا الكود في Trigger "When_mouse_click"

هذا من وجهة نظري

نسيت تقول ان التريجر على مستوى الفورم