Discussion :

[Aleexx]

Bonjour à tous,


J'exécute un requête SQL qui me permet de sélectionner les références commençant par " TXT821" . J'aimerai que les références correspondantes soient importées dans ma liste déroulante : liste_gamme2.
Avec mon code actuel, j'arrive à importer uniquement la première valeur.

Comment faire pour qu'il maffiche toutes les valeurs correspondantes dans ma liste déroulante ?

Merci d'avance



Voici mon code actuel :

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
Private Sub liste_xx_Click()
 
 
Dim sSQL As String
 
 
If liste_xx.Value = "TXT821" Then
 
 
sSQL = "SELECT TITI.[toto] FROM TITI GROUP BY TITI.[toto] HAVING (((TITI.[toto]) Like 'TXT821*'))"
 
liste_gamme2.Value = CurrentDb.OpenRecordset(sSQL).Fields(0).Value
 
 
End If
 
 
End Sub

[kevin254kl]

Bonjour,

https://msdn.microsoft.com/fr-fr/library/ff835328.aspx parcours ton recordset et ajoute tes valeurs.

[Invité]

Bonjour

As-tu essayé de mettre la requête SQL directement dans la propriété RowSource de ta liste ?

Philippe

[Aleexx]

Bonjour, merci pour vos réponses

https://msdn.microsoft.com/fr-fr/library/ff835328.aspx parcours ton recordset et ajoute tes valeurs.

Je pense que je ne dois pas comprendre comment fonctionne ListBox , je n'arrive à le faire fonctionner et l'adapter à mon cas. strItem = sSQL ? ; Item = ??

As-tu essayé de mettre la requête SQL directement dans la propriété RowSource de ta liste ?

J'ai essayé comme tu m'as dit mais il m'affiche une erreur pour cette ligne :

Code :

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

Me.liste_gamme2.RowSource = "SELECT TITI.[toto] FROM TITI GROUP BY TITI.[toto] HAVING (((TITI.[toto]) Like 'TXT821*'))"

erreur : "Ce n'est pas une valeur correcte pour la propriété OrigineSource ou une erreur de compilation s'ent produite dans la fonction"


Merci d'avance

[bertiny]

Bonjour
Ta requête marche t-elle de manière indépendante?

[bertiny]

En effet j'ai testé ta requête et elle fonctionne bien. On va donc l'appeler (la requête bien sûr) rqtoto. Tu vas donc créer ta liste déroulante et en mode création, tu va ouvrir les propriétés de ta liste déroulante et dans le menu Données -> Contenu tu vas ajouter ceci

Code :

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

SELECT [rqtoto].[toto] FROM [rqtoto];

Ceci est simplement possible sans passer par le VBA.
Cordialement.

[Aleexx]

Bonjour Bertiny , merci de ta réponse

Je n'arrive pas à faire fonctionner ta méthode , mais j'ai quand même réussit à la faire fonctionner: dans l'onglet "Données" pour "Contenu" = rqtoto , "Source contrôle" = toto et "Origine source" = Table/requête
En remplissant ces 3 champs cela fonctionne !

Mais ce n'est pas exactement ce que je désire obtenir. J'essaye de le faire en VBA car j'aimerai remplir la liste suivant 3 conditions : commençant par TXT821 , TXT852 et TXT892. (et donc exécuter une requête pour ces 3 conditions)

Si tu as la solution en VBA je suis preneur


Merci d'avance.

[tee_grandbois]

J'essaye de le faire en VBA car j'aimerai remplir la liste suivant 3 conditions : commençant par TXT821 , TXT852 et TXT892. (et donc exécuter une requête pour ces 3 conditions)

Bonjour Aleexx,
Pour une liste déroulante ou une zone de liste dont l'origine source est Table/Requête, la syntaxe est correcte :

Code :

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

Me.liste_gamme2.RowSource = "SELECT TITI.[toto] FROM TITI GROUP BY TITI.[toto] HAVING (((TITI.[toto]) Like 'TXT821*'))"

Donc, poste la requête réelle et nom pas toto from TITI et surtout ton code complet, car il est possible que cela soit autre chose dans la syntaxe qui provoque l'erreur.

[Aleexx]

Bonjour tee_grandbois ,

Il se peut que je n'ai pas été suffisamment claire dans mes explications. En fonction de la valeur sélectionnée dans la première liste " wp ", j'aimerai qu'il m'affiche les références correspondantes dans la liste " gamme ".



Pour cela, j'exécute une requête SQL pour qu'il me sélectionne les bonnes gammes. Avec mon code actuel, lorsque je sélectionne TXT821, il m'affiche uniquement la première valeur dans la liste gamme.

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
26
27
28
29
30
31
32
33
34
35
36
Private Sub liste_wp_Click()
 
 
Dim sSql As String
 
 
    If liste_wp.Value = "TXT821" Then
 
        sSql = "SELECT SUIVI.[Référence] FROM SUIVI GROUP BY SUIVI.[Référence] HAVING (((SUIVI.[Référence]) Like 'TXT821*'))"
 
        liste_gamme2.Value = CurrentDb.OpenRecordset(sSql).Fields(0).Value
 
 
 
 
 
  '  ElseIf liste_wp.Value = "TXT852" Then
    '
    '
    '
    '
 
 
 
  '  ElseIf liste_wp.Value = "TXT892" Then
    '
    '
    '
    '
    '
 
 
    End If
 
 
End Sub

Et en essayant avec le code ci-dessous, j'obtient une erreur : "Ce n'est pas une valeur correcte pour la propriété OrigineSource ou une erreur de compilation s'est produite dans la fonction"

Code :

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

Me.liste_gamme2.RowSource = "SELECT SUIVI.[Référence]  FROM SUIVI GROUP BY SUIVI.[Référence] HAVING (((SUIVI.[Référence]) Like 'TXT821*'))"

Merci d'avance

[bertiny]

Ta Liste gamme prend ses données où? Essaies de nous donner des bonnes informations pour qu'on puisse mieux t'aider.
Nous voulons les tables qui entre en jeu et leurs champ sur chaque liste déroulante.

[tee_grandbois]

La liste déroulante Gamme est-elle bien de type Table/Requête (bon) ou Liste de valeurs (pas bon) ?

[Aleexx]

Bonjour à tous ,

J'ai supprimé mes listes et j'ai recommencé. Ca fonctionne parfaitement !

En essayant de faire fonctionner mes listes j'ai du toucher à une option que je n'aurais pas dû.

Mes listes fonctionnent grâce au Rowsource :

Code :

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

1
2
 
Me.liste_gamme2.RowSource = "SELECT SUIVI.[Référence]  FROM SUIVI GROUP BY SUIVI.[Référence] HAVING (((SUIVI.[Référence]) Like 'TXT821*'))"

Merci à tous pour votre aide !

[tee_grandbois]

bonsoir
pour info, tu peux optimiser en utilisant directement la valeur de ta première ListBox :

Code :

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

Me.liste_gamme2.RowSource = "SELECT SUIVI.[Référence] FROM SUIVI GROUP BY SUIVI.[Référence] HAVING (((SUIVI.[Référence]) Like '" & Me.liste_wp.Value & "*'))"

et si c'est la deuxième colonne de la liste qui contient la valeur : Me.liste_wp.Column(1)