Discussion :

[lio62]

tu as raison je vais adapté ton code car si la planning varie celà sera plus simple pour moi

merci pour tout TEE GRANDBOIS

[Robert1957]

Bonjour lio62, tee_grandbois,

Je me permets un commentaire, si au lieu d'exclure un groupe vous choisissez d'inclure vous aurez les mêmes possibilités mais surtout vous allez simplifier le fonctionnement du formulaire.

Code :

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

strWhere = "WHERE [MECA]= Not(" & Me.CcMeca & ") AND [ADM]= Not(" & Me.CcAdm & ") AND [MONT] = Not (" & Me.CcMont & ")"

Remplacer par:

Code :

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

strWhere = "WHERE [MECA]= (" & Me.CcMeca & ") AND [ADM]= (" & Me.CcAdm & ") AND [MONT] =  (" & Me.CcMont & ")"

Ensuite on met par défaut les cases à cocher à "True" et on lance la requête sur l'événement afterupdate de vos cases à cocher. Pas besoin de boutons...

Autre avantage, pour l'utilisateur c'est plus clair. Avec votre manière de fonctionner vous choisissez d'exclure "MECA" mais dans la réalité ce n'est pas ce que vous faite puisque si un individu à plus d'un statut il ne sera pas exclus. Pour être clair il faudrait dire exclure ceux qui sont seulement "MECA".

Bonne journée

[tee_grandbois]

bonsoir Robert,
merci pour ta contribution à ce problème
tu as raison sur le principe, j'aurais pu mettre le filtre sur mise à jour (ou clic) de chaque case à cocher, je n'ai pas choisi cette option pour la raison qu'il fallait quand même un bouton pour afficher tout les enregistrements, chose qu'on ne peut pas faire en cochant/décochant tout, et pour finir, avec ta solution ça fait plus de code (car un évènement pour chaque coche).

lio62 a plusieurs solutions, à elle de faire le choix qui lui convient et aussi piocher dans les 2 solutions ...

[tee_grandbois]

bonjour,

je n'ai pas choisi cette option pour la raison qu'il fallait quand même un bouton pour afficher tout les enregistrements, chose qu'on ne peut pas faire en cochant/décochant tout

je me corrige : c'est possible de se passer du bouton en testant si la 3 coches sont à vrai on évite de construire le filtre:

Code :

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

1
2
3
4
5
6
7
Dim strRowSource As String
Dim strWhere As String
 
If (Me.CcMeca + Me.CcAdm + Me.CcMont) < 0 Then _
    strWhere = "WHERE [MECA]= (" & Me.CcMeca & ") AND [ADM]= (" & Me.CcAdm & ") AND [MONT] =  (" & Me.CcMont & ")"
 
strRowSource = "SELECT * FROM R_VACATION_ANALYSE_CROISEE " & strWhere & " ORDER by NOM_PRENOM"

mais ajoutant une ligne de code supplémentaire