Discussion :

[DamKre]

Bonjour à tous,

J'ai une base de données dans laquelle j'aimerais pouvoir faire une requête de comptage sur base d'une date.

J'ai une table "personnes" ( avec mes employés ) et une table liée "Absences", avec la lsite des absences de mes employés.

J'aiemrais avoir une requête qui fonctionnerait comme suit :

1) Avec une macro, je lance la requête
2) On me demande quelle date est à prendre en compte
3) On me liste les employés qui ont été absents à cette date et on me dit combien il y en a...


Pourriez-vous me dire si cela est possible. Pourriez-vous aussi ( si vous en avez le temps et l'occasion ), me transmettre une base de données ( sous format access 2000 ) avec un exemple ?

Un grand merci à tous !

[FreeAccess]

Re....

Petit exemple:
Une table "T_Employes" :
.....ID_Employe Numérique
.....NomEmploye Texte

Une table "T_Absences" :
.....ID_Employe Numérique
.....DateAbsence Date/Heure

Tu crée une requête basée sur ces deux tables (R_Absences)

Code :

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

1
2
3
4
SELECT T_Employes.NomEmploye, T_Absences.DateAbsence
FROM T_Employes LEFT JOIN T_Absences ON T_Employes.ID_Employe =  _
T_Absences.ID_Employe
WHERE (((T_Absences.DateAbsence)=[forms]![F_ChoixDate]![Choix]));

Ici la partie placée après le WHERE va correspondre à une date que tu va saisir à partir d'un formulaire (F_ChoixDate) sur lequel tu as un champ nommé (Choix).
Dans ce champ "Choix" après avoir saisie une date sous la forme (12/01/2007), tu peux exécuter ta requête sur l'événement "Sur clic" d'un bouton de commande:

Code :

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

1
2
3
Private Sub Commande0_Click()
DoCmd.OpenQuery "R_Absences"
End Sub

Voilà, ceci n'est qu'un principe de base....

Tu peux également placer sur un formulaire , un contrôle Zone de liste déroulante (Modifiable3) qui t'affichera toutes les dates contenues dans la table T_Absences.
Sur clic sur une date, tu exécute ta requête qui te retournera l'ensemble des employées absents ce jour. Bien sur il ne faut pas oublier de changer le critère après le WHERE, qui devient:

Code :

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

WHERE (((T_Absences.DateAbsence)=[forms]![F_ChoixDate]![Modifiable3]));

A mettre sur l'événement "Après MAJ" de la Zone de liste:

Code :

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

1
2
3
Private Sub Modifiable3_AfterUpdate()
DoCmd.OpenQuery "R_Absences"
End Sub

Bonne continuation.

[DamKre]

J'ai trouvé aussi une autre solution. DAns une requête, comme critère, je mets quelque chose comme [Date que vous choisissez]. Au moment de l'exécution de la requête, j'entre la date et tout va bien...