Discussion :

[lio62]

Bonsoir,

j'ai un formulaire planning (F_PLANNING) avec un Sous formulaire (SF_PLANNING) sur lequel figure des personnes travaillant en MECANIQUE d'autres en ADMINISTRATIF d'autres encore en MONTAGE.

sur ce sous formulaire SF_PLANNING j'ai 3 caseacocher (MECA, ADM, MONT)qui viennent de ma table EMPLOYE

je voudrai mettre un ou plusieurs boutons ou une zone de liste sur le formulaire qui me permettrait (ent) de masquer indifféremment les employés MECA ou ADM ou MONT.

si quelqu'un avait une idée....


merci

[lio62]

Bonjour

j'ai une requête (R_VACATION_ANALYSE_CROISEE) qui alimente le formulaire

TRANSFORM First(R_Vacation_Jour_Mois.CODE_MISSION) AS PremierDeCode_Mission
SELECT R_Vacation_Jour_Mois.NOM_PRENOM, [MECA], [ADM], [MONT] , [IDENT], R_Vacation_Jour_Mois.DATE_VM
FROM R_Vacation_Jour_Mois
GROUP BY R_Vacation_Jour_Mois.NOM_PRENOM, [MECA], [ADM], [MONT], [IDENT], R_Vacation_Jour_Mois.DATE_VM
ORDER BY R_Vacation_Jour_Mois.NOM_PRENOM
PIVOT R_Vacation_Jour_Mois.Jour In (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31);

dans la requete je sais mettre manuellement a vrai ou faux les champs MECA, ADM et MONT, mais j'aurais voulu un bouton ou une zone de liste qui vienne m'ouvrir le formulaire avec les restrictions
du genre

Code :

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

1
2
DoCmd.OpenForm "SF_planning", , , "[R_VACATION.ANALYSE CROISEE.MECA] <> Yes"
DoCmd.OpenForm "SF_planning", , , "[R_VACATION.ANALYSE CROISEE.ADM] <> faux"

afin qu'il n'affiche que les employés qui sont en mecanique etc..

merci de votre aide

[lio62]

si je mets ce code jen'ai aucune erreur mais il ne prend rien en considération

Code :

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

DoCmd.OpenForm "F_PLANNING", , , "[R_vacation_analyse_croisée.MECA] <> Yes"

[tee_grandbois]

bonjour,

dans la requete je sais mettre manuellement a vrai ou faux les champs MECA, ADM et MONT, mais j'aurais voulu un bouton ou une zone de liste qui vienne m'ouvrir le formulaire avec les restrictions
du genre

Code :

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

1
2
DoCmd.OpenForm "SF_planning", , , "[R_VACATION.ANALYSE CROISEE.MECA] <> Yes"
DoCmd.OpenForm "SF_planning", , , "[R_VACATION.ANALYSE CROISEE.ADM] <> faux"

peux-tu préciser si tu peux avoir un ou plusieurs choix ? par exemple avoir MECA et ADM ou ADM et MONT etc... et en supposant qu'un employé ne peut pas être les 3 à la fois ?!?

Attention à ne pas mélanger les valeurs: dans les paramètres des fonctions il faut toujours utiliser l'anglais: False et non pas Faux

si je mets ce code jen'ai aucune erreur mais il ne prend rien en considération

Code :

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

DoCmd.OpenForm "F_PLANNING", , , "[R_vacation_analyse_croisée.MECA] <> Yes"

tes crochets entourent la table et le champ, du coup la commande Openform ignore la condition

Code :

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

DoCmd.OpenForm "F_PLANNING", , , "[R_vacation_analyse_croisée].[MECA] <> Yes"

[lio62]

Bonjour

et merci de ton aide une fois de plus

pour répondre a tes questions
oui un employé peut etre MECA et ADM , ADM et MONT etc...

concernant celà je l'ai mis sur un bouton mais Il n'en tient pas compte

Code :

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

DoCmd.OpenForm "F_PLANNING", , , "[R_vacation_analyse_croisée].[MECA] <> Yes"

merci

cordialement

[lio62]

par contre si je mets manuellement dans les critères de la requete "<>vrai " pour le champ MECA il affiche bien tout le monde sauf les MECA

les champs MECA, ADM et MONT se trouve dans le sous formulaire SF_PLANNING

[tee_grandbois]

depuis le début, je me plante: tu ne peux pas appliquer une condition d'ouverture à un sous-formulaire à l'ouverture du formulaire principal ...
il faut agir sur la source du sous-formulaire comme ci-dessous:

Code :

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

Me.SF_planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée] WHERE [MECA] <> Yes"

[lio62]

merci TEE GRANDBOIS

celà fonctionne mais si j'ai un employé qui fait MECA et MONT ou autres voir les 3 case a cocher , si je mets celà il disparait

Code :

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

Me.SF_planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée] WHERE [MECA] <> Yes"

[lio62]

j'ai mis celà et l'employé apparait bien mais je vais avoir multiples combinaisons ?

Code :

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

Me.SF_Planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée] WHERE [MECA] <> YES OR [ADM]<>false"

[tee_grandbois]

je m'y attendais un peu au vu d'une de tes réponses précédentes:

pour répondre a tes questions
oui un employé peut etre MECA et ADM , ADM et MONT etc...

il va donc falloir remplacer tes boutons par 3 cases à cocher pour avoir toutes les combinaisons possibles mais pour le moment je suis en train de réfléchir au code qui irait bien...

[tee_grandbois]

j'ai mis celà et l'employé apparait bien mais je vais avoir multiples combinaisons ?

Code :

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

Me.SF_Planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée] WHERE [MECA] <> YES OR [ADM]<>false"

personnellement, j'aurais mis:

Code :

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

Me.SF_Planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée] WHERE [MECA] <> True AND [ADM]=True and [MONT]=True"

non ?

[lio62]

J'ai mis = a la place de <> c'est impeccable

mais comment puis je faire si je veux afficher à nouveau tout le planning sans en sortir SVP
et qu'il me trie sur les noms ?

[lio62]

Merci TEE GRANDBOIS,

as tu vu mon message précedent pour revenir au planning complet ?

et comment peut on trier les noms par ordre alphabetique ?

[lio62]

j'ai mis celà pour le tri et ca fonctionne

Code :

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

Me.SF_Planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée] WHERE [DCSP] = YES ORDER BY [R_Vacation_analyse_croisée].NOM_PRENOM"

mais je n'ai pas encore trouvé pour revenir sur tout le planning sans en sortir

[tee_grandbois]

Merci TEE GRANDBOIS,

as tu vu mon message précedent pour revenir au planning complet ?

et comment peut on trier les noms par ordre alphabetique ?

pour ça, j'ai besoin que tu postes tout le code que tu utilises actuellement ... c'est toujours des boutons qui mettent à jour les données du sous-formulaire ?

[lio62]

je viens de trouver celà pour revenir au planning entier celà fonctionne

Code :

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

Me.SF_Planning.Form.RecordSource = "SELECT * FROM [R_vacation_analyse_croisée]"

[lio62]

un grand merci encore et toujours

juste une question subsidiaire est il possible lorsque le planning MECA est actif par exemple, que le bouton change de couleur ?

et après je mets résolu.

tu m'as encore bien aidé

cordialement

[tee_grandbois]

oui, il faut changer de type de bouton et prendre bouton bascule

[tee_grandbois]

sinon, la solution avec des cases à cocher sur laquelle je travaillais était simple (et le code également):

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub btnSearch_Click()Dim strRowSource As String
Dim strWhere As String
 
strWhere = "WHERE [MECA]= Not(" & Me.CcMeca & ") AND [ADM]= Not(" & Me.CcAdm & ") AND [MONT] = Not (" & Me.CcMont & ")"
 
strRowSource = "SELECT * FROM R_VACATION_ANALYSE_CROISEE " & strWhere & " ORDER by NOM_PRENOM"
 
Me.Liste1.RowSource = strRowSource
 
End Sub
 
Private Sub btnSearch2_Click()
Me.Liste1.RowSource = "SELECT * FROM R_VACATION_ANALYSE_CROISEE ORDER by NOM_PRENOM"
End Sub

il faut juste remplacer Me.Liste1.RowSource par Me.SF_Planning.Form.RecordSource car j'ai utilisé une liste et pas un sous-formulaire et changer le nom des boutons si besoin.

L'avantage, si une coche de plus apparait dans la table, c'est plus simple à maintenir

[lio62]

superbe

merci pour tout