Impossible de supprimer des lignes [Résolu]

[decksroy]

Bonjour,

Pourriez-vous m'aider sur un probléme de supression.
Voila j'ai un bloc basé, et je voudrais supprimer les enregistrement vides
En effet, L'utilisateur peut creer des lignes sans valeur.
Voila ce que j'ai essayé de faire, mais le soucis c'est que cela me supprime bien les lignes vides sauf une :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
FIRST_RECORD ;
WHILE :SYSTEM.LAST_RECORD='FALSE'
	LOOP 
		IF :BLOC.ITEM IS NULL THEN
			delete_record ;
			commit_form ;
		END IF ;
		NEXT_RECORD ;
	END LOOP ;
IF :BLOC.ITEM IS NULL THEN
 delete_record ;
 commit_form ;
END IF ;

Merci pour votre aide.

[SheikYerbouti]

tester le dernier record en fin et pas au début.

remplacer while du début par loop puis exit when en fin de block.

[McM]

Ca marche si 2 lignes qui se suivent sont à NULL ?
Parce qu'il me semble que delete_record supprime l'enregistrement et que tu passes à l'enregistrement suivant automatiquement. Le Next_record dans le loop changera à nouveau de record.

[decksroy]

Merci pour vos réponses.
J'ai donc mis le LOOP et le EXIT WHEN à la place de WHILE.

McM ! tu as vu juste, après le delete record je passe à l'enregistrement suivant
donc s'il est à nul je ne le supprime pas.C'est ici que je dois résoudre le probléme.

J'ai donc toujours la même problème.

[decksroy]

Pour résoudre le problème j'ai remplacé le premier IF par un WHILE.
encore merci.