Discussion :

[BornToBe]

Bonjour à tous!

Dans mon formulaire, j'ai une combobox qui est déjà alimentée automatiquement par une requête.
Mais j'aimerais ajouter une autre option à la liste obtenue, en première position.

J'ai essayé:

Code :

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

Me!SelectMonth.RowSource = Me!SelectMonth.RowSource & ";Nouvelle_Valeur"

Code :

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

Me.SelectMonth.RowSource = Me.SelectMonth.RowSource & ";Nouvelle_Valeur"

Code :

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

Me.SelectMonth.AddItem = "Nouvelle_Valeur"

et

Code :

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

Me.SelectMonth.AddItem("Nouvelle_Valeur", 1)

Mais rien n'y fait: je n'ai que les valeurs qui résultent de la requête.

Un petit coup de main, siouplé

[nico84]

Bonjour,

C'est possible avec UNION :

Code :

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

Me!SelectMonth.RowSource = Me!SelectMonth.RowSource & " union select distinct 12 from nimportequelletable"

Bien sûr, il faut que le 2e select soit compatible avec le 1er

[BornToBe]

Salut Nico,

Et merci de prendre le temps de me répondre.

En fait, la valeur que je veux ajouter est une simple ligne.
Dans les faits, la requête récupère des mois et les met dans cette liste. J'aimerais ajouter la valeur "Tous les mois", par exemple.

Du coup, le code que j'avais essayé:

Code :

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

Me.SelectMonth.RowSource = Me.SelectMonth.RowSource & "Tous les mois"

devrait marcher, non?
Je comprends pas pourquoi ça ne marche pas...

[nico84]

Execute

Code :

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

msgbox SelectMonth.RowSource

Et tu verras que ça n'a pas bonne mine

[BornToBe]

Effectivement ^^

Mais alors du coup, comment je peux faire...?

Déjà, si je le mets dans le "BeforeUpdate" c'est la bonne section?

[nico84]

Si c'est toujours pareil il vaut mieux le prévoir d'origine dans le rowsource :

Code :

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

SelectMonth.RowSource = "select distinct mois from t union select distinct 'tous' from t order by 1;"

Il se peut que ça rale d'unir un mois (numérique) et une chaine : dans ce cas une petite conversion s'impose

[BornToBe]

Merci, t'es un chef, c'est exactement ce que je voulais!