Discussion :

[madina]

Bonjour j'essaie de mettre à jour une colonne pour des enregistrements se trouvant dans un bloc tabulaire. je vois si une case est cochée ou pas .
Mais il me signale l'erreur :

FRM-40102 :Vous devez saisir ou modifier un enregistrement au préalable.

voila mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
declare
 
begin
 
	first_record;
	loop
 
	if :AUGMENTE_SI='O' then
		 update emp set SAL_AUGMENT=sal*1.3 where empno=:empno;
	end if;
 
	if :ANNUL_AUGMENT='O' then
		update emp set SAL_AUGMENT=null where empno=:empno;
	end if;
 
	if :system.last_record='true' then 
		 	  exit;
	end if;
 
	next_record;
 
	end loop;
 
	commit;
	first_record;
	end;

Que faire ? Merci d'avance

[SheikYerbouti]

Essayez ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
IF :system.last_record='TRUE' then

[madina]

Oui pourtant c''est ce que j'ai fait mas ça marche pas du tout.
j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
if system.last_record='TRUE' then  
exit
end if;

.

mais ça donne toujours le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

FRM-4010.

[McM]

Le commit fait un commit_form
Visiblement tu as un bloc basé dans ta forme qui gêne.

Pour ne faire qu'un commit en base, tu peux utiliser une procédure basée qui fait juste un commit, et appeler cette procédure au lieu du commit

[madina]

Ok je vois ce que tu veux dire.
mais dans cette procédure , il y aura donc et seulement l'instruction COMMIT ?
c'est elle qui le fait dans la base.

[McM]

Oui.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CREATE PROCEDURE P_COMMIT IS BEGIN COMMIT; END;

Forms ne fait pas de modification/insertion tant qu'il n'y a pas eu un POST ou un COMMIT_FORM.
Donc parfois, il est utile de pouvoir commiter un update/insert/delete codé à la main sous Forms.

[madina]

Ok je vois bien.
Merci