Discussion :

[medilano]

Bonjour, je suis entrain de développer une BD Access qui permet de gérer les contrats,
Mon souci et d'éclater les périodes de locations en plusieurs dates : exemple : Date de début 01/01/2015 ; date de fin 31/12/2017, le payement se fait chaque 6 mois (Interval) de la date de début.

je voudrais avoir un code qui permet d'insérer les date de paiement automatiquement dans une table chaque 6 mois à partir de la date début (c.à.d 01/01/2015 qui qui me renvoi toujours la prochaine date) et qui s'arrête à la date de la fin (c. à. d le 31/12/2017) comme dans l'exemple ci-après

Période Date de paiement
1 01/01/2015
2 01/07/2015
3 01/01/2016
4 01/07/2016
5 01/01/2017
6 01/07/2017
7 01/01/2018

Merci

[nico84]

Bonjour,

Cela peut se faire avec une petite boucle en vba (non testée) :

Code :

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

1
2
3
4
5
6
7
8
dim d as date, i as integer
d=cdate('01/01/2015')
i=1
while d<=cdate('31/12/2017')
  currentdb.execute "insert into matable (num,echeance) values (" & i & ",cdate('" & d & "'));", dbfailonerror
  i=i+1
  d=dateadd("month",6,d)
wend

[medilano]

Bonjour,
ça marche Nico, Merci