Discussion :

[delect]

Bonjour, voila quelques jours que je cherche à créer une application sous access 2003 qui permette de gérer des heures supplémentaires .
J'ai créé une table,une requête et un formulaire avec: le nom du personnel, la date, le type d'heure supplémentaire, je souhaite afficher dans mon formulaire le nombre d'heure sup effectué en tout dans la semaine de la date saisie et dans un autre controle le nombre d'heures sup effectués dans le mois de la date saisie . cela me permettra de définir le type d'heure sup à appliquer pour les nouvelles heures à saisir.
Pour arriver à faire cela, j ai fais une requete et à partir de la date de mon formulaire j'arrive à afficher le n° de la semaine et le n° du mois...
Là ou mes faibles compétences sont mises à jour c'est quand je cherche à compter les heures sup effectuées pour la semaine et pour la date... Je pense qu'il existe quelque chose qui permet d'afficher les dates pour un n° de semaine ou de mois, et à partir de ces dates je pourrais compter les heures...
Mais bon ce quelque chose, je l'ai pas trouvé!!! Pourriez vous m'aider s'il vous plait?

[delect]

Bon j'ai trouvé sur la FAQ!
une fonction qui s'appelle Premier jour semaine:
Public Function PremierJourSemaine(ByVal numSemaine As Byte, ByVal annee As Integer) As Date

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
 
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
PremierJourSemaine = DateAdd("ww", numSemaine - 1, d)

j'ai créé une requete avec les paramètres suivant:
Pour trouver n° de la semaine avec la date:

Code :

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

semaine: PartDate("ww";[date];2)

pour l'année l'année en cours:

Code :

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

an: Année(Maintenant())

le jour de la semaine (un lundi):

Code :

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

prem: PremierJourSemaine([semaine];[an])

Ensuite j'ai créé une seconde requete avec ma premiere en joignant ma table et sur le champ date de ma table j'ai entré en paramètre: entre[prem] et [prem]+5.
+5 pour avoir les dates du lundi au vendredi...

Bon cela fonctionne mais je pense qu'il doit y avoir beaucoup mieux, car les requetes c'est lent...

[Tofalu]

Bonsoir,

Ah non, en général, les requêtes c'est rapide comparé aux autres possibilités. A moins qu'elles ne soient mauvaise