Discussion :

[Nuwanda74]

Bonjour à tous! Je suis nouveau sur le forum et sur Access.

Je travaille à la réalisation d'une application pour mettre à jour entre autres des fiches produits.

J'ai utilisé un formulaire de navigation avec onglets en haut et à droite. En haut il y a les formulaires de saisie, et à droite le formulaire des fiches produits ainsi que d'autres + quelques états.

Initialement j'ai mis une liste déroulante sur mon formulaire fiche produit afin de trier et d'afficher la fiche correspondant au code produit sélectionné dans la liste déroulante. J'ai utilisé ce bout de code, ça fonctionne très bien:

Private Sub Modifiable635_Click()

Dim strwhere As String
strwhere = "Code_produit = '" & Modifiable635 & "'"
Me.Filter = strwhere
Me.FilterOn = True
End Sub

Cependant je réalise maintenant le besoin de filtrer de la même manière d'autres formulaires, qui n'ont pas besoin de contenir cette liste déroulante. Je voudrais avoir cette liste directement sur le formulaire de navigation, de manière à ce qu'elle filtre tous les formulaires contenus dans mes onglets de droite en même temps.

Et ça ben, je n'y arrive pas, malgré mes recherches ici et ailleurs.. Si quelqu'un à la solution, merci d'avance, j'espère avoir été clair, n'hésitez pas à me demander des précisions!

[accessisgood]

Bonjour,

il y a une solution relativement simple: stocker la valeur de filtre dans une variable temporaire, puis l'utiliser a l'ouverture d'une forme enfant


tu peux conserver garder ton champ et sur sur l'evenement after update: setTempVar TV_Article=[ID] (la valeur de l'identifiant est stocke dans la variable temporaire)
si c'est une liste, tu stockes TV_Article sur un evenemet onCurrent ou OnTimer toutes les secondes

Ensuite sur le bouton de navigation tu enleve le nom de la forme enfant, et tu crees un evenement OnClic avec 2 commandes
- On error resume next

- BrowseTo
Object Type: Form
Object Name: [Nom de la forme enfant que tu veux afficher]
Path To SubForm Control: [Nom de la forme de navigation].[nom de l'objet qui heberge les formes enfant]
Where Condition= : ="[Article]=" & [TempVars]![TV_Article] si l'identifiant est un chiffre
ou ="[Article]='" & [TempVars]![TV_Article] & "'" si l'identifiant est un texte

ainsi la forme enfant apparaitra filtree

[Nuwanda74]

Bonjour et merci pour votre réponse.

J'ai essayé ce que vous proposez, mais je ne pense pas avoir vraiment compris.

Mon champ dans lequel on sélectionne le code produit qui permettra de filtrer est bien une liste déroulante.

1/ définition de la variable temporaire : j'ai écrit ça au début

Private Sub Modifiable21_AfterUpdate()

DefTempVar Code_produit = [ID]

End Sub

[Nuwanda74]

oups erreur sur message précédent..
J'ai donc ceci:

Private Sub Modifiable21_AfterUpdate()
DefTempVar Code_produit = [ID]
End Sub

après avoir écrit ceci lorsque je sélectionne un code produit dans la liste, j'ai un message d'erreur me renvoyant vers le code, surlignant en jaune DefTempVar et un point rouge se met devant le Private Sub. je ne sais vraiment pas comment régler ça.

2/ récupérer la variable pour filtrer : j'ai créer un évênement sur clic sur le bouton d'onglet affichant mon formulaire des fiches produits. j'ai écris ceci:

Private Sub BoutonNavigation129_Click()
On Error Resume Next
BrowseTo
Object Type: Form
Object Name: [FICHE PRODUIT version 2] 'Nom de la forme enfant que tu veux afficher'
Path To SubForm Control: [Formulaire de navigation].[Formulaire de navigation]
Where Condition = "[Code_produit]='" & [TempVars]![Code_produit] & "'" 'si l'identifiant est un texte'
End Sub

mais je n'ai pas compris ce que vous voulez dire par "[Nom de la forme de navigation]" et "[nom de l'objet qui heberge les formes enfant]" j'ai essayé plusieurs truc dont celui recopié ici mais...

Et là encore j'ai un gros point rouge devant mon private sub.

Je continue d'essayer de comprendre mais vraiment je trouve ça compliqué. Merci d'avance