Discussion :

[youcef16dz]

Salam alaikoum,
J'ai une table relation dont la structure suite
N°employeur (clé externe)
N°mois (clé externe)
exercice (clé externe)
N°employeurN°moisExercice (clé composée)
Assiette
a chaque saisi, sois création d'enregistrement ou modification d'un enregistrement, un événement est déclencher, ce événement, sois il crée un enregistrement ou modifier une valeur si l'enregistrement existe dans une table relation dont la structure est la suivante
N°employer (cle externe)
N°trimestre (clé externe)
exercice (clé externe)
N°emplyeurN°trimestreExercice (clé composée)
Mont_Trimstriel

mon code est le suivant :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
// déclaration mois	
nMoiSaisi, nExerEncours, indParcours sont des entiers
moMnt_trim est un monétaire
sCleRech est une chaîne
 
 
nMoiSaisi=TABLE_DAC.COL_N_mois
nExerEncours=TABLE_DAC.COL_Exercice
 
//Mise a jour de l'assiette trimestriel
moMnt_trim=Val(TABLE_DAC.COL_N_mois)
SELON nMoiSaisi
	CAS 1 À 3 ://mise a jours du 1e trimestre 
				POUR indParcours=1 À 3
					moMnt_trim=moMnt_trim+TABLE_DAC.COL_Mnt_Mens[indParcours]
				FIN
				sCleRech="1"+COMBO_Tab_Etablissement.Valeur+COMBO_Exercice.Valeur
				Trace(sCleRech)
				SI HLitRecherchePremier(Tab_LigneTrimestre,Num_trimestreId_etabliExercice,sCleRech)  ALORS
					Tab_LigneTrimestre.Mnt_Trim=moMnt_trim
				SINON
					Tab_LigneTrimestre.Num_trimestre=1
					Tab_LigneTrimestre.Exercice=nExerEncours
					Tab_LigneTrimestre.Id_etabli=COMBO_Tab_Etablissement.Valeur
					Tab_LigneTrimestre.Mnt_Trim=moMnt_trim	
				FIN
				Trace(HRecherchePremier(Tab_LigneTrimestre,Num_trimestreId_etabliExercice,sCleRech))
				Trace(moMnt_trim)
	CAS 4 À 6 : 
				POUR indParcours=4 À 6
					moMnt_trim=moMnt_trim+TABLE_DAC.COL_Mnt_Mens[indParcours]
				FIN
				SI HRecherchePremier(Tab_LigneTrimestre,Num_trimestre,2) ET HRecherchePremier(Tab_LigneTrimestre,Exercice,nExerEncours) ET HRecherchePremier(Tab_LigneTrimestre,Id_etabli,COMBO_Tab_Etablissement) ALORS
					Tab_LigneTrimestre.Mnt_Trim=moMnt_trim
				SINON
					Tab_LigneTrimestre.Num_trimestre	= 2
					Tab_LigneTrimestre.Exercice		= nExerEncours
					Tab_LigneTrimestre.Mnt_Trim		= moMnt_trim	
				FIN
	CAS 7 À 9 :
				POUR indParcours=7 À 9
					moMnt_trim=moMnt_trim+TABLE_DAC.COL_Mnt_Mens[indParcours]
				FIN
				SI HRecherchePremier(Tab_LigneTrimestre,Num_trimestre,3) ET HRecherchePremier(Tab_LigneTrimestre,Exercice,nExerEncours) ET HRecherchePremier(Tab_LigneTrimestre,Id_etabli,COMBO_Tab_Etablissement) ALORS
					Tab_LigneTrimestre.Mnt_Trim=moMnt_trim
				SINON
					Tab_LigneTrimestre.Num_trimestre	= 3
					Tab_LigneTrimestre.Exercice		= nExerEncours
					Tab_LigneTrimestre.Mnt_Trim		= moMnt_trim	
				FIN
	CAS 10 À 12 :
				POUR indParcours=10 À 12
					moMnt_trim=moMnt_trim+TABLE_DAC.COL_Mnt_Mens[indParcours]
					indParcours++
				FIN
				SI HRecherchePremier(Tab_LigneTrimestre,Num_trimestre,4) ET HRecherchePremier(Tab_LigneTrimestre,Exercice,nExerEncours) ET HRecherchePremier(Tab_LigneTrimestre,Id_etabli,COMBO_Tab_Etablissement) ALORS
					Tab_LigneTrimestre.Mnt_Trim=moMnt_trim
				SINON
					Tab_LigneTrimestre.Num_trimestre	= 4
					Tab_LigneTrimestre.Exercice		= nExerEncours
					Tab_LigneTrimestre.Mnt_Trim		= moMnt_trim	
				FIN		
FIN

mais rien ne change dans la deuxième table

[Voroltinquo]

Bonjour,
Rien ne changera tant que tu n'auras pas dit de changer par un HAjoute ou un HModifie

[youcef16dz]

une faute tellement idiote que je n'est même pas pense
Merci pour votre aide Voroltinquo