Discussion :

[garsflo]

ComboBox1 affiche les valeurs du champ "paramètre" d'une requête sélection que l'utilisateur doit choisir.
A chaque "paramètre" est associé plusieurs "solution". Je souhaite que mon deuxième contrôle (ComboBox2) affiche le résultat du champ "solution" en fonction du "paramètre" sélectionné par l'utilisateur.

Code :

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

1
2
3
4
5
6
7
Dim MySQL As String
MySQL = "SELECT [Table].[Paramètre],[Table].[Solution]"
MySQL = MySQL + " FROM [Table]"
MySQL = MySQL + " WHERE [Table].[Paramètre] = Me![ComboBox1].Value"
MySQL = MySQL + " ORDER BY [Table].[solution]
Me![ComboBox2].RowSourceType = "Table/Query"
Me![ComboBox2].RowSource = MySQL

Le problème c'est que l'instruction semble prendre mon critère comme une chaine de texte et non comme la valeur de mon contrôle. Faut il créer une fonction dans ce cas? Il y a surement plus simple!!mais là??? ou peut être faut il que je déclare la condition WHERE comme chaîne de caractère? j'ai juste besoin d'une piste pour savoir dans quel sens avancer...merci à vous

[Invité]

Bonjour

Une piste : As-tu une version anglaise d'Access, si non, pourquoi mets tu "Table/Query" au lieu de "Table/Requête"

Starec

[garsflo]

Bonjour Starec,
j'appelle directement la requête en mode VBA et non en mode SQL je met donc dans mon code "Table/Query". (attention je débute en VBA, je peus donc me tromper...et je fouine beaucoup dans les livres, j'ai donc repris "Table/Query" dans un bouquin). J'ai lu que peut être il faudrait que je créer une fonction "ChangeQueryDef" qui permette de modifier une requête en fonction des critères choisit par l'utilisateur en provenance d'un formulaire "sélection critère". Quand pensez vous? Y a pas plus simple??

[ft035580]

Salut,

Et en essayant:

Code :

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

1
2
3
4
5
6
7
Dim MySql As String
MySql = "SELECT Table.Paramètre, Table.Solution "
MySql = MySql + " FROM [Table] "
MySql = MySql + " WHERE (((Table.Paramètre) = Forms!TonFormulaire![Combobox1]))"
MySql = MySql + " ORDER BY Table.Solution"
Me![ComboBox2].RowSource = MySql
Me.ComboBox2.Requery

[garsflo]

salut ft035580, merci c'était bien ça!! juste une erreur de synthaxe et j'avais pourtant essayer toutes les possibilitées, sauf celle ci semble-t-il.
dur dur de débuter!! merci encore