Bonjour à tous et à toutes
J'ai un formulaire principal contenant toutes les informations d'un adhérent (basé sur T Adhérents) ; il contient un sous formulaire pour gérer les cotisations (basé sur T_Cotisation)
Dans le formulaire principal, j'ai un bouton pour créer une nouvelle fiche ; il contient,en partie, le code suivant :
On remplit donc toutes les infos du nouvel adhérent dans le formulaire principal.
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 Private Sub Nouveau_Click() On Error GoTo Err_Nouveau_Click If Me.NewRecord Then N°Adherent = DMax("[N°Adherent]", "[T Adhérents]") + 1 Me.DateJour.Value = Date DoCmd.RunCommand acCmdSaveRecord MsgBox "S'il s'agit d'un nouvel adhérent, changer d'enregistrement par roulette souris ou le navigateur en bas à gauche" & Chr(13) & "et revenez sur la fiche du nouveau avant d'ouvrir le formulaire de ses cotisations", vbOKOnly 'Ajout du nouvel enregistrement dans la table T_Cotisation Dim T_Cotisation As DAO.Recordset Set T_Cotisation = CurrentDb.OpenRecordset("T_Cotisation", dbOpenDynaset) T_Cotisation.AddNew T_Cotisation("T_Adherent_FK") = Me.N°Adherent T_Cotisation.Update End If
Dans le sous-formulaire j'ai 4 contrôles :
Cotisation_An (l'année concernée)
Ag (case à cocher pour valider la présence ou pas)
Cotisation (case à cocher)
Cotisation_Du (par défaut à 25 €, qui passe à 0 quand on valide la paiement par la case Cotisation)
Pour un nouvel adhérent, dans le sous-formulaire j'ai sur une même ligne les 4 contrôles que l'on remplit par exemple de la façon suivante
2020 Ag (cochée), Cotisation (cochée), 0
Mon trésorier préféré, qui est le principal utilisateur, souhaiterait que pour un nouvel adhérent, dans le sous-formulaire, s'affichent les contrôles correspondant aux années
de l'année d'adhésion à l'année 2035.
Comme cela il n'aura plus, chaque année, qu'à compléter les différentes valeurs.
Merci de me dire si c'est possible sur le plan raisonnement et si oui comment modifier le code précédent.
Merci de votre aide
A+
C15nantes
Partager