Discussion :

[bjornd]

Bonjour ,

Je voudrai savoir si on pourrai par intermediaire d'une questionnaire sur access remplir automatiquement cette table avec ces infos d'une date début à une date fin?

Par exemple:je remplir valeur :8 date début:2/11/2005 date fin 2/12/2006

il remplit le valeur 8 après il apui sur un bouton et hop il me fait une table de autant de jours entre date début et date fin avec la valeur 8 .

et es ce qu'il est possible que quand on remplit dans le même champs un autre valeur par exemple 4 de date début 6/12/2005 a date fin 10/12/2005 il ecrase la valeur 8 pour mettre a la place 4?

je suis débutant et j'essaye de faire un truc de fou donc cette aide m'est très précieuse...

merci ,

Bjorn.

[marot_r]

Bonjour, je vais reformuler ce que j'ai compris de ta question.

1) Tu as une table access (maTable) qui contient un champ date (maDate)
2) Tu as (ou vas avoir) un formulaire avec deux champs : dateDébut et dateFin.
3) Tu veux un enregistrement pour chacun des jour qui séparent dateDebut de dateFin.

Ex : début 01/01/05, fin 03/01/05

01/01/05
02/01/05
03/01/05

Si c'est bien cela il te faut un peu de code VBA associé à ton form, sur l'événement click d'un bouton par exemple.

Code :

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

1
2
3
4
5
6
7
8
 
'Eventuellement commencer par mettre ici du code controle sur la saisie (ex : datedebut<=dateFin) ou mieux le mettre les contrôle dans une fonction qui valide la saisie et qui détermine si on appele le programme. Un truc du genre : 
 
if SaisieOK() then
     call CreerJour(me.DateDebut, me.DateFin)
  else
     msgbox "Saisie invalide"
end if

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
 
Private Function SaisieOK() as boolean
   dim result as boolean
 
   if isDate(me.datedebut) and isDate(me.DateFin) then
          if me.dateDebut<=me.dateFin then
                result=true
            else
                result=false
          end if
     else
          result=false
   end if
 
   SaisieOK=result
end function

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
 
'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

Ce code n'a pas été validé, il se peut qu'il y ai des erreurs de syntaxe

[bjornd]

ça m'aide déjà beaucoup et je vais chercher un livre sur vba au bibliotheque pour aller dans ce sense la.

merci ,

Bjorn.