Discussion :

[josianelemoine]

Bonjour,
je suis novice sur Access. Je travaille dans une entreprise vend des abonnements. Je dois crée une BDD access qui puisse gérer ses abonnements.
Mais je suis bloqué et j'ai vraiment besoin d'aide.
L'exemple type que je souhaite obtenir: Un client "Tartampion" signe abonnement d'un an à 1200€ au 1er avril 2012. Il aura 12 mensualités de 100€ à partir d'avril 2012 jusqu'à mars 2013.
Peut-on, à partir d'un montant et d'une date, obtenir une mensualisation? J'arrive évidement à obtenir la mensualité de l'abonné (1200€/12=100€). Mais je n'arrive pas à faire ajouter cette mensualité à chaque mois de l'année, à compter de la date de signature (avril 2012 en l'occurrence) et ce pendant un an (abonnement d'un an).
Si je n'ai été très clair, mais j'ai vraiment besoin d'aide.
Je suis bloqué! Au secours!!
Merci d'avance.

[marot_r]

La solution qui me parait la plus simple est un peut de VBA.

à mettre dans un module et a adapter à tes besoins

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
public sub CreerMensuelAnnuel(prmClefClient as long, prmDateDebut as date, prmMontantAnnuel as double)
   dim db as dao.database:set db=currentdb
   dim r as dao.recordset:set r=db.openrecordset("TableMensuel")
   dim dateMensuel as date:dateMensuel=prmDateDebut
 
   dim i as long:for i=1 to 12
      r.addnew
      r![ClefClient]=prmClefClient
      r![DateMensuel]=dateMensuel
      r![MontantMensuel]=prmMontantAnnuel/12
      r.update
      daetMensuel=DateAdd(1,"m",dateMensuel)'Calcul la date pour le mois d'après
   next i
 
   r.close:set r=nothing
   set db=nothing
end sub

Pour l'utiliser :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call CreerMensuelAnnuel(prmClefClient, prmDateDebut, prmMontantAnnuel)

En rempalçant les prmQuelqueChose les noms que tu as utilisés.

A+