Recupérer les infos des éléments d'une liste déroulante multichx

Question

Bonjour,

je suis en train de construire une base de données sous Access 2010 afin d'orienter les magasiniers sur les fournisseurs qu'on stocke et ceux chez qui on doit se dépanner dans le cas où le fournisseur pour lequel on garde les références en stock ne peut pas nous fournir la référence commander. J'ai fais une table "famille" (famille de produits) et dans chaque famille de produits on a une ou plusieurs sous-famille. J'ai fait une autre table "fournisseurs" (id_frs, nom_frs, tel, site_web,...) et une table "produit" qui fait l'interaction entre un groupe article et ses-familles.
 Le processus de fonctionnement attendu de ma base est le suivant: on part du menu de famille de produits (sélection d'une famille de produits) => on arrive au menu des sous-familles de la famille de produits qu'on a sélectionné au départ=> on sélectionne une sous-famille données puis on arrive sur un formulaire => le formulaire contient une liste déroulante multisélection (liste de tous les fournisseurs avec lesquels on travail) => on sélectionne le ou les fournisseurs de la sous-famille et lorqu'on valide notre sélection j'aimerai avoir les informations  (id_frs, nom_frs, tel, site_web,...) concernant le ou les fournisseurs sélectionnés. Ce processus concerne les fournisseurs stockés et il en sera de même pour le dépannage.
Voici le code VBA que j'ai mis en place (et qui marche pas bien):

Private Sub btnListe_Click()

  Dim varI As Variant
  Dim strFiltre As String
  Dim MonCtl As Variant 'défini un controle nommé MonCtl
  Dim Element As Variant

  strFiltre = ""
  If Me.lstFOURNISSEURS.ItemsSelected.Count = 0 Then
    MsgBox "Aucun fournisseur n'a été sélectionné"
  Else
    For Each varI In Me!lstFOURNISSEURS.ItemsSelected
      If strFiltre <> "" Then strFiltre = strFiltre & " or "
        strFiltre = strFiltre & "[Code frs]='" & _
          Me!lstFOURNISSEURS.ItemData(varI) & "'"
      Next varI
      DoCmd.OpenReport "stock", acNormal, strFiltre
  End If
  
   'applique le controle à la liste déroulante du formulaire
   Set btnListe = Form!stock!code_frs
   
   'affiche l'ensemble des éléments sélectionés de la liste
        For Each Element In lstFOURNISSEURS.ItemsSelected
            MsgBox lstFOURNISSEURS.Column(0, Element)
        Next
End Sub


J'ai vraiment besoin de votre aide pour voir ma base de données fonctionner correctement.

Merci 

Dany

blux · Answer

Salut,

Comme on est un peu loin de ton écran, ça serait vachement plus sympa de nous dire ce qui marche pas bien car on n'est pas forcément très doués en devinettes...

danytall · Answer

J'arrive à sélectionner plusieurs fournisseurs mais je n'ai aucune infos sur les fournisseurs (id_frs, nom_frs, tel, site_web,...) après validation

blux · Answer

Et si tu mets un msgbox strfiltre avant l'openreport, y'a quoi dedans ?   
Quelle est la colonne liée de la liste ?  
Quel est le type de "code frs" dans la table ?   
A+ blux            "Les cons, ça ose tout.   
C'est même à ça qu'on les reconnait"

danytall · Answer

Désolé il ne s'agit pas d'un "openreport" mais d'un "openform" et en mettant le msgbox strfiltre avant ça ne fonctionne toujours pas. 

Excuses-moi mais je comprends pas ta question concernant la colonne liée à la liste.
Le  "code frs" est  de type texte

danytall · Answer

ah ok, dans ce cas la colonne liée est "code frs" et je viens de bien placer le "msgbox strfiltre" et ça me m'affiche l'Id_frs (qui est la clé primaire) des fournisseurs sélectionnés

danytall · Answer

Si tu veux c'est la mon principal problème. Je pense qu'il y a des critères que j'ai pas pris en compte dans mon code mais je n'arrive pas à voir mon erreur.

danytall · Answer

Bonjour,

t'as bien raison qu'il me manque un END IF mais lorsque je le place j'ai le message d'erreur "END IF sans bloque if".

danytall · Answer

ok voici le code:

Private Sub btnListe_Click()

  Dim varI As Variant
  Dim strFiltre As String
  Dim MonCtl As Variant 'défini un controle nommé MonCtl
  Dim Element As Variant

  strFiltre = ""
  If Me.lstFOURNISSEURS.ItemsSelected.Count = 0 Then
    MsgBox "Aucun fournisseur n'a été sélectionné"
  Else
    For Each varI In Me!lstFOURNISSEURS.ItemsSelected
      If strFiltre <> "" Then strFiltre = strFiltre & " or "
        strFiltre = strFiltre & "[Code frs]='" & _
          Me!lstFOURNISSEURS.ItemData(varI) & "'"
      Next varI
      
      MsgBox strFiltre
      
      DoCmd.OpenForm "FOURNISSEURS", acNormal, strFiltre
  
  End If
   'applique le controle à la liste déroulante du formulaire
   Set btnListe = Form!lstFOURNISSEURS!code_frs
   
   'affiche l'ensemble des éléments sélectionés de la liste
        For Each Element In lstFOURNISSEURS.ItemsSelected
            MsgBox lstFOURNISSEURS.Column(0, Element)
        Next

End Sub

danytall · Answer

"Il faut juste savoir ce qu'affiche strfiltre afin de voir si c'est correct au niveau syntaxe" je comprends pas très bien ce que tu veux dire par la.

danytall · Answer

lorsque je sélectionne un fournisseurs au hasard et que je valide ma sélection, il me retourne 'lID du fournisseur mais après j'ai un message d'erreur derrière "le nom du formulaire "FOURNISSEUS" est mal orthographié ou fait référence à un formulaire inexistant"

danytall · Answer

le msgbox affiche ceci "[code frs]=133" et 133 correspond a l'identifiant du fournisseur dans la base

danytall · Answer

oui

danytall · Answer

Non! en fait dans le premier form il s'agit de la table "fournisseurs" et dans le deuxième il s'agit du formulaire

danytall · Answer

vu que tu parlais du "form" j'ai pas compris que tu voulais parlé de "l'openform". Pour répondre à ta question je dirai non, je ne suis pas dans le formulaire que je veux ouvrir

danytall · Answer

oui c'est exactement cela

danytall · Answer

ça me donne le resultat du msgbox  "[code frs]=133"

danytall · Answer

non

danytall · Answer

je pense pas que cela puisse passer dans la mesure où le résultat doit provenir de la table "fournisseurs" à partir du fournisseur qu'on aura sélectionné dans la liste déroulante. Et ce sont les informations sur ce fournisseur qui alimenteront le formulaire à ouvrir. Je viens quand même de faire le test comme tu me l'as demandé j'ai le même message d'erreur ""le nom du formulaire "formulaire 2" est mal orthographié ou fait référence à un formulaire inexistant".

danytall · Answer

je viens de faire à nouveau le test et j'ai le message d'erreur "la procédure property let n'est pas définie et la procédure property  get n'a pas renvoyée d'objet". l'erreur vient de cette partie du code:

 'applique le controle à la liste déroulante du formulaire
   Set btnListe = Form!lstFOURNISSEURS!code_frs

danytall · Answer

je veux qu'il m'ouvre un formulaire qui contiendra uniquement les infos des fournisseurs sélectionnés dans la liste déroulante.

danytall · Answer

ok j'ai supprimé le filtre contenu dans le bouton mais le message d'erreur reviens toujours dans le même code de tout à l'heure

danytall · Answer

Sans le filtre ça fonctionne normalement dans la mesure où il ne m'affiche aucune infos mais lorsque que je fais le filtre il m'affiche tous les fournisseurs sans prendre en compte ma sélection

danytall · Answer

je comprends plus rien qu'est ce que je dois faire alors?

Tessel75 · Answer

Bonsoir, ou bonjour, à tous les deux
DanyTall! L'écriture de ton critère est bien trop compliquée, au point que personne ne s'y retrouve. Il faut, sinon alléger l'écriture au moins la rendre plus claire en sériant les valeurs selon les conditions de sorte qu'il n'en reste qu'une seule au moment de l'entrer dans ta ligne OpenForm
L'énoncé de la ligne est 
DoCmd.OpenForm "NomDuFormulaire", "",..., "[CritereSelection] = (ValeurMonCritere)", ...

tu écris:
strFiltre = "" 
  .... (Je passe ... )
      If strFiltre <> "" Then         ( mais tu as déjà initialisé auparavant strFiltre = "" ) 
 strFiltre = strFiltre & " or " strFiltre = strFiltre & "[Code frs]='" & _ 
( maintenant, tu complètes : strFiltre = strFiltre .... mais la valeur de strFiltre est normalement "ChaineVide" donc Access a sauté l'étape ou bien il te sort strFiltre = ChaineVide )
( Et tu y ajoute un "or ", que vient-il faire ici, ou bien quoi ? et aucun de tes codes fournisseurs ne commence par or)
(Dès lors, si tu as une conditionnelle pour la valeur en cours de determination de ton "strFiltre" le mieux serait que tu aies un iif() de façon à ce qu'à la fin de parcourt tu puisses avoir une écriture qui ressemble à l'écriture type avec la valeur du critère déterminée et non pas flottante.
     Me!lstFOURNISSEURS.ItemData(varI) & "'"

Enfin, il me parait indispensable de mettre un point d'arrêt qq part pour que tu puisses suivre pas à pas le déroulé de ton code, en particulier la prise de valeur de ton "strFiltre" qui est vraiment problématique.
En espérant avoir un peu contribué à votre recherche.

danytall · Answer

Bonjour,

j'ai bien noté ta remarque sauf que si tu veux je connais pas du tout VB avec Access du coup ce que tu me demande de faire j'arrive pas à le cerner.

danytall · Answer

Bonjour à tous,

je reviens avec un autre soucis sur mon code VB Access. N'ayant pas jusque là trouvé de solution sur mon problème précédent j'ai alors décidé de passer à autre chose qui semble bien marché mais j'ai deux débogages lors de l'exécution et je n'ai aucun affichage des informations que je veux récupérer sur les éléments sélectionnés dans mon état.
Je m'explique: J'ai fais deux listes déroulantes, une qui contient la liste des éléments à sélectionner (lstfrs) et une autre (lstfrsselectionnes) qui contiendra les éléments sélectionnés dans la liste "lstfrs" via des boutons de bascules que j'ai créé. Une fois que la bascule des éléments sélectionnés établi, je fais un clique sur le bouton "ok" qui me donne directement l'état de ces éléments. J'ai fais pour mon code un module standard qui contient toute la partie initialisation et dans le module du formule j'ai fais le code d'exécution même du processus. J'ai souligné et mis en gras les lignes où j'ai un débogage:

Voici mon code:

Code contenu dan le module standard:

' -----------------------------
' INITIALISATION DES SELECTIONS
' -----------------------------
' Entrée : strTableCible     <- Nom de la table dont
'                               on veut sélectionner les lignes
'          strClefPrimaire   <- Nom de la clef primaire de la table cible.
'          strTableSelection <- Nom de la table de sélection
'          strWhere          <- Clause Where optionnelle
'

Sub InitialiserSelection( _
  ByVal strTable As String, _
  Optional ByVal strClefPrimaire As String, _
  Optional ByVal strTableSelection As String = "Table sélection", _
  Optional ByVal strWhere As String = "")
  

  ' Vider la table des sélections
  'strTableSelection = "[" & strTableSelection & "]"
  'CurrentDb.Execute "DELETE * FROM " & strTableSelection & ";"
 
  ' Renseigner les nouvelles valeurs
  ' de la table des sélections
  Dim strSQL As String
  strSQL = "INSERT INTO " & strTableSelection & " (ID frs, Sélectionné)" _
  & " SELECT [" & strClefPrimaire & "],True" _
  & " FROM [" & strTable & "]"
  If strWhere <> "" Then strSQL = strSQL & " WHERE " & strWhere
  CurrentDb.Execute strSQL (1er débogage: Message d'erreur: "Erreur de syntaxe dans l'instruction INSERT INTO")
End Sub

' -------------------------------
' SELECTIONNER TOUTES LES LIGNES
' -------------------------------

Sub ToutSelectionner( _
  Optional ByVal strTableSelection As String = "Table sélection")
 
  CurrentDb.Execute "UPDATE [" & strTableSelection & "] SET [Sélectionné] = True;"
End Sub

' --------------------------------
' DESELECTIONNER TOUTES LES LIGNES
' --------------------------------

Sub ToutDeselectionner( _
  Optional ByVal strTableSelection As String = "Table sélection")
 
  CurrentDb.Execute "UPDATE [" & strTableSelection & "] SET [Sélectionné] = False;"
End Sub

' --------------------------------
'INVERSER LA SELECTION D'UNE LIGNE
' --------------------------------

Sub InverserSelection( _
    ByVal lngNumero As Long, _
    Optional ByVal strTableSelection As String = "Table sélection")

  Dim strSQL As String
  strSQL = "UPDATE [" & strTableSelection & "] SET [Sélectionné] = TRUE" _
  & " WHERE [ID frs] = " & lngNumero
  CurrentDb.Execute strSQL
End Sub


' ------------------------------
' COMPTER LE NOMBRE DE SELECTION
' ------------------------------
Function NombreSelections( _
    Optional ByVal strTableSelection As String = "Table sélection") As Long
   
    NombreSelections = DCount("*", strTableSelection, "[Sélectionné] = True")
    
End Function


Code contenu dan le module du formulaire:
' ------------------------
' CHARGEMENT DU FORMULAIRE
' ------------------------
Private Sub Form_Load()
    InitialiserSelection "FOURNISSEURS", "ID frs", "Table sélection"
    MiseAJourListes
End Sub

' ----------------------
' MISE A JOUR DES LISTES
' ----------------------
Private Sub MiseAJourListes()
    Me.lstfrs.Requery
    Me.lstfrsselectionnes.Requery
End Sub


' --------------------------
' SELECTION D'UN FOURNISSEUR
' --------------------------
Private Sub btnselectionun_Click()

   InverserSelection Me.lstfrs.Value
    'TransfererUn Me.lstfrs, Me.lstfrsselectionnes
    MiseAJourListes
End Sub

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()

    InverserSelection Me.lstfrsselectionnes.Value (2ème débogage: Message d'erreur: Utilisation incorrecte de NULL)
    'TransfererUn Me.lstfrsselectionnes, Me.lstfrs
    MiseAJourListes
End Sub

' ----------------------------------
' SELECTION DE TOUS LES FOURNISSEURS
' ----------------------------------
Private Sub btnselectiontout_Click()
    ToutSelectionner
    MiseAJourListes
End Sub

' ------------------------------------
' DESELECTION DE TOUS LES FOURNISSEURS
' ------------------------------------
Private Sub btndeselectiontout_Click()
    ToutDeselectionner
    MiseAJourListes
End Sub

' --------------------------------------------
' DOUBLE-CLIC POUR SELECTIONNER UN FOURNISSEUR
' --------------------------------------------
Private Sub lstfrs_DblClick(Cancel As Integer)
    btnselectionun_Click
End Sub

' ----------------------------------------------
' DOUBLE-CLIC POUR DESELECTIONNER UN FOURNISSEUR
' ----------------------------------------------
Private Sub lstfrsselectionnes_DblClick(Cancel As Integer)
    btndeselectionun_Click
End Sub
' -----------------------
' FERMETURE DU FORMULAIRE
' -----------------------
Private Sub btnannuler_Click()
    DoCmd.Close
End Sub
' ------------------------
' VALIDATION DU FORMULAIRE
' ------------------------
Private Sub btnok_Click()
    ' Est-ce qu'on a sélectionné au moins 1 fournisseur ?
    If NombreSelections() = 0 Then
        MsgBox "Vous n'avez sélectionné aucun fournisseur !", vbExclamation
        Exit Sub
    End If
   
    ' Fermer le formulaire et ouvrir l'état des fournisseurs
    DoCmd.Close
    DoCmd.OpenReport "rapport frs", acViewPreview, , "[Sélectionné] = True"
End Sub


Je vous remercie d'avance de votre aide.

Dany

danytall · Answer

ID frs est une clé primaire donc de type Numauto, Séléctionné est de type case à caucher (oui/non) et le msgbox avant le Execute strSQL me done "INSERT INTO Table sélection (ID frs, Sélectionné) SELECT [ID frs] TRUE FROM [FOURNISSEURS]

danytall · Answer

Désolé mais qu'est ce que ça voudrait dire "enquoter le TRUE?" je ne connais pas l'expression. Et pour les crochets de la table sélection je ne les avais pas dans le msgbox amis je vais tester ce que tu viens de me dire puis revenir vers toi. Et le if isnull...je le place où dans mon code?

danytall · Answer

Après avoir enquoté le "TRUE", je pense que le premier problème est résolu j'arrive maintenant à faire la bascule mais dans un seul sens, c'est-à-dire que je peut sélectionner un ou plusieurs éléments de la liste "lstfrs" et les faire basculer dans la liste "lstfrsselectionnes" mais je peux pas faire l'inverse. Par contre comme je te l'avais dit je suis pas vraiment expert en la matière du coup j'ai du mal avec la mise en place du isnull, franchement si tu peux m'aider en me l'insérant dans mon code de façon à ce que je comprenne cela m'aiderai énormément sinon voici comment j'ai procédé:

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()
    
    If IsNull(Me.lstfrsselectionnes.Value) Then
    InverserSelection Me.lstfrsselectionnes.Value
    MiseAJourListes
    End If
    
End Sub

danytall · Answer

lstfrsselectionnes est la liste que je veux alimenter par les éléments de la liste "lstfrs" qui à l'ouverture du formulaire comporte déjà tous les éléments à sélectionner. Mais dans ta deuxième hypothèse c'est dans quelle partie du code je dois insérer cette condition et je sais pas comment la formuler en VB ACCESS. N'aurais - tu pas un bout de code à me proposer s'il te plais?

danytall · Answer

ok mais le test je le fais où exactement?

danytall · Answer

je pense que je ne m'en sors pas du tout car je vois ,pas comment m'y prendre

danytall · Answer

j'aimerai bien pouvoir arriver à résoudre ce problème c'est une base de données que je dois rentre dans peux de jours (stage)

danytall · Answer

Bonjour,

je reviens toujours sur mon problème d'hier (message d'erreur  Null) que j'ai essayé de contourner je sais pas par quel moyen mais maintenant j'ai un message d'erreur "incompatibilité de type" sur la partie en gras du code:

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()

    InverserSelection Me.lstfrsselectionnes.Value
    'TransfererUn Me.lstfrsselectionnes, Me.lstfrs
    MiseAJourListes
End Sub

Est ce quelqu'un pourrait bien m'aider?

Merci

Dany

danytall · Answer

Rebonjour à tous,

j'aimerai savoir comment résoudre un problème de message d'erreur "incompatibilité de type? Voici mon code et l'erreur est signalé dans la ligne en gras.

' ----------------------------
' DESELECTION D'UN FOURNISSEUR
' ----------------------------
Private Sub btndeselectionun_Click()

Dim MSG As String
If IsNull(Me.lstfrsselectionnes.Value) Then

MSG = MsgBox("NULL")
Else  
End If
    InverserSelection Me.lstfrsselectionnes.Value
    MiseAJourListes
End Sub

J'ai aussi un autre problème. En fait j'aimerai avoir l'ouverture d'un Etat qui contient des infos détaillées de tous les éléments contenu dans une liste "lstfrsselectionnes" via un clic. Ces infos détaillés sont dans la requete "selection frs". J'ai fais un Etat en mode création "rapport frs", j'aimerai savoir comment le paramétrer pour qu'il soit alimenter par les infos détaillées des éléments de "lstfrsselectionnes"? Voici le code que j'ai fais mais il s'exécute à moitié c'est à dire que je n'ai que le msgbox "vous n'avez sélectionné aucun fournisseur":

' ------------------------
' VALIDATION DU FORMULAIRE
' ------------------------
Private Sub btnok_Click()
    ' Est-ce qu'on a sélectionné au moins 1 fournisseur ?
    If NombreSelections() = 0 Then
        MsgBox "Vous n'avez sélectionné aucun fournisseur !", vbExclamation
        Exit Sub
    End If
   
    ' Fermer le formulaire et ouvrir l'état des fournisseurs
    DoCmd.OpenReport "selection frs", acViewPreview, "[Sélectionné] = True"
End Sub


Merci de votre aide.

castours · Answer

Bonjour
comme le projet est bien avancé, je vous laisse a vos reflexions.
Par contre j'ai un exemple de recherche multi criteres qui peut,  peut etre vous aider que je mets sur le site.
Cet exemple n'est pas de moi
https://www.cjoint.com/c/CEowoyKovLX

danytall · Answer

Bonjour blux,

encore grand merci pour ton intervention par rapport à mon soucis. Pour réagir à  ta remarque je dirai que meme avant d'avoir mis ce code j'avais déjà ce problème et en le mettant cela n' a rien changé à l'exécution du code car j'ai toujours le meme problème. Le comble c'est que je sais pas si le if isnull(...) est au bon endroit (comme tu me l'a demandé de le placer avant d'utiliser lstfrselectionnes) et surtout s'il l'expression du code convient.

danytall · Answer

Bonjour Castours,

merci également pour ton intervention par contre je n'arrive pas du tout à lire ton code. voici un aperçu de ce que j'obtiens en cliquant sur le lien:

???Standard Jet DB?????nb'	?U?gr@???~?????1?y??0???c??ßF???N'?7???]?(?-?'?{6n???oCT4?3??y[	.|*??|?
????M?f_???$?g?'D???e???F?x??-b?T

Est ce qu'il ne serait pas possible d'avoir une version lisible de ce code?

Grand merci encore

Recupérer les infos des éléments d'une liste déroulante multichx

38 réponses

Discussions similaires

Newsletters