Modifier données autre table si

Version imprimable

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)
Code:

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
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.

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

:salut:

Il faut faire exécuter une requête MAJ dans ta procédure :

Code:

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
Private Sub DateDeces_BeforeUpdate(Cancel As Integer)
Dim l_strSql as String
 
If DateDeces <> "" Then
    DateRadiation = DateDeces
    MotifRadiation = "décès"
    Adherent = False
    TypeAdherent = ""
    Me!NonAdherent.Visible = True
    Me!NonAdherent.Caption = "N'est plus Adhérent"
 
    l_strSql = "UPDATE T_Cotisation SET Cotisation_Du = 0 WHERE Cotisation_An  > " &  Year(Me.ActiveControl) & " AND T_Adherent_FK = " & Me.[Nom du Champ contenant le Code adherent dans le formulaire]
 
    With DoCmd
        ' Desactive les messages système 
        .SetWarnings False
        ' Execute la commande Sql
        .RunSQL l_strSql
        ' Réactive les messages système
        .SetWarnings True
   End With
 
    MsgBox "Les cotisations de cet adhérent décédé ont été mises à 0", vbExclamation, ""
 
End If
 
End Sub

Pour peaufiner le code, il aurait été intéressant de voir le contenu de la table T_Cotisation. En effet, j'ai posé dans la condition WHERE le Critère Cotisation_An en supposant que les montants des cotisations sont déjà pré-saisis ( :koi: )

Bonne continuation

Bonjour,

Merci de cette réponse ; cela fonctionne parfaitement après avoir modifié très légèrement la procédure pour mettre les cotisations dues à 0 depuis son adhésion.

Code:

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
Private Sub DateDeces_BeforeUpdate(Cancel As Integer)
Dim l_strSql As String
 
If DateDeces <> "" Then
 
    If MsgBox("Etes-vous sur que cet adhérent est bien décédé ?", vbQuestion + vbYesNo) = vbNo Then
 
        MsgBox "Pensez à effacer la date de décès que vous venez de saisir !", vbExclamation, ""
 
    Else
 
        DateRadiation = DateDeces
        MotifRadiation = "décès"
        Adherent = False
        TypeAdherent = ""
        Me!NonAdherent.Visible = True
        Me!NonAdherent.Caption = "N'est plus Adhérent"
 
        l_strSql = "UPDATE T_Cotisation SET Cotisation_Du = 0 WHERE Cotisation_An  >= " & Year(Me.DateAdhesion) & " AND T_Adherent_FK = " & Me.N°Adherent
 
          With DoCmd
            ' Desactive les messages système
            .SetWarnings False
            ' Execute la commande Sql
            .RunSQL l_strSql
            ' Réactive les messages système
            .SetWarnings True
          End With
 
        MsgBox "La case 'Adhérent' a été décochée" & Chr(10) & "Les cotisations de cet adhérent décédé ont été mises à 0", vbExclamation, ""
 
   End If
 
End If
 
End Sub

J'ai aussi mis un message d'alerte pour bien vérifier que c'est le bon adhérent.
Par contre plutôt que de mettre

Code:

MsgBox "Pensez à effacer la date de décès que vous venez de saisir !", vbExclamation, ""

Comment effacer la date de décès saisie par erreur et quitter la procédure ?

Merci de ton aide

A+

C15

13/05/2018, 10h48
titi95

Bonjour

Tu peux ajouter simplement

Code:

DateDeces.Undo

à la place de la MsgBox si vbNo
13/05/2018, 11h12
C15nantes

Bonjour,

Désolé, mais sauf erreur de ma part, cela ne fonctionne pas .

Merci de ton aide
A+

C15
13/05/2018, 14h05
titi95

Effectivement, j'avais oublié que ton code était dans l'événement Avant MAJ de DateDeces.
Et avec

Code:

DateDeces = ""

en changeant d'événement
13/05/2018, 14h16
C15nantes

Bonjour,

Il y a des jours sans, je l'avais tenté aussi, mais cela ne marche pas non plus

Merci de ton aide
A+

C15
13/05/2018, 14h20
titi95

Et sur Après MAJ ?
13/05/2018, 14h53
C15nantes

Bonjour,

Merci, cela fonctionne.

Une fois de plus, cela n'arrange pas mes affaires, j'ai toujours eu un doute sur le fait de placer un événement avant ou après mise à jour ;)

A+

C15