ما هذا الخطا
frm-40735 when key-next-item rasie unhandled ora-01403



code :

select name into :BLK37.mname from jamal.clients
where applno = :BLK37.applno and ctype like '?' and ser_no = 1;
SELECT NET_COST INTO :BLK37.NET_COST FROM JAMAL.ORDERS WHERE APPLNO =
:BLK37.APPLNO;
if :BLK37.NO_Q = 1 THEN GO_ITEM('BLK37.CON3');
IF :BLK37.APPLNO > 20009999 THEN
DECLARE
X NUMBER(2);
BEGIN SELECT CATEGORY INTO X FROM JAMAL.ORDERS WHERE APPLNO = :BLK37.APPLNO;
IF X IN(12,13,14) THEN
if :blk37.net_cost  >             6000
then :BLK37.Con1:='a_aqrar0';
else :BLK37.Con1:='a_qrar_IS';
end if;
ELSE
if :blk37.net_cost  >              6000
then  :BLK37.con1:='a_aqara0';
else :BLK37.con1:='a_qarar';
end if;
END IF;
END;
ELSIF :BLK37.APPLNO  <20010001 THEN
if :blk37.net_cost >6000 then :BLK37.Con1:='I_aqrar20';
else :BLK37.Con1:='I_qrar2000';
end if;
END IF;
ELSIF :BLK37.NO_Q = 2 THEN GO_ITEM('BLK37.K');
ELSIF :BLK37.NO_Q = 3 THEN GO_ITEM('BLK37.K');
ELSIF :BLK37.NO_Q = 4 THEN
:BLK37.K := 'à';
SELECT NVL(MAX(CU_NO),0) +1 INTO :BLK37.N FROM JAMAL.SADER
WHERE APPLNO = :BLK37.APPLNO AND REPKIND =4;
GO_ITEM('BLK37.CON3');
ELSIF :BLK37.NO_Q = 5 THEN
:BLK37.K := 'é';
GO_ITEM('BLK37.N');
ELSIF :BLK37.NO_Q = 6 THEN GO_ITEM('BLK37.K');
ELSIF :BLK37.NO_Q = 7 THEN GO_ITEM('BLK37.K');
ELSIF :BLK37.NO_Q = 8 THEN
:BLK37.K := 'é';
:BLK37.N := 2;
GO_ITEM('BLK37.CON3');
ELSIF :BLK37.NO_Q = 9 THEN
DECLARE
X NUMBER (10);
BEGIN SELECT distinct APPLNO INTO X FROM JAMAL.SADER
WHERE APPLNO  = :BLK37.APPLNO AND REPKIND = 2;
IF X IS  NULL THEN  GO_BLOCK('BLK35');
CLEAR_BLOCK;
MESSAGE('');
ELSE
GO_ITEM('BLK37.K');
MESSAGE(' ');
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN GO_BLOCK('BLK35');
CLEAR_BLOCK;
MESSAGE('');
END;
ELSIF :BLK37.NO_Q = 10 THEN
DECLARE
X NUMBER (10);
BEGIN SELECT distinct APPLNO INTO X FROM JAMAL.SADER
WHERE APPLNO  = :BLK37.APPLNO AND REPKIND = 3;
IF X IS  NULL THEN  GO_BLOCK('BLK35');
CLEAR_BLOCK;
MESSAGE('');
ELSE
GO_ITEM('BLK37.K');
MESSAGE('');
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN GO_BLOCK('BLK35');
CLEAR_BLOCK;
MESSAGE('');
END;
ELSIF :BLK37.NO_Q = 11 THEN GO_ITEM('BLK37.K');
ELSIF :BLK37.NO_Q = 12 THEN GO_ITEM('BLK37.K');
ELSIF :BLK37.NO_Q = 13 THEN GO_ITEM('BLK37.K');
ELSE NULL;
end if;
--EXCEPTION WHEN NO_DATA_FOUND THEN NULL;

FRM-40735: %s trigger raised unhandled exception %s.

Cause: Application design error. The current trigger raised an exception (other than FORM_TRIGGER_FAILURE), but it did not handle the exception.

Action: Rewrite the trigger text to handle the exception.

Level: >25

Type: Error

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

عيد كتابة الكود بتاعك بحيث تخليه وحده متكاملة و كمان تخلى فيه Exception Section علشان لو حدث أى خطاء يعمله Handle .

و بالتوفيق

مشكلة هنا اخي الكريم هيا الكابس لوك caps lock
انتي لما عملت ادخال علي الداتا بيس
كنت شغال والكابس لوك متفعل
ولما جيت تشغل الفورمه كان الكابس لوك غير نشط
والعكس صحيح
وهنا تاتي هذه الرساله
ora-01403


والله اعلم


ويارب اكون افدتك