Bonjour à tous et à toutes,
J'ai un formulaire pour gérer les adhérents d'une association ; il est basé sur la table T Adhérents
J'ai une autre table T_Cotisation pour gérer les cotisations et présence aux Ag (champs NUM_COTISATION_PK, T_Adherent_FK, Cotisation_An, AG, Cotisation et Cotisation_Du).
Les 2 tables sont reliées par N°Adherent <--->T_Adherent_FK
Lors du décès d'un adhérent (c'est une association où le nombre d'anciens est important) j'avais le code suivant lié au contrôle [DateDécès].
Il validait quelques données et mettait à 0 les cotisations dues de l'adhérent (J'ai mis ici les lignes concernées en commentaire)
Du fait de la restructuration récente de ma base, je n'ai plus les champs Du97...Du35 mais le champ Cotisation_Du de ma table T_Cotisation.
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 Private Sub DateDeces_BeforeUpdate(Cancel As Integer) If DateDeces <> "" Then DateRadiation = DateDeces MotifRadiation = "décès" Adherent = False TypeAdherent = "" Me!NonAdherent.Visible = True Me!NonAdherent.Caption = "N'est plus Adhérent" ' Du97=0 ' Du98=0 '... ' Du35=0 MsgBox "Les cotisations de cet adhérent décédé vont être mises à 0", vbExclamation, "" End If End Sub
Comment modifier le code ci-dessus pour que toutes les cotisations dues de l'adhérent en question soient mises à 0 ?
Merci de votre aide.
A+
C15
Partager