Discussion :

[taisherg]

Bonjour,

Je réécris un post parce que j'ai accidentellement mis que mon problème était résolu or ce n'est pas du tout le cas.

Mon problème était que je n'arriver pas à actualiser une liste déroulante à partir des valeurs d'une zone de texte.

Je joint le programme VBA et un doc tentant d'imager mon problème.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
Dim strsql As String
'Initialisation et execution de la chaine SQL permettant de générer le graphique
strsql = "SELECT [Rqt_Graph_1à5].no_etude"
strsql = strsql & vbCrLf & "FROM [Rqt_Graph_1à5]"
strsql = strsql & vbCrLf & "GROUP BY [Rqt_Graph_1à5].no_etude"
'Initialisation de la condition WHERE avec le numéro de l'etude et le type de question
strsql = strsql & vbCrLf & "HAVING ([Rqt_Graph_1à5].no_etude = """ & Form_Formulaire2.lst_resultat & """" & ");"
Form_Graph1.cmbEtude.RowSource = strsql
'Form_Graph1.cmbEtude.Requery
End Sub

Questions VBA ACCESS.doc

Bonne soirée et merci de votre collaboration.

[DMboup]

essai de mettre un Debut.Print (strsql) avec l'affectation de la chaine à la liste pour voir le résultat de ta chaine strsql.

Je crois que les vbCrLf sont de trop et qu'il faut des espaces

Code :

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

1
2
3
4
5
 
strsql = "SELECT [Rqt_Graph_1à5].no_etude"
strsql = strsql & " FROM [Rqt_Graph_1à5]"
strsql = strsql & " GROUP BY [Rqt_Graph_1à5].no_etude"
strsql = strsql & " HAVING ([Rqt_Graph_1à5].no_etude = """ & Forms!Formulaire2.lst_resultat & """" & ");"

si par ailleur no_etude est un numérique, il ya trop de ".

[IllusionStriker]

salut essaye ca dans la plupart des cas cela fonctionne
sur l'évènement reception focus choisi générateur de code
et tape : Me.refresh
ainsi ta zone de liste sera mise a jour a chaque fois que tu l'utilisera
ciao a plus
bonne continuation