كتبت هذا الكود في

WHEN-CHECKBOX-CHANGED

declare

v_tota_days number;
final_days  number;

begin


message('Hi');



if  :HR_STAFF_LEAVE.LV_APPROVED_HOD = 'Y'  then


select leave_total
into   v_tota_days
from   HR_STAFF_DEATILS
where  ST_ID = :HR_STAFF_LEAVE.STAFF_ID;


message(v_tota_days);



final_days := v_tota_days - :HR_STAFF_LEAVE.LV_NO_DAYS_AAPLIEd;


message(final_days);



update HR_STAFF_DEATILS
set	HR_STAFF_DEATILS.LEAVE_TOTAL	= final_days
where  HR_STAFF_DEATILS.st_id	   = :HR_STAFF_LEAVE.STAFF_ID;



message('HR_STAFF_DEATILS updated');




update HR_STAFF_LEAVE
set	HR_STAFF_LEAVE.LV_APPROVED_HOD = 'Y'
where  HR_STAFF_LEAVE.STAFF_ID   = :HR_STAFF_LEAVE.STAFF_ID;


message('Hi3');

else	
null;

end if;



exception
when no_data_found then
  MESSAGE('NO DATA AVALIBALE');
  MESSAGE('NO DATA AVALIBALE');
when others then
MESSAGE(SQLERRM);
  MESSAGE(SQLERRM);
  
  
end;

لاكن التعديل لايحدث يعطيني خطاء

FRM-40508:ORACLE ERROR UNABLE TO INSERT RECORD

في حد يعرف ليش هذا الخطاء يظهر شو الغلط في الكود اللي انا كاتبتنة؟؟؟؟

Any help will be appreciieated

FRM-40508: ORACLE error: unable to INSERT record.

Cause: A fatal error occurred while trying to insert a record. The table associated with the current block of the form might not exist, your username might not have authority to perform the specified action on the table, or some other reason might have caused the fatal error.

Action: Contact your DBA.

Level: >25

Type: Error

--------------

اذا عملتى Compile للكود و لم يظهر اى خطاء ،فتأكدى الاول ان الجدول الذى تم بناء ال Data Block عليه موجود و سليم فى ال Database و تأكدى ان الاسكيمة التى اتصلتى بها من خلال ال Forms بها الصلاحيات الازمة التى تمكنك من عمل ال Update على الجدول المذكور بكودك ..... و اذا كان الخطاء الذى تتحدثين عليه FRM-40508 مازال يحدث اثناء ال Run Time ....... اذن قومى بأرفاق ال source code و ملف ال fmd .... ارجو مراجعة هذا الرابط لمعرفة الطريقة الصحيحة لأستخراج ال Source Code
أضغطى هنا

و بالتوفيق

السلام عليكم
أود ان اعلق على الكود المكتوب

you specified this check

if

:HR_STAFF_LEAVE.LV_APPROVED_HOD = 'Y'

then

that you too update down later

	update HR_STAFF_LEAVE
set	HR_STAFF_LEAVE.LV_APPROVED_HOD = 'Y'
where  HR_STAFF_LEAVE.STAFF_ID   = :HR_STAFF_LEAVE.STAFF_ID;

i think if this record was new ur code will get this bug which means you must save firstly
and u dont have to update record on db but u can update by simply assign

:HR_STAFF_LEAVE.LV_APPROVED_HOD : = 'Y';

اخي هاني شكرا على ردك
انا تاكدت من الجدول موجود وسليم مافية مشاكل والسكيما بعد

انا راح ارفق السورس كود والفورم وياريت تشيكهم

LEAVE_APPLICATION_FORM2.zip

شكرا اخي msayed على ردك
وجة نظر معقولة سوف اعمل بها واعدل الكود بناء عليها

شكرا لك

ملقدرت ارفق الsource code
يقول غير مسموح بارفاق هذا الملف؟؟؟؟؟

قومى بضغط ملفاتك فى ملف ZIP ثم أرفقى الملف المضغوط فى ردك القادم .

صباح الخير اخ hany freedom
انا ارفقت الفورم والsource code
ياريت تشيكهم وتعطيني خبر

شاكرة لك تعاونك

LEAVE_APPLICATION_FORM2.zip

schema_name.zip

يا أختى الكريمة
أين ملف أنشاء الأسكيمة ؟
أنتى أعطيتينى الملف الذى يدخل البيانات .... بينما لم تعطينى الملف الذى يبنى الكائنات - كال Tables - التى سيوضع بداخلها هذه البيانات !!!

قومى بأستخدام ملف ال generate_schema_script_toad.zip الذى أرفقته بهذه المشاركة >>> أضغطى هنا

منتظر الرد .....

السلام عليكم
يوجد بعض الاسباب لهذا الخطا منها ما قد يفيدك
-ان يكون هناك NON DATABASE ITEMS
CHANGED TO DATABASE ITEMS

-ان يكون الجدول غير مسموحله بمساحة اكبر

-عموما لازم تبعتلنا الخطا ORA الحادث معك وعندها نحل الخطا بالضبط
- اعملى SHOWKEYS
AND AFTER SEE WHAT SHORTCUT RUN ERROR