Discussion :

[jncoffy]

Bonjour

Je dispose d'un formulaire un fournisseur. En sous formulaire, j'ai la liste des commandes de ce fournisseur.
Dans le formulaire, j'ai un contrôle indépendant sous forme de boutons radio qui me propose 3 choix 'livrées', 'non livrées', 'toutes', ceci afin de pouvoir filtrer les données du sous-formulaire afin de n'y afficher que les commandes livrées, non livrées, ou toutes les commandes.
Je ne parviens pas à effectuer ce filtre. J'y parviens uniquement si le contrôle indépendant se trouve placé dans le sous formulaire, mais j'ai besoin qu'il soit placé dans le formulaire principal.

Quelqu'un peut-il m'aider svp ?

Merci d'avance

Jean Noël Coffy

[120]

quel est le champ de ta table des commandes qui te permet de savoir si elles sont livrées ou non?
sur l'évennement clic de tes bouton radios tu dois mettre à jour la propriété filter de ton sousformulaire
par exemple

Code :

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

1
2
sousformulaire.filter="livrée=true"
sousformulaire.requery

[jncoffy]

Bonsoir
Merci pour votre renseignement
Malheureusement, la méthode filter n'est pas disponible pour l'objet sousformulaire.

Dans mon exemple, le sous formulaire se nomme SFCommandes.
Quand je tape SFcommandes. je ne peux pas choisir Filter dans la liste. Et si je le tape, obtenant ainsi SFCommandes.filter="livrée=true", Access m'envoie une erreur en retour. On considère bien qu'un champ de type logique nommé 'livrée' me permet de savoir si la commande est livrée ou non. Le message d'erreur est 'Membre de données ou de méthode introuvable'.

Je ne sais pas si cela change quelque chose, mais mon sous-formulaire se situe dans un contrôle Onglet.

[jncoffy]

Bonsoir
Merci pour votre renseignement
Malheureusement, la méthode filter n'est pas disponible pour l'objet sousformulaire.

Dans mon exemple, le sous formulaire se nomme SFCommandes.
Quand je tape SFcommandes. je ne peux pas choisir Filter dans la liste. Et si je le tape, obtenant ainsi SFCommandes.filter="livrée=true", Access m'envoie une erreur en retour. On considère bien qu'un champ de type logique nommé 'livrée' me permet de savoir si la commande est livrée ou non. Le message d'erreur est 'Membre de données ou de méthode introuvable'.

Je ne sais pas si cela change quelque chose, mais mon sous-formulaire se situe dans un contrôle Onglet.

Merci d'avance pour votre aide
Jean Noël COFFY

[DSK]

Bonjour,

je vous propose après l'avoir mis en place ceci :

Code :

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

1
2
3
4
5
6
7
8
9
 
      'Affectation du filtre souhaité au sous formulaire
      Forms![NomdeTonFormulairePrincipal].Form![NomdeTonSousFormaire].Form.Filter = FiltreSouhaite
 
      'Activation de la gestion du filtre du sous formulaire
      Forms![NomdeTonFormulairePrincipal].Form![NomdeTonSousFormaire].Form.FilterOn = True
 
      ' MAJ du sous formulaire avec le filtre souhaité
      Forms![NomdeTonFormulairePrincipal].Form![NomdeTonSousFormaire].Requery

Même si c'est pas accessible, après un . (Point), la fonctionnalité est présente et c'est l'essentiel.

Merci de mettre le TAG Résolu, si cela solutionne votre situation

[DSK]

Bonsoir
Je ne sais pas si cela change quelque chose, mais mon sous-formulaire se situe dans un contrôle Onglet.

oups désole, je n'avais pas vu ce detail.

Mais après rapide vérification, il semblerait que cela ne change pas grand chose pour l'accessibilité au sous formulaire.

Peut être que d'autres membres confirmeront ?

[jncoffy]

Résolu

Bonsoir
Merci pour votre aide. Il s'avère que le code que vous me donnez marche parfaitement.
En revanche, j'ai un peu honte de le dire, mais je ne sais pas comment mettre le tag Résolu. Je tente en mettant un quote au début du message, mais je ne suis sur de rien. Je met également le mot en entête du sujet. Existe t'il une autre manière de procéder

Encore merci, principalement à DSK et à 120
Jean Noël COFFY

[DSK]

Vous avez un bouton Résolu en dessous des boutons repondre, un peu plus bas, il vous suffit juste de cliquer dessus.

Ravi d'avoir pu vous aider.

A bientôt