Discussion :

[chalu38]

Bonjour à tous,

je me tourne une nouvelle fois vers vous dans l'espoir de solutionner mon problème.
Voila, j'ai créé un formulaire dans lequel j'ai intégré une liste nommée "Liste43" qui m'affiche l'ensemble de mes commandes et quand je double clic sur une commande ça m'ouvre un formulaire avec une liste "Liste2" où je souhaiterais afficher le détail de ma commande.

J'ai tout fait mais quand j'ouvre Liste2 en faite j'ai le détail de toute mes commandes de la BD
voici le code:
Sur double clic: Procédure Evénementielle

Code :

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

1
2
3
 Private Sub Liste43_DblClick(Cancel As Integer)
DoCmd.OpenForm "F_detail_menu", acNormal, , "N°_commande = '" & Me.Liste43 & "'"
End Sub

Merci

[loufab]

Bonjour,
La source de Liste2 est liée comment à la source de ton formulaire ?

Parce que quand tu utilises la clause Where ou Filter de la commande OpenForm ou OpenReport la condition/filtre est appliquée à la source du formulaire mais non des listes qui y sont.

Cordialement,

[chalu38]

bonjour,

Mes listes sont dans des Formulaires
List43 est liée a une requête sur (T_client et T_commande)
Liste2 est liée a une table (T_detail)

je suis novice désolé, merci de répondre aussi vite.

[tee_grandbois]

les propriétés des zones de listes ne sont pas adaptées pour une sélection "facile" d'un enregistrement sélectionné...
Étant donné que tu es débutant, je te conseille vivement de remplacer tes 2 zones de liste par des sous-formulaires.
Si tu as besoin d'aide, je peux t'en donner pour les mettre en place

[chalu38]

j'avais mis des s/f mais je ne trouvais pas ça joli. avec les listes il faut aller chercher les infos avec Column ?
si j'ai vraiment pas le choix je mettrai des sous-formulaire mais bon.....😟😟
voici le formulaire liste43

voici liste2 quand je double clic sur la ligne


je suis pas loin

[tee_grandbois]

bizarre dans ton impression d'écran, on ne voit pas la seule commande (la 21) qui pourrait être sélectionnée ...
Je te mets quand même le code pour afficher le détail d'une commande :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Liste43_DblClick(Cancel As Integer)
Dim strSQL As String
Dim lgNumCmd As Long
 
'Récupération de l'identifiant du N° de commande
lgNumCmd = Me.Liste43.Column(4, Me.Liste43.ListIndex + 1)
DoCmd.OpenForm "F_detail_menu", acNormal
' modification de l'origine source de la liste déroulante
 
strSQL = Replace(Forms!F_detail_menu!Liste2.RowSource, ";", "")
strSQL = "Select * from (" & strSQL & ") as D WHERE N°_commande = " & lgNumCmd
Forms!F_detail_menu.Liste2.RowSource = strSQL
End Sub

Le code fonctionne, mais cela ne semble pas fonctionner correctement sur le formulaire F_Menu de la copie de la base que j'ai récupéré lors d'un autre post ...
En effet, impossible de sélectionner une ligne de la liste, la sélection devrait être surlignée en noir, comme dans ce formulaire de test:



j'ai tenté de créer une autre liste dans ce formulaire pour voir si ce n'était pas à cause de la Liste43 mais cela n'a rien changé. Je pense donc que le problème vient du formulaire F_Menu, de plus, même après une réparation de la base cela n'a rien changé.

[chalu38]

Déjà merci pour le code et pour les photos c'est normal la liste2 a été faite avant la 43 je viens de vérifier tout fonctionne
D'après vous le F_Menu est bancale ?
je vais tester le code

[chalu38]

un petit beug je pense rien de grave

[tee_grandbois]

j'ai signalé dans mon dernier post que cela ne fonctionnait pas sur la copie de ta base jointe et je constate que c'est la même chose dans la base d'origine, c'est donc malheureusement, comme je te le disais, que ton formulaire F_Menu a vraiment un problème ...

[chalu38]

le top ça serait de le refaire?

[tee_grandbois]

effectivement

[tee_grandbois]

En parcourant les propriétés du formulaire F_Menu, je viens de trouver pourquoi il ne fonctionne pas: tu as mis la propriété "Modif autorisée" à Non (ce qui est un peu idiot pour un formulaire ne contenant pas de données) mais du coup cela empêche la détection des "modifications" effectuées sur les objets de type liste.
Remets la propriété à Oui et tout devrait fonctionner.

[chalu38]

je vous remercie beaucoup du coup j'ai refais un Formulaire j'ai presque fini

[tee_grandbois]

n'oublie pas de mettre la propriété "Modif autorisée" à Oui , sinon

[chalu38]

en tout cas un grand merci a vous pour tout ce que vous avez fait. j'ai voulu apprendre en j'ai bien appris avec vous. je vais décrocher 2 jours car ma tête fume trop lol.
c'est une affaire résolue.