Discussion :

[Jérémy VAUTIER]

Bonjour,

Tout d'abord un grand merci d'avance pour tous ceux qui s'intéresserons à mon problème.

Voici mon souci.

J'ai créé une Table 'Personnel' contenant tous les employés travaillant dans mon entreprise.
J'ai créé ensuite un formulaire 'Personnel' basé sur cette table.

Sachant que ces personnes sont affectées dans des quarts j'ai créé plusieurs boutons (un pour chaque quart) permettant aux responsables de quart de consulter les informations concernant les gens sous leur autorité.
Voici le code affecté à chaque bouton :

Private Sub Personnel_Equipe_A_Click()
DoCmd.OpenForm "Personnel", acNormal, , "Quart='A'"
DoCmd.Maximize
End Sub

Le problème c'est qu'une fois que le responsable travaille sur son formulaire (notamment lorsqu'il exécute des filtres), l'opération 'Afficher tous les enregistrements' du menu contextuel fait apparaître toutes les personnes travaillant dans l'entreprise, y compris celles des autres quarts.

Même problème en créant une requête pour chaque quart et en utilisant le code suivant pour l'ouverture du fomulaire :

Private Sub Personnel_Equipe_A_Click()
DoCmd.OpenForm "Personnel", acNormal, "Quart A"
DoCmd.Maximize
End Sub

A moins de créer une requête et un formulaire part quart je ne vois pas d'autre solution plus simple.

L'un de vous aurait-il une meilleure idée ?

Cordialement,

J. VAUTIER

[Julien Dufour]

Je suppose que tu utilises openargs lors de l'ouverture de ton formulaire pour appliquer un filtre a ta source de données.
L'option 'Afficher tous les enregistrements' du menu contextuel retire ce filtre.

Une piste de solution : travailler la source de données de ton formulaire.
Il s'agit de faire en sorte que la source de données du formulaire ne contienne que les données que le chef de quart peut voir.
Comme il n'y a pas de filtre, l'option 'Afficher tous les enregistrements' ne modifiera pas la liste des données.

La manière la plus simple est de créer 4 requêtes, une par quart et de sélectionner celle qui sera attribuée au formulaire lors de son ouverture en se fondant sur openargs.
Une manière plus jolie, utiliser une requête avec la valeur du quart en paramètre

[Dolphy35]

Salut,

la réponse de Julien Dufour est correcte, je rajoute simplement qu'il n'est pas nécéssaire de créer 4 requêtes, il est possible de modifier par SQL la source de la requête.
Il y a un tuto sur le SQL et tu trouvera les codes dans la FAQ.

[Jérémy VAUTIER]

Bonjour,

Pour résoudre le problème j'ai mis le code suivant :

Private Sub Personnel_Equipe_C_Click()
DoCmd.OpenForm "Personnel"
DoCmd.Maximize
Forms![Personnel].Form.RecordSource = "select * from PERSONNEL WHERE QUART ='C'"
End Sub

Merci à tous deux pour vos réponses qui m'ont permis de réfléchir dans la bonne direction.

Bonne journée.

J. VAUTIER