Discussion :

[voldorak]

Bonjour à tous,

j'ai besoin de vos lumières pour une difficulté sous Access (2010).

J'ai créé un formulaire sur lequel figure:
deux cellules permettant d'afficher/sélectionner une période ("DateDebut" et "DateFin")
sept cases à cocher pour chacun des jours de la semaine
un sous formulaire continu avec une cellule "DateOuverture"

Mon problème est que je voudrais pouvoir incrémenter automatiquement les jours d'ouverture de la période choisie en fonction des jours cochés.
Pour être plus clair, par exemple je choisis la période du 15 avril 2013 au 15 août 2013 et je coche le lundi et le vendredi; je voudrais qu'access renseigne dans le champ voulu (DateOuverture) tous les lundi et tous les vendredi de la période.

J'ai bien lu la fiche VBA de Maxence HUBICHE sur les "Les Fonctions Date/Heure" et essayé quelques pistes avec Weekday mais sans succès. Si vous pouviez m'aiguiller, svp.

Merci

Nicolas

[mumen]

Ta formulation n'est pas hyper claire.

Je récapitule ce qu'il me semble comprendre : tu as une table avec des enregistrements qui comportent une DateOuverture et d'autres choses.

Tu voudrais afficher la liste des enregistrements de cette table compris entre tes deux dates limites ET dont le jour d'ouverture serait le lundi ou vendredi. C'est ça ? c'est autre chose ?

[palaga13]

Salut,
Ce qui n'est pas clair pour moi c'est la fameuse cellule dateOuverture. Est-ce une liste ? Si oui, alors j'y verrai bien à l'intérieur tous les Lundi et Vendredi (en suivant ton exemple) de la période choisie.

Je le ferais en travaillant sur les semaines: pour chaque semaine depuis la semaine de début jusqu'à celle de fin -> là tu récupère les jours cochés et tu alimente la liste -> next.
Avec un petit test au début et à la fin histoire d'être toujours dans la bonne période.

C'est une idée vite pensée, pas le temps de tester, je vais me coucher ...
A+

[voldorak]

Merci à tous les deux pour vos réponses.
J'essaie d'éclaircir le problème:

Je dois créer une BDD pour la gestion des repas livrés dans les établissements dont on s'occupe (écoles, centres de loisirs, crèches, etc.). Je dois donc renseigner pour chaque établissement les jours d'ouverture pour pouvoir y affecter ensuite les commandes de repas, etc. Chaque type d'établissement fonctionne différemment (écoles en général le lundi, mardi, jeudi, vendredi, hors vacances scolaires, les centres de loisirs le mercredi et les vacances scolaires, etc.)

Les contraintes étant nombreuses (vacances scolaires changeantes d'une année sur l'autre, jours fériés, rythme scolaire qui risque de changer, etc.) je voudrais chaque année pouvoir créer un socle commun des jours d'ouverture à chaque type d'établissement (ex: les écoles).

Mon idée (sous réserve que vous la validiez) est donc de sélectionner le type d'établissement (ex: écoles), la période voulue (ex: du 01/09/12 au 04/07/13) et les jours de fonctionnement (cases à cocher lundi, mardi, jeudi et vendredi).
A la suite de quoi, en cliquant sur un bouton, je voudrais qu'Access renseigne automatiquement dans le champ "DateOuverture" les jours de fonctionnement de la période (ex: lundi 03 septembre 2012, mardi 05 septembre 2012, jeudi 07 septembre 2012, etc. jusqu'à jeudi 04 juillet 2013)

Pas facile d'expliquer clairement, avec un aperçu c'est plus clair ? (cf. ci joint)

[User]

Salut,

Tu peux t'inspirer de ce code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Dim j as long
Dim dat1 as date,dat2 as date 
Dim rst as DAO.RecordSet
 
Set rst = CurrentDb.OpenRecordset("T_Planning", dbOpenDynaset)
 
dat1=DebutSemaine(Me.DateDebut) ' calcul le 1er jour de la semaine
dat2=(Me.DateFin)
 
Do While dat1<date2
 
   For j=1 to 5
 
      if Me("Jour" & j).Value=true then ' si la case à cocher Jour1..5 est cochée
 
            rst.AddNew
            rst!DateOuverture = dat1+j-1
            rst!TypEts = Me!TypEts
            rst.Update
 
      end if
 
   Next j
 
dat1=dat1+7 ' semaine suivante
 
Loop
 
 
 
Function DebutSemaine(ByVal DateSemaine As Date) As Date
'Prend en argument un jour dans la semaine choisie et renvoie la date du premier jour de cette semaine
 
Dim i As Integer
i = Weekday(DateSemaine, vbMonday)
DebutSemaine = DateAdd("d", -i + 1, DateSemaine)
End Function

A+

[voldorak]

Bonjour User,
Désolé pour le délai de réponse, j'étais en déplacement.
Merci de ton aide, je vais me pencher sur ta proposition et je vous tiendrai au courant.
Bonne journée,
Nicolas