Discussion :

[PSUL26]

Bonjour,

Je voudrais vous demander de bien vouloir m'aider sur un résultat dont je n'arrive pas à trouver la formule

J'ai une table "Information vol", dans cette table il y a un champ "Date d'arrivée" et un champ "date de départ".

Je voudrais, dans un autre champ que je pourrais intituler "Nombre de personne présente ce jour", que celui-ci me donne la valeur total des personnes présente à la date du jour.

connaitriez vous la formule adéquate ?

Merci de votre aide

[ClaudeLELOUP]

Bonjour et sois le bienvenu parmi nous,
La formule est assez complexe, car il y a trois cas à envisager :



Il faut intercepter :
ceux qui sont arrivés après le début (inclus) et repartis avant la fin (incluse) ;
ceux qui étaient déjà là au début ;
ceux qui étaient encore là à la fin.

Dans le formulaire fFormulaire de l'exemple, un contrôle Debut et un contrôle Fin







Je te propose d’écrire avec le QBE une requête qui intercepte ces cas :



Voici son SQL

Code :

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

1
2
3
4
SELECT tPresences.Personne, tPresences.Arrivee, tPresences.Depart
FROM tPresences
WHERE (((tPresences.Arrivee)>=[Formulaires]![fLeFormulaire]![Debut]) AND ((tPresences.Depart)<=[Formulaires]![fLeFormulaire]![Fin])) OR (((tPresences.Arrivee)<=[Formulaires]![fLeFormulaire]![Debut]) AND ((tPresences.Depart)<=[Formulaires]![fLeFormulaire]![Fin])) OR (((tPresences.Arrivee)<=[Formulaires]![fLeFormulaire]![Debut]) AND ((tPresences.Depart)>=[Formulaires]![fLeFormulaire]![Fin])) OR (((tPresences.Arrivee)>=[Formulaires]![fLeFormulaire]![Debut]) AND ((tPresences.Depart)>=[Formulaires]![fLeFormulaire]![Fin]))
ORDER BY tPresences.Personne;

Cette requête te donne une ligne par personne présente entre les deux instants renseignés dans fLeFormulaire

Et comme source pour le nombre de présents, tu utilises la fonction de domaine

Code :

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

=CpteDom("*";"rUneRequete")

Et pour actualiser à chaque modification d’une date, ce code dans le module du formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Private Sub Debut_AfterUpdate()
  Me.Presents.Requery
End Sub
 
Private Sub Fin_AfterUpdate()
  Me.Presents.Requery
End Sub

La DB qui m'a servi pour tester est ici.

[vodiem]

Salut ClaudeLELOUP et bienvenu PSUL26,

@ClaudeLELOUP : je pense que PSUL26 voudrait non pas sur une plage mais à une date donnée.
au quel cas :

Code SQL :

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

1
2
3
SELECT Count(*) AS [Nombre de personne présente ce jour]
FROM [Information vol]
WHERE (CDate([lejour])>=[Date d'arrivée]) And (CDate([lejour])<=Nz([date de départ],CDate([lejour])));

[PSUL26]

Merci à vous deux de bien vouloir m'aider, mais pouvez vous me dire, ou dois je mettre ce code SQL

[vodiem]

Prends le temps de télécharger et/ou d'étudier l'exemple qu'a pris aimablement le temps de t'expliquer ClaudeLELOUP.
Tu y trouveras les éléments de réponse à ta question.