Discussion :

[kubito]

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 :

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

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

[Jean-Philippe André]

salut,

je n'arrive pas à répliquer ton bug

un simple

Code :

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

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

faisant l'affaire

[kubito]

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 :

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

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

Autant pour moi :

Code :

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

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

La, ça fonctionne

[kubito]

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 :

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

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 :

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

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

Bref je suis un peu perdu...

Du secours s'il vous plaît.

[Jean-Philippe André]

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

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

[kubito]

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 ??