Erreur au niveau "WHEN-BUTON-PRESSED"

BONJOUR,

un message d'erreur apparait lorsque j'exécute:

"frm-40735: le déclencheur WHEN-BUTTON-PRESSED a détecté une exception ora-06502 non traitée"

au bouton "WHEN-BUTTON-PRESSED", voici le programme que j'ai écrit:

declare	 t int; i int;
begin
:c:='';	 t:=length(:a);

	for i in 1..t loop
		:c:=:c||chr(ascii (substr(:a,i,1))+:b);
	end loop;
	end;