1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
'Ici le code actif proprement dit
Private Sub CreerJour(prmDateDebut as date, prmDateFin as date)
dim d as date
dim db as database:set db=codedb
dim r as recordset:set r=db.openrecordset("maTabe", dbOpenDynaset)
d=prmDateDebut :'Champ du formulaire qui contient la date de début
do
r.adnew
r![maDate]=d
r.update
d=dateAdd("d",1,d):'Ajoute un jour à la date
while d<=prmDateFin
r.close:set r=nothing :'feme le recordset et libère la mémoire associée
db.close:set db=nothing:'Ferme la bas et libère la mémoire associée
end sub |
Partager