Discussion :

[nashouille]

bonjour,

lors de la suppression d'un enregistrement, je verifie manuellement l'intégrité.

le probleme que je rencontre est lorsque la regle d'intégrité s'applique (sup impossible).
Si je cherche a modifier ce meme enregistrement juste apres. la regle d'intégrité est toujours active et me remonte l'erreur.

comment puis je reprendre une manipulation de modification et annulé l'erreur précédente.

click de mon bouton se suppression

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
27
28
29
30
31
32
33
34
 
SI ListeSelect(TABLE_LICENCE) = -1 ALORS RETOUR
 
Index est un entier
Value est une chaîne
 
Resultat est une chaîne
 
Index = ListeSelect(TABLE_LICENCE)
Value = TABLE_LICENCE[Index]
 
 
Resultat = Confirmer(0,"Confirmer la suppression de la licence sélectionner. ")
 
SELON Resultat
	CAS Oui:
		HLitRecherchePremier(LICENCE,Intitule,Value)
 
		SI HTrouve() ALORS
			HSupprime()
 
			SI ErreurDétectée ALORS
				SI hErrIntégrité ALORS
					Erreur("Suppréssion impossible, licence utilisé !")
					RETOUR
				FIN
 
			FIN
 
		FIN
	AUTRE CAS
FIN
 
ListeAffiche(TABLE_LICENCE,taInit)

merci

[nashouille]

il faut supprimé le RETOUR dans la condition de test

RETOUR sort de l'evenement et annule la fin du traitement.