السلام عليكم
اخواني بعد الحمد لله
كل عام وانتم بخير وكتب الله لكم حج بيته الحرام
اعرض مشكلتي باختصار
المشروع هو تخزين الأوراق الخاصة بكل موظف واستبدال غرفة الملفات بهذا البرنامج بحيث يمكن استرجاع جميع الأوراق الخاصة بالموظف عن طريق هذا البرنامج، طبعا هو جزء من مشروع اكبر متكامل في شؤؤون العاملين
انا عندي ثلاث جداول 1- جدول بيانات الموظفين مختصر EMP_DATA ( رقم الملف - اسم الموظف)
2- جدول بيانات صور معاملات الموظف طبعا المعاملة الواحدة قد تحتوي على اكثر من ورقة واسمه CO_LETTER وهو كما واضح في الصورة ( اسم الصورة تاريخها رقم الصادر وتاريخه ونوعها وغيره)
3- جدول الصور PIC وفيه نخزن الصور نفسها
والمشكلة عند استعراض هذه الصور على الفورم وذلك عن طريق الكود الموضح في الصورة وعند تنفيذ الكود يظهر هذا الخطأ
فبرجاء المساعدة في حل هذه المشكلة وشكراً

مرفق صورة بالخطأ ومرفق الفورمة
وهذه هو الكود في زر البحث

begin
if :EMP_DATA.FILNO is  null then	
message('You must enter the department number');
message('You must enter the department number');
else
for i in (SELECT PI.FILNO,PI.PIC_TITL,PI.PIC_DATE,PI.PIC_NO,PI.PIC,
   	EM.EMP_NAME,CO.PIC_TYPE,CO.ISSUENO,CO.ISSUUE_DATE,CO.IN_SYSDATE 	FROM PIC PI,EMP_DATA EM,CO_LETTER CO
				WHERE  EM.FILNO=CO.FILNO_EMP	AND	CO.FILNO_EMP=PI.FILNO
				AND	CO.PIC_TITLE=PI.PIC_TITL
				AND	CO.PIC_DATE=PI.PIC_DATE
				AND	PI.FILNO=:EMP_DATA.FILNO
				AND	PI.PIC_TITL=:EMP_DATA.PIC_TITL
				AND	PI.PIC_DATE=:EMP_DATA.PIC_DATE)	loop
:CO_LETTER.EMP_NAME:=i.EMP_NAME;
:CO_LETTER.ISSUENO:=i.ISSUENO;
:CO_LETTER.IN_SYSDATE :=i.IN_SYSDATE ;
:CO_LETTER.ISSUUE_DATE :=i.ISSUUE_DATE ;
:CO_LETTER.PIC_TYPE:=I.PIC_TYPE;
:CO_LETTER.FILNO:=I.FILNO;
:CO_LETTER.PIC_NO:=I.PIC_NO;
:CO_LETTER.PIC_DATE:=I.PIC_DATE;
:CO_LETTER.PIC_TITL:=I.PIC_TITL;
:PIC.PIC:=X.PIC;
END LOOP;

 end if;			
exception
	when no_data_found then
	message('no data');
	go_item(':CO_LETTER.FILNO');
	
end;

CO_LETTER_SEARCH_ME.rar

رجاء من عنده مساعده فلا يبخل بها