Attention:

1.  on utilise la syntaxe   :New.nomcolonne  pour accéder au colonne de l'enregistrement modifié. Vous avez oublié les deux point :     

2. Vos deux requêtes Select ...Into retourne plus qu'une ligne, elles vont soulever des exceptions. Il faut la clause where pour s'assurer que la requête retourne une seule valeur.