Discussion :

[patmar83]

Malgré mes recherche je n'ai pas trouvé les renseignements que je cherche
je souhaite pouvoir générer des enregistrements dans une table à partir d'un formulaire. Exemple créer un calendrier à partir d'une date de début et une date de fin.
Le résultat serait autant de ligne que de jour compris entre ces deux bornes.
Ensuite je fais des calculs d'heure (pour cela j'ai trouvé des solutions et ça marche)
Access -2003
merci:

[marot_r]

Essaye cela, ça devrait répondre à ton problème.

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 CreerLigne(prmDateDebut as date, prmDateFin as date)
   dim db as DAO.Database
   dim r as DAO.recordset
   dim dateCourant as date
   dateCourant = prmDateDebut
 
   do while dateCourant<= prmDateFin
      r.addnew
      r![dateCourant]=dateCourant
      r.update
      dateCourant=dateAdd("d",1,dateCourant)
   loop
 
   r.close:set r=nothing
   db.close:set db=nothing
end sub

[patmar83]

Essaye cela, ça devrait répondre à ton problème.

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 CreerLigne(prmDateDebut as date, prmDateFin as date)
   dim db as DAO.Database
   dim r as DAO.recordset
   dim dateCourant as date
   dateCourant = prmDateDebut
 
   do while dateCourant<= prmDateFin
      r.addnew
      r![dateCourant]=dateCourant
      r.update
      dateCourant=dateAdd("d",1,dateCourant)
   loop
 
   r.close:set r=nothing
   db.close:set db=nothing
end sub

merci pour ce morceau de code, juste un complément d'info, à quel niveau je place le nom de mon formulaire ou de ma table pour que ces enregistrements se créent
merci

[marot_r]

Oops j'ai oublié des morceaux :

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 CreerLigne(prmDateDebut as date, prmDateFin as date)
   dim db as DAO.Database:set db=currentdb
   dim r as DAO.recordset:set r=db.openrecordset("NomTaTable")
   dim dateCourant as date
   dateCourant = prmDateDebut
 
   do while dateCourant<= prmDateFin
      r.addnew
      r![dateCourant]=dateCourant
      r.update
      dateCourant=dateAdd("d",1,dateCourant)
   loop
 
   r.close:set r=nothing
   db.close:set db=nothing
end sub

[patmar83]

j'ai essayé de faire fonctionner le code mais lorsque je compile, j'obtiens un message d'erreur sur la ligne dim DB as date base......
Le type n'est pas défini. Ou exactement, dois je taper ce code, dans un module et alors comment le récupérer ou dans mon formulaire de saisie

[marot_r]

Il faut le mettre dans un module à part ou 'sous' le formulaire te l'appeler dans OnClick du bouton.

Ensuite, il faut que tu ajoute une référence sur Microsoft DAO 3.x (x = 6 généralement).

Il faudra aussi ajoutre un me.requery pour que ton formulaire affiche les nouveaux enrs.

A+