Discussion :

[lucienkany]

Bonjour,

Voici mon problème.

J'ai un formulaire et un sous formulaire.

Sur le formulaire il y a des contrôles, zone de texte, zone de liste qui à chaque mise à jour permettent de filtrer les données du sous formulaire.

Je souhaite compter les enregistrements "filtrés" et afiicher ce nombre dans un contrôle du formulaire

Exemple.

le sous formilaire a les champs ci-dessous

Champ Type

EstVu Oui/Non
Date Date
EstSorti Oui/Non
EnSursi Oui/Non


Le formulaire a les contrôles suivant

Date début Filtre sur les dates (date de début de la période voulue)
Date fin Filtre sur les dates (date de fin de la période voulue)


txtEstVu Donne le nombre de vus sur la période séléctionnée
txtEstSorti Donne le nombre des sortis sur la période séléctionnée
txtEnSursi Donne le nombre des sursis sur la période séléctionnée

J'ai besion d'aide sur les formules des zones de texte txtEstVu,txtEstSorti et txtEnSursi.

Merci de votre aide.

[helas]

Sur chaques listes déroulantes, après un choix le champ Nb se met à jour

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
 
Private Sub EnSursi_BeforeUpdate(Cancel As Integer)
 Call MajNb
End Sub
 
Private Sub EstSorti_BeforeUpdate(Cancel As Integer)
 Call MajNb
End Sub
 
Private Sub EstVu_BeforeUpdate(Cancel As Integer)
 Call MajNb
End Sub
 
Private Sub jourdebut_BeforeUpdate(Cancel As Integer)
 Call MajNb
End Sub
 
Private Sub jourfin_BeforeUpdate(Cancel As Integer)
  Call MajNb
End Sub
 
Sub MajNb()
  Me!nb = DCount("*", "NomTable", "([jour]>=#" & Format$(Me!jourdebut, "mm/dd/yy") & "#) And ([jour]<=#" & Format$(Me!jourfin, "mm/dd/yy") & "#) And ([estvu]=" & Me!EstVu & ") And ([estsorti]=" & Me!EstSorti & ") And ([ensursi]=" & Me!EnSursi & ")")
End Sub