Combobox et requete sql (vba)

Bonjour à tous,

Je me tourne vers vous car j'ai un petit souci. Je suis en train de faire un formulaire dans lequel je vous drais récupérer le resultat d'une requète effectué en vba.
Quand je remplis la propriété "contenu" de la combobox avec un objet requete, tout fonctionne parfaitement. Mais si je veux passer en vba pour obtenir la même chose...ma combobox reste vide.

(la requete sql provient d'un copier/coller de cette meme requete mais en mode "objet".

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim baseMat As DAO.Database Dim rsMat As DAO.Recordset Dim sql As String Dim X As Integer   'X = Me.cmb_matieres.ListIndex Set baseMat = CurrentDb 'Set rsMat = baseMat.OpenRecordset("Matieres") sql = "SELECT Matieres.[Nom matiere] FROM Matieres" 'DoCmd.RunSQL sql 'Set rsMat = baseMat.OpenRecordset(sql) cmb_matieres.RowSourceType = "Table/Query" cmb_matieres.RowSource = sql cmb_matieres.Requery   'Me.cmb_matieres.Column(0, X) = rsMat

---

Ce que vous voyez avec les commentaires (les apostrophes) sont les différents tests effectués.
Une âme charitable aurait-elle une idée.
Merci d'avance.

PS : je sais que ce n'est pas complique mais je galere grave.


Configuration: Windows 7 / Firefox 11.0

salut,

je n'arrive pas à répliquer ton bug :aie:

un simple

Code:

---

cmb_matieres.RowSource = "SELECT Matieres.[Nom matiere] FROM Matieres"

---

faisant l'affaire

Merci
Effectivement, c'est une solution.
Cependant, la requête définitive sera plus longue (celle-la c'était pour tester). et en fonction de la sélection dans la combobox, plusieurs textbox et/ou étiquettes s'actualiseront.
Par exemple, si dans la combobox, je choisis "Droit" alors une textbox, affichera le responsable du cours, une autre les objectifs, une autre les modalités d'examen...
Le but est que la combobox n'affiche qu'une colonne (à paramétrer dans ses propriétés ; ça je sais faire ^^) et les textbox les autres colonnes, d'où le Me.cmb_matieres.Column(0, X).

Une proposition ?

PS , je viens de tester le code, ca ne fonctionne pas

Code:

---

1 2 3 4

Private Sub cmb_matieres_Click() cmb_matieres.RowSource = "SELECT Matieres.[Nom matiere] FROM Matieres" End Sub

---

Autant pour moi :

Code:

---

1 2 3 4

Private Sub Form_Load() cmb_matieres.RowSource = "SELECT Matieres.[Nom matiere] FROM Matieres" End Sub

---

La, ça fonctionne

Je me permet encore de continuer la discussion :
Ci-dessous la requête complète (ou presque). Elle fonctionne bien et me donne les résultats escomptés mais...J'ai toujours ma combobox avec affichée 1 colonne et 5 liées.
J'essaie d'afficher dans différents textbox les différentes colonnes de ma combobox. sauf, que nada, ca ne m'affiche rien ru tout.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Option Compare Database   Private Sub cmb_matieres_Change() Me.cmb_matieres.Value = Me.cmb_matieres.Column(0) Me.txt_respo.Value = Me.cmb_matieres.Column(1)   End Sub     Private Sub Form_Activate()   Me.cmb_matieres.Value = "Sélectionnez une matière" 'ca devrait s'afficher mais la non plus, ca ne s'affiche pas SQL = "SELECT DISTINCT Matieres.[Nom Matiere], Matieres.[Nom respo], Matieres.[Prenom respo], Enseignants.Courriel, Enseignants.Nom " SQL = SQL & "FROM (Matieres INNER JOIN [Fiches pedagogiques] ON Matieres.CodeMatiere = [Fiches pedagogiques].Codematiere) " SQL = SQL & "INNER JOIN (Enseignants INNER JOIN [Matiere/Prof] ON Enseignants.NumEns = [Matiere/Prof].Enseignants) " SQL = SQL & "ON Matieres.CodeMatiere = [Matiere/Prof].CodeMatiere " SQL = SQL & "WHERE Enseignants.Nom = Matieres.[Nom respo]" Me.cmb_matieres.RowSource = SQL End Sub     Private Sub Form_Current() Me.cmb_matieres.SetFocus Me.cmb_matieres.SelStart = 0 End Sub

---

De plus, au demarrage, la combo devrait afficher : "Sélectionnez une matière" mais elle ne le fait pas. Ensuite quand je clic sur une matiere, ca laisse l'en tête de la combo vide...et je viens de voir que si je selectionne la colonne 2...ca m'affiche quand meme la 1ere.

Code:

---

Me.cmb_matieres.Value = Me.cmb_matieres.Column(2)

---

Bref je suis un peu perdu...

Du secours s'il vous plaît.

Pour attribuer une valeur valide à ta combobox, il faut que celle-là soit dans la colonne liée de celle-ci :aie:

Aussi si tu pointes des valeurs dans les colonnes qui ne sont pas liées (ici les colonnes 2 à 5), ton code ne peut pas sélectionner ce que tu cherches.

Pour afficher les colonnes, il faut s'assurer que la valeur de leur largeur soit à minima >0 :)

Citation:

---

J'ai toujours ma combobox avec affichée 1 colonne et 5 liées.

---

Je pense que c'est bon pour les colonnes liées. J'en ai bien 5 et une seule d'affichée.
A moins que j'ai mal compris.

PS : largeur ??

tu ne peux avoir qu'une seule colonne liée (la colonne liée est la colonne qui renverra "la" valeur de la combobox lors de l'appel

Code:

---

Macombobox.value

---

Quelques tutos sur les listes pour les largeurs de colonnes :
http://jeannot45.developpez.com/arti...ultifonctions/

http://argyronet.developpez.com/offi...filter/#L3-1-1

Bon j'ai modifié ce que j'avais mis pour ::
Nbre de colonne affiché = 1
Nombre de colonne lié = 1

Le texte "sélectionnez une matiere" est revenue mais quand je sélectionne l'une d'entre elles je n'ai toujours rien qui s'affiche dans l'en tête de la combobox (c'est tout blanc a cet endroit et ce, quel que soit la matiere sélectionnée).

dans ton code, tu passes directement du

Code:

---

Me.cmb_matieres.Value = "Sélectionnez une matière" 'ca devrait s'afficher

---

au

Code:

---

1 2 3 4 5 6

SQL = "SELECT DISTINCT Matieres.[Nom Matiere], Matieres.[Nom respo], Matieres.[Prenom respo], Enseignants.Courriel, Enseignants.Nom " SQL = SQL & "FROM (Matieres INNER JOIN [Fiches pedagogiques] ON Matieres.CodeMatiere = [Fiches pedagogiques].Codematiere) " SQL = SQL & "INNER JOIN (Enseignants INNER JOIN [Matiere/Prof] ON Enseignants.NumEns = [Matiere/Prof].Enseignants) " SQL = SQL & "ON Matieres.CodeMatiere = [Matiere/Prof].CodeMatiere " SQL = SQL & "WHERE Enseignants.Nom = Matieres.[Nom respo]" Me.cmb_matieres.RowSource = SQL

---

pour que cela change, il faut dans un premier temps effectuer le

Code:

---

Me.cmb_matieres.Value = "Sélectionnez une matière" 'ca devrait s'afficher

---

Il n'y a pour l'instant aucun lien entre la premiere et la seconde partie de ton code. Que souhaites-tu faire exactement lors "du choix" de l'utilisateur et par quel moyen se fait-il ?

Alors j'ai 4 textbox et une combobox qui represente les 5 informations que je veux afficher.
Quand je selectionne un élément de la combobox, normalement, les 4 textbox devrait se remplir automatiquement avec les éléments de la requete.

Au niveau des colonnes, la combobox doit afficher la 1ere, le textbox1 la colonne 2, le textbox2 la colonne 3,...


Pour info, au niveau de la combobox, j'ai mis 5 colonnes en ajustant la largeur afin de voir uniquement la 1ère (détail que j'avais oublié) au niveau des colonnes liées, 1 ou 5...je ne sais pas.

Hum,
j'ai du mal à saisir l'intérêt de mettre 1 cbobox + 4 txtbox et en plusde faire appel à 5 colonnes mais de n'en afficher qu'une seule :koi:

N'est-ce pas un peu superflu ?

Bon le probleme est resolu.
Tu avais parle des largeurs de colonnes et je n'avais pas percuté. C'était pourtant la solution, mettre quelques cm à la première et 0 aux autres et le tour est joué.
Pourquoi recherché tant de colonnes et n'en afficher qu'une ? ben c'est la seule façon que j'ai trouvé pour récupérer les valeurs de la requet dans les txtbox en fonction du choix fait dans la combobox.
Dans tous les cas, merci de votre aide.