[VBA] liste déroulante avec requête

Bonjour,

dans un formulaire une liste déroulante (liste 2) doit proposer des choix en fonction d'un choix fait dans une liste déroulante en amont (liste 1, dans laquelle j'affiche un Project é l'IDProject correspondant)

la liste 1 affiche le contenu de la table 1 et la liste 2 doit afficher les enregistrements de la table 2 dont le champ IDProject correspond à celui selectionné plus haut.

Sans WHERE j'ai tout le contenu de la table 2 mais si je mais :

Code:

---

SQL = SQL & " WHERE [table2].[IDProject] = " & nomDeLaListe1 & ";"

---

ça n'affiche rien :(

Merci

Bonjour

Heu, c'est quoi cela

Code:

---

nomDeLaListe1

---

:koi:

Starec

c'est le nom de la combobox dans laquelle il y a la liste déroulante où je sélectionne un project

Re

C'est que ce nom me paraissait bizarre.

A la place de

Code:

---

nomDeLaListe

---

mets

Code:

---

me.nomdelaliste1.value

---

As-tu testé la requête pour voir si elle retourne quelque chose ?
La valeur de ton champ IdProject est-il du numérique ou du texte ?
Ta première liste contient-elle plusieurs colonnes ?

Starec

oui pardon javé mi "Me.nomDeLaListe1" mais pas ".value" je l'ai rajouté mais ça ne marche toujours pas :(

Citation:

---

Envoyé par Starec

As-tu testé la requête pour voir si elle retourne quelque chose ?
La valeur de ton champ IdProject est-il du numérique ou du texte ?
Ta première liste contient-elle plusieurs colonnes ?

---

Et cela ?

Starec

- Non je n'ai pas testé la requête mais je ne sais pas comment la tester comme ça. (mais c'est tellement bidon : le contenu d'une table avec une condition sur un des champ ... c'est un truc tout con c'est sûr !)

- IDproject c'est du numérique (mais en fait dans la liste 1 à l'affichage j'ai mi le nom du projet mais il y a 2 colonnes : projectName et IDProject et je ne sais pas ce qui est renvoyé ? ça dépend de l'ordre des colonne ? ou de la "source contrôle" ?)

- nombre de colonne de la liste1 : 2

je m'été empressé de tester ton mini bout de code sans lire la suite lol dsl (c'est l'impétuosité de la jeunesse :))

Re

Ecrit cela

Code:

---

me.nomdelaliste.Column(1)

---

Il va prendre la valeur de la deuxième colonne de ta liste (les colonnes commencent à 0)

Starec

Re

Mets toute la ligne de ta requête (tout le code SQL) et as-tu un message d'erreur ?

Starec

supprime le point virgule ; à la fin. Il y est car tu as généré ta requète avec le générateur puis transformé en SQL. Mais en SQL VBA, il faut supprimer ce ;

Salutations

Bruno

[Bruno28] Pas du tout, il y est pck je l'ai tapé mais ça fonctionne quand meme avec (sans le where il y a des résultats, avec il n'y a rien)

[Starec] voilà "ma" ligne de code:

Code:

---

1 2 3 4 5 6 7

Private Sub FluidChoice() Dim SQL As String SQL = "SELECT DISTINCT [Fluids].[FluidName], [Fluids].[IDFluid], [Projects].[ProjectName],[Fluids].[IDProject] FROM Fluids INNER JOIN Projects ON [Fluids].[IDProject] = [Projects].[IDProject]" SQL = SQL & " WHERE [Fluids]![IDProject] = " & Me.cmb_proj.Column(0) SQL = SQL & " ORDER BY FluidName;" Me.cmb_fluid.RowSource = SQL End Sub

---

Re

Tu dis qu'il n'y a rien quand tu rajoutes ta clause where, il faudrait faire un petit test.

Sur l'évènement click de ta liste (la deuxième) met ce code

Code:

---

MsgBox Me.cmb_proj.Column(0)

---

et dis s'il y'a ce que tu attends.

Starec

Il n'y a meme pas de fenetre qui s'ouvre avec une erreur...

ah si mais il a fallu que je vire la condition vu qu'il faut sélectionner d'abord pour avoir le message qui m'a retourné ce que j'attendais. Donc il retourne ce qu'il faut c'est bon. C'est le code ou l'affichage qui est foireux alors.
Mais où ? :D

Re

Essaye de mettre ce code

Code:

---

1 2 3 4 5

Dim SQL As String SQL = "SELECT DISTINCT [Fluids].[FluidName], [Fluids].[IDFluid], [Projects].[ProjectName],[Fluids].[IDProject] FROM Fluids INNER JOIN Projects ON [Fluids].[IDProject] = [Projects].[IDProject]" SQL = SQL & " WHERE [Fluids]![IDProject] = " & Me.cmb_proj.Column(0) SQL = SQL & " ORDER BY FluidName;" Me.cmb_fluid.RowSource = SQL

---

sur le GotFocus de cmb_fluid.

Starec

C'était ça nickel ;) merci beaucoup

En fait, cela aurait marché (je pense) avec un

Code:

---

me.cmb_fluid.Requery

---

aprés l'affectation de la chaine SQL

Starec

j'ai essayé avec cmb_fluid.requery mais sans succès jretourne sur la méthode utilisant le gotfocus.

Encore merci ;)

Je ne comprends pas ça ne marche plus , je suis revenu au code sur le gotfocus et plus rien ds la liste :'(

ça remarche à moitié il y a une erreur de type de valeur maintenant :s (c bizarre l'inforamtique :D)

j'ai changé le nombre de colonnes liées de ma liste déroulante et il n'ya plus d'erreurs , j'vois pas pourquoi ça engendrerait une erreur mais bon...