Discussion :

[juju57100]

Bonjour,

J'ai un problème:

j'ai créé une liste déroulante basée sur une requête vba et je ne peux que sélectionner le premier résultat de la liste... Comment puis-je faire pour sélectionner d'autres résultats?

Ma table balayée par la requête est assez importante: 100.000 lignes.

Je vous indique mon code VBA qui lui fait bien son travail de sélection.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Nom_Produit_AfterUpdate()
Dim VarIDProd As String
ID_Produit = Nom_Produit.Column(1)
VarIDProd = ID_Produit
strWhereProd = "[ID_Produit] = " & VarIDProd
'Choisir si tarif bio ou conv pour le produit
SQL = "SELECT [R4_ReferencePrixSemaine].[Bio/Conventionnel], [R4_ReferencePrixSemaine].[ID_Produit] " _
& "FROM [R4_ReferencePrixSemaine] " _
& "GROUP BY [R4_ReferencePrixSemaine].[Bio/Conventionnel], [R4_ReferencePrixSemaine].[ID_Produit] " _
& "HAVING " & strWhereProd
Bio_Conventionnel.RowSource = SQL
Bio_Conventionnel.Enabled = True
End Sub

Savez-vous d’où peut venir le problème?
Bien cordialement.
Julien

[marot_r]

Bonjour.

Tu as peut-etre trop de donnees dans ta liste.
Les listes deroulantes saturent a un moment donne si il y a trop de lignes a afficher.
Fait un test avec une requete qui retourne seulement quelques lignes.

Sinon, valide que tu peux faire une saisie a la main dans ta source de donnees, ca peut venir de la aussi.

A+

[juju57100]

Bonjour Marot,

Je te remercie pour ta réponse!!
Mes sélections ne me donnaient que quelques résultats de liste max 8 après le GROUP BY donc c'était sensé marcher selon ton commentaire.

J'ai donc essayé autre chose et j'ai trouvé la source du problème.

En fait je n'effaçais pas les contenus des objets filles qui découlaient des modifications de mes sélections des objets mères. J'ai donc juste rajouté une ligne vba disant sur MAJ objet mère objet_fille = "" et cela m'a permis de solutionner cette erreur.

Bien cordialement.
Julien