Discussion :

[sbeprod]

Bonjour,

Je suis en train de créer une petite appli sous access pour permettre de saisir les heures supplémentaires.

Je voudrais donc dans un formulaire pour renseigner l'année, sélectionner un numéro de semaine et obtenir donc dans un sous-formulaire (sous forme de tableau) obtenir toutes les dates composant cette semaine précise.

J'ai regardé les sujets approchants mais rien ne me permettant de me mettre sur le voie.

Le plus simple serait peut-être créer une table calendrier avec les dates et le num de semaine correspondant ?

Merci de votre aide.

[LostIN]

Bonjour,

Je suis en train de créer une petite appli sous access pour permettre de saisir les heures supplémentaires.

Je voudrais donc dans un formulaire pour renseigner l'année, sélectionner un numéro de semaine et obtenir donc dans un sous-formulaire (sous forme de tableau) obtenir toutes les dates composant cette semaine précise.

J'ai regardé les sujets approchants mais rien ne me permettant de me mettre sur le voie.

Le plus simple serait peut-être créer une table calendrier avec les dates et le num de semaine correspondant ?

Merci de votre aide.

je ferais ca sans doute

Note egalement dans cette table la notion de jour ouvré/nonouvré
ca pourra te servir par la suite.

Ex: (ce fut mon cas)
si tu dois calculer des stocks à X jours (en prenant en compte la conso/jour, les livraisons théoriques, et le délai moyen de réappro en jour ouvrés).

[sbeprod]

J'ai réalisé cette table calendrier.
Maintenant j'aimerai pouvoir créer un formulaire où l'utilisateur saisirait pour un salarié donné le nb d'heures sup effectuées (avec info heures de nuit ..) et ce pour chaque jour d'une semaine.
Idéalement l'utilisateur choisirait un salarié dans une liste, puis saisirait le num de la semaine concernée et ensuite s'afficherait un tableau à 7 lignes (7 jours ds la semaine) avec comme champs de saisie: date (correspondant aux jours de la semaine concernée), le nb d'heures sup effectuées ce jour, nuit(O/N), heure début, heure fin.
Comme dois-je faire, avec des requêtes ajout ?

[LostIN]

tu as tout décrit. YAPLUQUA

une série de sélection.
sélection de salarié
sélection de dates en fonction d'une semaine choisie (dans une liste déroulante)

puis à la fin un insert into (salarie,date,nbheure,semaine)
values
(....)

[sbeprod]

oui mais je ne voudrais pas que l'utilisateur ait à sélectionner chacune des dates de la semaine. Je voudrai en fait que le saisie du numéro de la semaine déclenche une macro qui préremplisse mon tableau de saisie de 7 lignes avec les dates correspondantes à la semaine.L'utilisateur aura donc beaucoup de données à saisir. Ensuite il faudrait que je puisse ajouter dans ma table finale de saisie seulement les lignes avec un nb d'heures supp différents de 0.

[Tofalu]

Un exemple :

Function MakeDate(ByVal numSemaine As Byte, ByVal annee As Integer)

Dim d As Date
Dim numS As Integer

' premier jour de l'année
d = DateSerial(annee, 1, 1)

' numéro de la semaine du 1er janvier
numS = DatePart("ww", d, vbMonday, vbFirstFourDays)

' si le 1er janvier fait partie de la dernière semaine de l'année précédente
' alors passe à la semaine suivante (la première de la nouvelle année)
If numS <> 1 Then d = DateAdd("d", 7, d)

' calcule le premier jour de la première semaine de l'année
d = DateAdd("d", 1 - Weekday(d, vbMonday), d)

' ajoute (numSemaine-1) semaines
d = DateAdd("ww", numSemaine - 1, d)
For i = 0 To 6
MakeDate = MakeDate & Format(d + i, "dd/mm/yyyy") & ";"
Next i

End Function

La fonction retrourne le résultat sous forme :

jour1;jour2;jour3 etc ...

Il ne reste plus qu'à rediriger le résultat vers la zone de liste qui aura la propriété Type de Contenu égale à Liste de valeurs

exemple sur un formulaire avec les zones de texte Tannee et Tsemaine ainsi que la zone de liste lstDates :

Sur l'évenement clic d'un bouton :

lstDates.Rowsource=MakeDate(TSemaine,Tannee)

[sbeprod]

Bonjour, j'ai bien avancé dans mon application, mais bien évidemment j'ai une question supplémentaire.
J'ai besoin de faire une analyse croisée sur des données et ce pour une période qui va du 1er mois de l'année en cours à n'importe quel mois que choisirait l'utilisateur.
J'ai donc un formulaire où l'utilisateur saisit le N° du mois désiré.
Ensuite j'ai une réquête qui prépare les données à analyser où notamment je borne l'analyse par un critère sur le mois: >=1 et <=Form!moisfin.
Dans cette requête tout fonctionne bien.
Par contre quand je lance la requête d'analyse croisée basée sur cette requête de préparation, Access me renvoie le message d'erreur:
Le moteur de la base de données ...ne reconnait pas Form!mois.fin en tant que nom de champ ou expression correcte.
Pouvez-vous me dire où se situe le problème.
Merci d'avance.