التحقق من الأيميل

السلام عليكم :

بالبداية يجب ان تعمل على ال TextItem وهو الذي الذي تريد ان تتحقق من مدخلاته تريجر اسمه When-Validate-Item وتكتب فيه الكود التالي

Declare
 x varchar2(1);
	 BEGIN
	 x:='0';
Begin 
 x:='1';
 Select '1' into x 
 from dual
 where :xx_Std_Blk.E_Mail like'%@%.%';
 Exception
 when no_data_found then 
 x:='0';
end;


   if x = '1' then 
   null;
	else
	Message('Invalid E-Mail Format ');	
  Message('Invalid E-Mail Format ');
  Raise Form_Trigger_Failure;
	end if;

END;

مع الاخذ بعين الاعتبار ان

xx_std_blk هو اسم البلوك الذي انت عليه

E_Mail اسم الفيلد في الداتا بيز واسم ال TextItem