Liste déroulante d'une requête access

[anto59]

Bonjour à tous,

J'ai créé deux listes déroulantes dans un userform.
A partir d'une base de donnée access, je récupère des données que je met dans la première liste déroulante. Jusque là tout va bien.
Maintenant, j'aimerais effectué une deuxième requête dans la base de donnée en fonction du choix de la première liste.
Première liste déroulante(appelée liste_foutrnisseur):les fournisseurs
Deuxième liste(liste_produit): les produits qu'ils proposent

Je pensais faire un truc du genre:
choix = Me.Liste_fournisseur.Value
sqltext = "SELECT produit FROM Table WHERE fournisseur='choix'"
Le problème est qu'il ne prend la valeur de choix mais le texte "choix".
Je sais pas trop comment faire.

Merci d'avance de vos réponses.

 

[Compte Supprimé 979]

Re : Liste déroulante d'une requête access

Salut Anto59

Peut-être comme ceci

sqltext = "SELECT produit FROM Table WHERE fournisseur='" & choix & "'"

A+

 

[anto59]

Re : Liste déroulante d'une requête access

Merci beaucoup bruno, ca marche nikel

 

[anto59]

Re : Liste déroulante d'une requête access

J'aimerais maintenant faire la même chose mais en mettant le nom de la table en paramètre d'une Sub.
J'ai essayé avec le même genre de formule:
sqltext = "INSERT INTO '" & table & "' (Project) VALUES ('" & choix & "')"
Project est la colonne de la table que je veux remplir et choix est la valeur que je veux mettre.

Ca n'a pas l'air de fonctionner comme ça et je ne trouve pas la syntaxe exacte.

 

[anto59]

Re : Liste déroulante d'une requête access

Je rectifie:
j'ai aussi mis la colonne en paramètre car elle change avec la table:
sqltext = "INSERT INTO '" & table & "' ('" & colonne & "') VALUES ('" & nom & "')"
Ca ne marche pas mieux pour autant mais ça écarte une source d'erreur je pense

 

[anto59]

Re : Liste déroulante d'une requête access

En fait, le probleme viendrait apparement de la déclaration des paramètres car quand je met msgbox(table) ou msgbox(colonne) il ne me met rien.
Dans le module, j'ai:
Sub ajout(ByVal nom As String, ByVal cellule As Variant, ByVal table As String, ByVal colonne As String)
Et dans mon code de userform j'ai:
Call ajout(platform, "C11", T_platforms, platforms)

Je ne vois donc pas pourquoi pour les paramètres nom et cellule, tout va bien mais pas pour les deux derniers.

 

[anto59]

Re : Liste déroulante d'une requête access

Après environ deux heures d'essai,
j'ai enfin trouvé la solution.
Pour les déclarations, il faut écrire :
Call ajout(project, "F11", "Table_principale", "project")

Et pour la requête, il faut enlever les '
sqltext = "INSERT INTO " & table & " (" & colonne & ") VALUES (' " & nom & " ')"